7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
choubaguai 2000-07-18
- 打赏
- 举报
dim frm as form
for each frm in forms
list1.additem frm.name
next
for each frm in forms
list1.additem frm.name
next
bamboo 2000-06-26
- 打赏
- 举报
同意ghoststudio和un1的看法。另外，如果窗体总数较少，可以用一些标志变量来判断(如按钮的按下与否等)。
ghoststudio 2000-06-15
- 打赏
- 举报
如果是MDI窗体，Forms(0)为MDIForm
Forms.Count为个数
Forms(i).Name为为窗体的名称
Forms.Count为个数
Forms(i).Name为为窗体的名称
yaomac 2000-06-15
- 打赏
- 举报
可以读formname.hWnd，如果大于0则该form以被打开。
Un1 2000-06-15
- 打赏
- 举报
dim f as form
for each f in forms
select case typename(f)
case "form1"
'form1 has been loaded
case "form2"
'form2 has been loaded
case ...
end select
next
for each f in forms
select case typename(f)
case "form1"
'form1 has been loaded
case "form2"
'form2 has been loaded
case ...
end select
next
