主题：不为空则锁定问题

TextBox的Enter事件：

If e.Sender.Text > "" Then
   e.Sender.ReadOnly =BooleanEnum.True
Else
    e.Sender.ReadOnly = BooleanEnum.False
End If