绿川花 h本子:Private Sub Timer1_Timer()这段代码的意思?
来源:百度文库 编辑:高考问答 时间:2024/05/04 18:32:29
Private Sub Timer1_Timer()
Dim a As Integer
Timer1.Interval = 500
StatusBar1.Panels(3).Text = " " & Str(Now) & " "
a = a + 1
If a > 5 Then
a = 1
End If
Select Case a
Case 1, 3, 5
StatusBar1.Panels(1).Text = " 欢迎使用公安110接处警系统 版本 V1.0! 此系统有石油大学计算机系制作 "
Case 2, 4
StatusBar1.Panels(1).Text = ""
End Select
End Sub
Dim a As Integer
Timer1.Interval = 500
StatusBar1.Panels(3).Text = " " & Str(Now) & " "
a = a + 1
If a > 5 Then
a = 1
End If
Select Case a
Case 1, 3, 5
StatusBar1.Panels(1).Text = " 欢迎使用公安110接处警系统 版本 V1.0! 此系统有石油大学计算机系制作 "
Case 2, 4
StatusBar1.Panels(1).Text = ""
End Select
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
Timer1.Interval = 500 //设置timer控件周期为500毫秒
StatusBar1.Panels(3).Text = " " & Str(Now) & " " //timer事件作用时间内刷新StatusBar1.Panels(3)的文本为当前时间
a = a + 1
If a > 5 Then
a = 1 //定义一个循环的变量,让他在1-5中间循环
End If
Select Case a //case “a”的状态
Case 1, 3, 5 //当a=1或者3或5的时候
StatusBar1.Panels(1).Text = " 欢迎使用公安110接处警系统 版本 V1.0! 此系统有石油大学计算机系制作 " //StatusBar1.Panels(1)的显示该字符串
Case 2, 4 //当a=2或者4的时候
StatusBar1.Panels(1).Text = ""//StatusBar1.Panels(1)显示为空的
End Select
End Sub
简单的说。就是在StatusBar1.Panels(3)控件上面轮流显示不同的字符串
Private Sub Form_Load()
Private Sub 是什么意思?
Private Sub Command1_Click()
private sub form load() end sub 是什么意思?
Private Sub Command1_Click() 哥哥给解释一下。
VB中sub和private是什么意思?
Private Sub WatchChangeAction(fPath As String)
VB里的sub单词是什么意思,比如private sub……、end sub
Private Sub Timer1_Timer()这段代码的意思?
Private Sub Cmbbh_Click()作一下解释,高手指点。