VB中实现同一窗口的多个实例及控件的动态增减

【 tulaoshi.com - 编程语言 】

----在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下:
　　
　　新建一个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)
　　IfiCount0AndiCount10Then
　　'假定最多只能放10个Label1
　　iIndex=Label1.Count'当前Label1的个数
　　IfiCountiIndexThen
　　'设定值大于实际值则增加相应数目的控件
　　Fori=iIndexToiCount-1
　　LoadLabel1(i)
　　WithLabel1(i)
　　.Left=Label1(0).Left
　　.Top=Label1(i-1).Top 350
　　.Visible=True
　　EndWith
　　Nexti
　　ElseIfiCountiIndexThen
　　'设定值小于实际值则删除多余的控件
　　Fori=iCountToiIndex-1
　　UnloadLabel1(i)
　　Nexti
　　EndIf
　　EndIf
　　EndSub
　　----上面的代码在VB5.0和VB6.0中运行通过.->