请教下窗体判断事件?

IDtoID 2008-10-18 09:53:26



'条件是"Form1中有Text1 Command1 .当Form1显示时Text1的值是空的, 而Command1的Enabled的值为False.

~=========================================================



'那么怎样能判断当在Text1中输入内容后,Command1的Enabled的值为True.  或者 当Text1的值为空,Command1的Enabled的值为False.



'效果就像在系统中的"开始-运行"那窗体一样.

...全文

54 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

lyserver 2008-10-18

打赏
举报

同上

fvflove 2008-10-18

打赏
举报



Option Explicit



'条件是"Form1中有Text1 Command1 .当Form1显示时Text1的值是空的, 而Command1的Enabled的值为False.

'~=========================================================



'那么怎样能判断当在Text1中输入内容后,Command1的Enabled的值为True.  或者 当Text1的值为空,Command1的Enabled的值为False.



'效果就像在系统中的"开始-运行"那窗体一样.





Private Sub Form_Load()

  Text1.Text = ""

End Sub



Private Sub Text1_Change()

  Command1.Enabled = Not (Len(Text1.Text) = 0) '如果是空格也算数据

End Sub



Option Explicit



'条件是"Form1中有Text1 Command1 .当Form1显示时Text1的值是空的, 而Command1的Enabled的值为False.

'~=========================================================



'那么怎样能判断当在Text1中输入内容后,Command1的Enabled的值为True.  或者 当Text1的值为空,Command1的Enabled的值为False.



'效果就像在系统中的"开始-运行"那窗体一样.





Private Sub Form_Load()

  Text1.Text = ""

End Sub





Private Sub Text1_Change()

  Command1.Enabled = Not (Len(Trim(Text1.Text)) = 0) '如果是空格不算数据

End Sub