控件要实现类似效果,设置此控件enter事件:
If e.Sender.Text = "" Then e.sender.Readonly = Booleanenum.FalseElse e.sender.Readonly = Booleanenum.TrueEnd If