十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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
Me.IsMdiContainer = True
Dim f As New Form2
f.MdiParent = Me
f.Show()
你在第一个窗口里写 Form2.ShowDialog()
这样就可以了,关掉form2的时候form1的代码就会继续执行
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
额……抱歉~!不知道你具体的要求……
不过我可以给你个思路~!
使用循环语句
在循环中设置跳出对话框 可以是输入对话框也可以使按钮确定对话框~!
如果你想不断跳出不能停止的话就设置循环条件为1 永久成立
当然,也可以在循环内设置条件中断~!