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

isdcnsxcp

isdcnsxcp

2016-02-19 18:27

下面,图老师小编带您去了解一下VB中实现同一窗口的多个实例及控件的动态增减,生活就是不断的发现新事物,get新技能~
----在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下:
  
  新建一个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中运行通过.->

展开更多 50%)
分享

猜你喜欢

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

编程语言 网络编程
VB中实现同一窗口的多个实例及控件的动态增减

如何在同一窗口打开多个Excel

电脑入门
如何在同一窗口打开多个Excel

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在VB中动态添加可响应消息的控件

编程语言 网络编程
在VB中动态添加可响应消息的控件

在VB中实现窗体的动态效果

编程语言 网络编程
在VB中实现窗体的动态效果

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VC程序中实现控件的动态生成与响应

编程语言 网络编程
VC程序中实现控件的动态生成与响应

Excel如何设置在同一窗口打开多个工作表

excel
Excel如何设置在同一窗口打开多个工作表

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

win10怎么设置开机账户自动登录?

win10怎么设置开机账户自动登录?

调用API函数设计ABOUT窗口

调用API函数设计ABOUT窗口
下拉加载更多内容 ↓