杭州交通信息网长春大学特殊教育学校:谁能帮个忙？懂编程的来一下
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 12:43:17
（用VB编程）
1：如何才能在某个文本输入框(Text1)没有输入任何内容时，另外一个按钮（command1）禁止点击（即按钮为灰色状态）但当这个文本框有了内容时，其按钮则变为可点击状态？
2：我做的是一个倒计时程序，但是做完后才发现分钟文本框中可以输入>60的数字，小时和秒也一样，如何才能限制输入的范围？
我要限制成0-59之间的数，且只想限制输入的范围，对其运行不用限制（我已经对其进行了限制）还有，说得详细一点我是菜鸟，刚接触想学学。什么是失去焦点前？尽量直接写上原代码和说明吧！
1：如何才能在某个文本输入框(Text1)没有输入任何内容时，另外一个按钮（command1）禁止点击（即按钮为灰色状态）但当这个文本框有了内容时，其按钮则变为可点击状态？
2：我做的是一个倒计时程序，但是做完后才发现分钟文本框中可以输入>60的数字，小时和秒也一样，如何才能限制输入的范围？
我要限制成0-59之间的数，且只想限制输入的范围，对其运行不用限制（我已经对其进行了限制）还有，说得详细一点我是菜鸟，刚接触想学学。什么是失去焦点前？尽量直接写上原代码和说明吧！
Private Sub Text1_Change()
Dim KeyValue As Integer
'程序运行前设置Command1.Enable为False
If Text1.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
'当按下键时判断按键范围
KeyValue = Str$(Text1.Text)
If KeyValue > 60 Or KeyValue < 0 Then
MsgBox "数值范围在0-60"
Text1.Text = 0
End If
End Sub
----
如果想失去焦点,可以执行其他控件的SetFocus属性,例如
假设文本框有输入焦点, 当执行Command1.SetFocus后,则焦点就移到按钮上了
1.失去焦点前
if text1.text="" then
command1.enabled=false
else
command1.enabled=true
end if
2.你要怎么限制呢？ （建议换用别的控件）
失去焦点前 进行判断if>60 让当前控件获得焦点