----在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下:
新建一个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...[ 查看全文 ]