Question

（VB）VB新手求问.........点击command1后在label1上显示一段文字，几秒后让label1上所显示的文字消失..

新手求问大神........类似于叫号机的那种..点一下显示我是几号...然后文字自己消失...再点一下显示我是下一个号这样如此类推

Answer 1

'添加一个按钮（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

Answer 2

增加一个时钟控件TIMER，两个全局变量COUNT（控制文字消失的时间），NUM（号码）
TIMER的事件,判断COUNT的值是否大于0，若是，则减去一，否则不显示文字
command1的CLICK事件：显示NUM号，改变COUNT的值，NUM增加一

[只给思路，不给具体代码]

追问

谢谢你！调试了一下可以了