vb重复弹框的代码，师傅们帮帮忙。

Public VbOk As String

成都创新互联公司是专业的大方网站建设公司，大方接单;提供做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行大方网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Val(Text1) = Hour(Now) And Val(Text2) - 1 = Minute(Now) Then

Dialog.Show 1  '提前1分钟弹出对话框 

If VbOk = OK Then  '如果对话框按下确认则

语句块.....

End If

End If

End Sub

Dialog代码：

Option Explicit

Private Sub OKButton_Click()

Form1.VbOk = "ok"

Unload Me ‘卸载对话框

End Sub

VB.net的弹出窗口问题

Me.IsMdiContainer = True

Dim f As New Form2

f.MdiParent = Me

f.Show()

VB.NET 窗口弹出问题

你在第一个窗口里写 Form2.ShowDialog()

这样就可以了，关掉form2的时候form1的代码就会继续执行

VB.net怎么定期弹出主窗口？

首先要添加两个窗体，假设第一个窗体名为Form1，第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为：

Private Sub Command1_Click()

Form2.Show '用show方法加载并且显示名为Form2的窗体

End Sub

show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证

VB编程怎么才能设置不断弹出窗口？详细点，谢谢了。。。。

额……抱歉~！不知道你具体的要求……

不过我可以给你个思路~！

使用循环语句

在循环中设置跳出对话框 可以是输入对话框也可以使按钮确定对话框~！

如果你想不断跳出不能停止的话就设置循环条件为1 永久成立

当然，也可以在循环内设置条件中断~！

网站题目：vb.net无限弹出窗口 vbnet关闭窗体不让退出
地址分享：http://lswzjz.com/article/hioiph.html