新建一个Form(我使用的是MDIForm,用一般的form也一样,我试过),取名为form1,再建一个窗口取名为form2;
为form1建立菜单项(使用按钮也行):
菜单项:OpenWindow,
子菜单项:open1、open2、open3,子菜单项设为控件数组，名称取为mnuOpen,索引分别为0、1、2；
为菜单mnuOpen编写代码:
PrivateSubmnuOpen_Click(IndexAsInteger)
DimmyFormAsForm定义变量
ForEachmyFormInForms使用Forms集合
IfmyForm.Caption="Window"&CStr(Index 1)Then
通过查看窗口标题检查该窗口实例是否已打开
myform.windowstate=0照原来的尺寸大小和位置打开
myForm.SetFocus如果已打开,则使其获得焦点
SetmyForm=Nothing释放资源
ExitSub跳出过程
EndIf
Next
SetmyForm=NewForm2创建Form2的窗体实例
LoadmyForm
myForm.Caption="Window"&CStr(Index 1)
设置其Caption属性,也可作其他操作
myForm.Show
SetmyForm=Nothing
EndSub
----在我的控制系统中,也用到了控件的动态增减,下面谈谈实现方法.
----假设根据一TextBox(名称为Text1)的内容来决定某Label[名称为Label1(0),定为控件数组,索引值Index为0]控件的数目.在Form中放置一个TextBox控件和一个Label控件,取名如前所述;再放置一个命令按钮Command1.在Command1中编程:
PrivateSubCommand1_Click()
IfIsNumeric(Text1.Text)=FalseThenExitSub
如果Text1中内容不是数字则退出过程
DimiCountAsInteger,iAsInteger
iCount为设定的个数,i为计数器
DimiIndexAsInteger
iIndex为实际个数
iCount=CInt(Text1.Text)
IfiCount>0AndiCount<10Then
假定最多只能放10个Label1
iIndex=Label1.Count当前Label1的个数
IfiCount>iIndexThen
设定值大于实际值则增加相应数目的控件
Fori=iIndexToiCount-1
LoadLabel1(i)
WithLabel1(i)
.Left=Label1(0).Left
.Top=Label1(i-1).Top 350
.Visible=True
EndWith
Nexti
ElseIfiCount<iIndexThen
设定值小于实际值则删除多余的控件
Fori=iCountToiIndex-1
UnloadLabel1(i)
Nexti
EndIf
EndIf
EndSub
----上面的代码在VB5.0和VB6.0中运行通过.->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
