如何能判断工程中某个form已经在load状态下? 有没有特定的参数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if [表单名].Visible = True then '没有被LOAD上 Dim ObjForm as FormFor Each ObjForm In Screen.Forms if ObjForm.Name = "AAA" then msgBox "窗口AAA已经被装载 !" Exit For endifNext Dim ObjForm as FormFor Each ObjForm In Forms if ObjForm.Name = "AAA" then msgBox "窗口AAA已经被装载 !" Exit For endifNext Option ExplicitDim f As Form2Private Sub Command1_Click() If f Is Nothing Then Set f = New Form2 End If f.ShowEnd Sub 倒!上面两位都可以,但窗体名字如果是英文,要注意大小写----------------------------------------------- carefulman(我要进步!) 的代码也可以吗?与本问题,风马牛不相及呀!同意 Begin2008(重头再来) 一个简单的问题,如果用户修改了FORM2的窗体标题怎么办?到哪里区找这个窗体呢?同样时限制一个窗体只被显示LOAD一次,不知道你的“风马牛不相及”结论怎么来的 frm.show vbmodal这样就不怕了。嘿嘿。你试试 【菜鸟提问VB6.0】点击网页中的提交按钮 vb 在excel中作图 如何在已经存有海量数据的SQLSERVER数据中快速插入新记录 版本的兼容性 用“ASP+VBScript+SQL SERVER”作一个B/S结构的客户投诉系统,需要多少人民币 如何让文本、图标等变灰? VB到底好在那里? 如何在VB中使用调试? 请大家帮帮忙阿,万分感谢!! VB+SQL 数据统计问题 怎么将dll注入ie 在线 谢谢 CreateThread 创建线程时 如何传递参数
'没有被LOAD上
if ObjForm.Name = "AAA" then
msgBox "窗口AAA已经被装载 !"
Exit For
endif
Next
if ObjForm.Name = "AAA" then
msgBox "窗口AAA已经被装载 !"
Exit For
endif
Next
Dim f As Form2Private Sub Command1_Click()
If f Is Nothing Then
Set f = New Form2
End If
f.Show
End Sub
----------------------------------------------- carefulman(我要进步!) 的代码也可以吗?
与本问题,风马牛不相及呀!同意 Begin2008(重头再来)
到哪里区找这个窗体呢?
同样时限制一个窗体只被显示LOAD一次,不知道你的“风马牛不相及”结论怎么来的
这样就不怕了。嘿嘿。你试试