关于VB弹窗问题！

来源：百度知道 编辑：UC知道 时间：2024/06/14 16:33:12
问题1：当text1=ninhao或nihao或nimhao时则2秒钟后弹出提示框提示： 大家好！ 单击确定后弹出提示框 今天吃饭了吗？ 若text1中的内容不等于我规定的内容则弹出提示框 您输入错误

添加一个text1,timer1,再添加下面代码：
Private Sub Form_Load()
Timer1.Interval = 2000
Timer1.Enabled = False
End Sub

Private Sub Text1_Change()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Text1.Text = "nihao" Or Text1.Text = "ninhao" Or Text1.Text = "nimhao" Then
MsgBox "大家好!", vbInformation + vbOKOnly, ""
MsgBox "今天吃饭了吗？", vbQuestion + vbYesNo, ""
Else
MsgBox "您输入错误", vbCritical, ""
End If
Timer1.Enabled = False
End Sub

可以啊