从品牌网站建设到网络营销策划,从策略到执行的一站式服务
VB.net 加载窗体 form2.show() 卸载窗体 me.close()加载窗体和VB没啥区别,而卸载就截然不同了。附:VB 加载窗体 form2.show 卸载窗体 unload me
创新互联-专业网站定制、快速模板网站建设、高性价比类乌齐网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式类乌齐网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖类乌齐地区。费用合理售后完善,10多年实体公司更值得信赖。
首先定义一个全局变量F
Private Sub Form_Load()
f=1
End Sub
Private Sub Form_Unload(Cancel As Integer)
f=0
End Sub
然后判断F的值,如果F不为0,说明Form1已经加载。否则说明Form1没有加载。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long Dim lngAns As Long lngAns = FindWindow(vbNullString, "要查找窗体的CAPTION") lngAns = IsWindow(lngAns) If lngAns 0 Then MsgBox "窗体已经被加载!", vbOKOnlyEndElseMsgBox "窗体未被加载!", vbOKOnlyEnd If方法2:访问Forms集合,也是通过Caption判断 '在Forms集合中进行遍历 For Each frmEach In Forms If frmEach Is frmTest Then '这样判断也可以 blnResult = TrueExit ForEnd If方法3:访问Forms集合,通过name判断 Private Function IsLoad(ByVal frmTest As Form) As Boolean Dim frmEach As Form Dim blnResult As Boolean blnResult = False '在Forms集合中进行遍历
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图