（VB）VB新手求问.........点击command1后在label1上显示一段文字，几秒后让label1上所显示的文字消失..
新手求问大神........类似于叫号机的那种..点一下显示我是几号...然后文字自己消失...再点一下显示我是下一个号这样如此类推
第1个回答 2016-11-30
'添加一个按钮（commandbutton）和一个标签(label)控件
'代码，这里间隔3秒后消失
Dim ph As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Command1.Enabled = False
ph = ph + 1
Label1.Caption = ph & "号"
Savetime = timeGetTime
While timeGetTime < Savetime + 3000
DoEvents
Wend
Label1.Caption = ""
Command1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = ""
ph = 0
End Sub本回答被提问者和网友采纳
'代码，这里间隔3秒后消失
Dim ph As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Command1_Click()
Command1.Enabled = False
ph = ph + 1
Label1.Caption = ph & "号"
Savetime = timeGetTime
While timeGetTime < Savetime + 3000
DoEvents
Wend
Label1.Caption = ""
Command1.Enabled = True
End Sub
Private Sub Form_Load()
Label1.Caption = ""
ph = 0
End Sub本回答被提问者和网友采纳
第2个回答 2016-11-30
增加一个时钟控件TIMER，两个全局变量COUNT（控制文字消失的时间），NUM（号码）
TIMER的事件,判断COUNT的值是否大于0，若是，则减去一，否则不显示文字
command1的CLICK事件：显示NUM号，改变COUNT的值，NUM增加一
[只给思路，不给具体代码]追问
TIMER的事件,判断COUNT的值是否大于0，若是，则减去一，否则不显示文字
command1的CLICK事件：显示NUM号，改变COUNT的值，NUM增加一
[只给思路，不给具体代码]追问
谢谢你！调试了一下可以了
相似回答
