关于VB的。。会的进

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:53:19
主界面上有一个按扭。。点击后谈出一个对话框。。。然后每隔几秒钟就会弹出一个同样的对话框。。。代码怎样编写啊
点确定后才能在弹出啊。。。。。
怎么让他一直弹出。。。。

准备一个Command1和一个Timer1，假如每隔3秒弹出一个对话框
代码如下：
Private Sub Command1_Click()
MsgBox ""
Timer1.Enabled = True
Timer1.Interval = 3000
End Sub

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

Private Sub Timer1_Timer()
MsgBox ""
End Sub

'添加一个Timer控件

private sub timer1_timer()
msgbox ""
end sub

private sub command1_Click()
timer1.interval=5000
timer1.enabled=true
end sub

private sub form_load()
timer1.enabled=false
end sub

添加个Timer控件 添加如下代码
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("abcd")
End Sub
设置Timer的enabled属性设为 false
再添加个BUTTON按钮添加如下代码
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("abcd")
Me.Time