答案:
VB中实现同一窗口的多个实例及控件的动态增减 作者:四川省绵阳市爱迪公司 李万昌 | ---- 在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下: 新建一个Form(我使用的是MDIForm,用一般的form也一样,我试过),取名为form1,再建一个窗口取名为form2; 为form1建立菜单项(使用按钮也行): 菜单项:OpenWindow, 子菜单项:open1、open2、open3,子菜单项设为控件数组,名称取为mnuOpen,索引分别为0、1、2; 为菜单mnuOpen编写代码: Private Sub mnuOpen_Click(Index As Integer) Dim myForm As Form '定义变量 For Each myForm In Forms '使用Forms集合 If myForm.Caption = "Window" & CStr(Index + 1) Then '通过查看窗口标题检查该窗口实例是否已打开 myform.windowstate=0 '照原来的尺寸大小和位置打开 myForm.SetFocus '如果已打开,则使其获得焦点 Set myForm = Nothing '释放资源 Exit Sub '跳出过程 End If Next Set myForm = New Form2 '创建Form2的窗体实例 Load myForm myForm.Caption = "Window" & CStr(Index + 1) '设置其Caption属性,也可作其他操作 myForm.Show Set myForm = Nothing End Sub ---- 在我的控制系统中,也用到了控件的动态增减,下面谈谈实现方法. ---- 假设根据一TextBox(名称为Text1)的内容来决定某Label[名称为Label1(0),定为控件数组,索引值Index为0]控件的数目.在Form中放置一个TextBox控件和一个Label控件,取名如前所述;再放置一个命令按钮Command1.在Command1中编程: Private Sub Command1_Click() If IsNumeric(Text1.Text) = False Then Exit Sub '如果Text1中内容不是数字则退出过程 Dim iCount As Integer, i As Integer 'iCount为设定的个数,i为计数器 Dim iIndex As Integer 'iIndex为实际个数 iCount = CInt(Text1.Text) If iCount > 0 And iCount < 10 Then '假定最多只能放10个Label1 iIndex = Label1.Count '当前Label1的个数 If iCount > iIndex Then '设定值大于实际值则增加相应数目的控件 For i = iIndex To iCount - 1 Load Label1(i) With Label1(i) .Left = Label1(0).Left .Top = Label1(i - 1).Top + 350 .Visible = True End With Next i ElseIf iCount < iIndex Then '设定值小于实际值则删除多余的控件 For i = iCount To iIndex - 1 Unload Label1(i) Next i End If End If End Sub ---- 上面的代码在VB5.0和VB6.0中运行通过. |
上一个:VB中实现带预览的对话框
下一个:建立无模式窗口