vb.net无限弹出窗口 vbnet关闭窗体不让退出

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

Public VbOk As String

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

相关问答

Q1: VB.net的弹出窗口问题

Me.IsMdiContainer = True

Dim f As New Form2

f.MdiParent = Me

f.Show()

Q2: VB.NET 窗口弹出问题

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

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

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

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

Private Sub Command1_Click()

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

End Sub

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

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

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

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

使用循环语句

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

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

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