Question

VB如何弹出提示框

我想实现的效果是:当点击Command1后,过三秒弹出一对话框,例如说:您的密码错误之类的...效果很简单,请各位老大把代码贴出来哈

Answer 1

Private Sub Command1_Click()
Timer1.Enabled = True'打开计时器
End Sub

Private Sub Form_Load()
Timer1.Enabled = False'关闭计时器
Timer1.Interval = 3000'计时器间隔3000毫秒，即3秒
End Sub

Private Sub Timer1_Timer()
MsgBox "您的密码错误"
Timer1.Enabled = False
End Sub

Answer 2

Private Sub Command1_Click()
Timer1.Enabled = True 'timer控件响应事件
Timer1.Interval = 1000'事件间隔1秒

End Sub

Private Sub Form_Load()
Timer1.Enabled = False'不响应
End Sub

Private Sub Timer1_Timer()
Static i As Integer '设置静态变量i
i = i + 1 'i值累加1
Me.Caption = i
If i = 3 Then MsgBox "提示": i = 0 '如果i=3 则弹出对话框:timer1.enabled=false
End Sub

Answer 3

可以通过msgbox函数调用提示框。
msgbox函数有两种格式，一种带返回值，一种不带返回值
代码如下：
msgbox
"提示内容"
，
，
“提示框标题”
‘不带返回值
d=msgbox
（“提示内容”，
，
“提示内容”）
’d为返回值，可以知道用户按下哪个按钮。

Answer 4

抄ls的，改了下……

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 3000

End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
MsgBox "提示"
Timer1.Enabled = False '都可以停止时钟
Timer1.Interval = 0 '都可以停止时钟
End Sub

Answer 5

Private Sub Command1_Click()
...
Sleep(3000) '等待3秒
MsgBox "你要显示的消息",vbOKOnly,"消息"
...
End Sub