设置文本框的Enter事件代码:
If e.sender.Text > "" Then e.Sender.Readonly = BooleanEnum.TrueElse e.Sender.ReadOnly = BooleanEnum.FalseEnd If