VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.I
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/07/18 16:29:23
VB判断相关的问题
思路是这样的,
判断TEXT1.TEXT里的内容,
当TEXT1.TEXT=111,则执行
Timer1.Interval = 1000
Timer1.Enabled = True
当TEXT1.TEXT=222,则执行
Timer2.Interval = 1000
Timer2.Enabled = True
当TEXT1.TEXT=333,则执行
Timer3.Interval = 1000
Timer3.Enabled = True
以此类推,无限的循环着使用,请问代码应该怎么写?
思路是这样的,
判断TEXT1.TEXT里的内容,
当TEXT1.TEXT=111,则执行
Timer1.Interval = 1000
Timer1.Enabled = True
当TEXT1.TEXT=222,则执行
Timer2.Interval = 1000
Timer2.Enabled = True
当TEXT1.TEXT=333,则执行
Timer3.Interval = 1000
Timer3.Enabled = True
以此类推,无限的循环着使用,请问代码应该怎么写?
代码很容易啊:Private Sub Command1_Click()
If IsNumeric(Text1) = False Then Text1 = "": Text1.SetFocus: Exit Sub
Select Case CInt(Text1)
Case 111
Timer1.Interval = 1000: Timer1.Enabled = True
Case 222
Timer2.Interval = 1000: Timer2.Enabled = True
Case 333
Timer3.Interval = 1000: Timer3.Enabled = True
...
End Select
End Sub 但是你要无限循环,这不是直接死机了么...
If IsNumeric(Text1) = False Then Text1 = "": Text1.SetFocus: Exit Sub
Select Case CInt(Text1)
Case 111
Timer1.Interval = 1000: Timer1.Enabled = True
Case 222
Timer2.Interval = 1000: Timer2.Enabled = True
Case 333
Timer3.Interval = 1000: Timer3.Enabled = True
...
End Select
End Sub 但是你要无限循环,这不是直接死机了么...
VB判断相关的问题思路是这样的,判断TEXT1.TEXT里的内容,当TEXT1.TEXT=111,则执行Timer1.I
vb中定义的d为双精度变量,设d=text1.text,text1.text里输入的是12.3625 为啥运行时d=36
VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te
在VF中alltrim(thisform.text1.value)与thisform.text1.text是等价的吗?
text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数
a(i) = Mid(Text1.Text,i,
在VB当中 1.Text1.Text = Text1.Text & x & "+" & y & "=( )" & Chr
VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.
VB中data="&H" & 其中c=Text1.text,data也是一个已经定义好的变量,
在VB 语句中 x = Val(Text1.Text) Val
VB代码问题“ Text1.Text="**"&cht(13)&chr(10)"****"是什么意思?
VB中, text1=1和text1.text=1有没有区别?