没有合适的资源?快使用搜索试试~ 我知道了~
VB中实现同一窗口的多个实例及控件的动态增减...
5星 · 超过95%的资源 需积分: 12 13 下载量 178 浏览量
2009-10-08
01:56:57
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
3页
VB中实现同一窗口的多个实例及控件的动态增减
资源推荐
资源详情
资源评论
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
四川省绵阳市爱迪公司
李万昌
---- 在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下:
新建一个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
资源评论
- vanyariny2014-04-21调试通过,在特定场合可以代替分页标签
- liguil2013-09-29我现在正需要
求伯乐
- 粉丝: 22
- 资源: 3095
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功