vb Load加载窗体

来源：百度知道 编辑：UC知道 时间：2024/06/06 18:51:31
在form1的Private Sub Form_Load()
加载
Load Form14
Load Form15
Load Form16
Load Form17
Load Form18
Load Form19
Load Form20
Load Form21
Load Form22
Load Form23
Load Form24
Load Form25
Load Form26
Load Form27
Load Form28
Load Form29
Load Form30
Load Form31
Load Form32
Load Form33
Load Form34
Load Form35
Load Form36
Load Form37
Load Form38
Load Form39
Load Form40
Load Form41
Load Form42
Load Form43
Load Form44
Load Form45
Load Form46
Load Form47
Load Form48
Load Form49
Load Form50
Load Form51
Load Form52
Load Form53

14到53窗体，或加载全部窗体也行，速度快的该怎么写
老师，如果是3窗体到10窗体呢

On Error Resume Next
Dim frm, rtS As String

For Each frm In Forms
rtS = Right(frm.Name, 2)
'获取右两位字符，避免重复运算降低速度

If Val(rtS) >= 3 And Val(rtS) <= 10 Then
'如果窗体名字右两位字符是3~10则加载它
Load frm
End If

Next

netbartp不要误导初学者啊，For....Next怎么被你变成了For....End if.即便如此，Vb里也不允许设置窗体数组，不过可以利用对象思想，用属性函数操作。

...
建立成数组的多好控制呀~.

for i=1 to 60
load form(i)
end if