求教:有窗体form1,form2,form3
form1为启动窗体,form1上有一个timer1控件,form2上有command1(unload me),
我做了一个判断: 如果当前目录有aaa,则加载form3,如无,则加载form2,当关闭form2后,在显示form3
Private Sub Form1_Load()
vv
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Dir(App.Path & "\aaa", vbDirectory) <> "" Then
Unload Me
form3.Show
Else
Unload Me
form2.Show
End If
End Sub
(我想当form2卸载后,显示form3,但这不写在form2里的command1里)
form2:
Private Sub Command1_Click
unload me
form3.show
end sub
求教该如何判断form2关闭,谢谢!!!!
form1为启动窗体,form1上有一个timer1控件,form2上有command1(unload me),
我做了一个判断: 如果当前目录有aaa,则加载form3,如无,则加载form2,当关闭form2后,在显示form3
Private Sub Form1_Load()
vv
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If Dir(App.Path & "\aaa", vbDirectory) <> "" Then
Unload Me
form3.Show
Else
Unload Me
form2.Show
End If
End Sub
(我想当form2卸载后,显示form3,但这不写在form2里的command1里)
form2:
Private Sub Command1_Click
unload me
form3.show
end sub
求教该如何判断form2关闭,谢谢!!!!
解决方案 »
- VB 如何将记录集如何写入数据库
- picture控件里的图片传到剪贴板
- SysTray控件(托盘)怎么能动态改变图标?
- 在VB中wsArray对象的作用是什么 怎么使用?
- 我在学习ActiveReport,顺便翻译了一点它的Help
- 如何用DAO建立查询,以及存储?
- 求 VB连接MYSQL 5.0方法...
- 急,求助: 1.在VISTA系统中如何注册VB开发的DLL ??(在WINDOWS2000是用regsvr32. )
- shell参数问题,知道请帮忙谢谢!
- 用select * from [sheet1$]访问EXCEL,如果不知道SHEET1的名,如何处理,请指教!
- 高手来看看(送200分)
- 在vb中能超类化化吗?
Private Sub Form_Unload(Cancel As Integer)
form3.show
End Sub
Private Sub Timer1_Timer()
If Dir(App.Path & "\aaa", vbDirectory) <> "" Then
Unload Me
form3.Show
Else
Unload Me
form2.Show
End If
End Sub