| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 841 人关注过本帖
标题:两个相同的Form1隐藏窗体,根据其窗体之Caption名来(.Show)显示窗体?(待解 ...
只看楼主 加入收藏
xzqsml
Rank: 2
等 级:论坛游民
帖 子:41
专家分:47
注 册:2008-6-15
结帖率:90.91%
收藏
已结贴  问题点数:0 回复次数:1 
两个相同的Form1隐藏窗体,根据其窗体之Caption名来(.Show)显示窗体?(待解决)
两个相同的Form1隐藏窗体,根据其窗体之Caption名来(.Show)显示窗体?
在一个工程中,有两个Form1窗体同时打开且被隐藏了..
因为两窗体的名称都是Form1,不能光Form1.Show!!
现要根据Form1窗体的Caption属性名来显示其窗体.(注:两个都为Form1的Caption名不同)

望能得到解决..

[ 本帖最后由 xzqsml 于 2009-12-23 08:52 编辑 ]
搜索更多相关主题的帖子: Caption 隐藏 Show 窗体 
2009-12-23 08:46
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
Dim i As Long
For i = 1 To Forms.Count - 1
    If Forms(i).Caption = "窗体名字" Then
        Forms(i).Show
    End If
Next i

把所有名字为 窗体名字 的窗体显示出来。
我的测试代码如下:

Option Explicit

Private Sub Command1_Click()
'加载二个隐藏窗体
Dim fr As Form1

Set fr = New Form1
fr.Caption = "F1"
fr.Hide

Set fr = New Form1
fr.Caption = "F2"
fr.Hide

End Sub

Private Sub Command2_Click()
'显示F1窗体
Dim i As Long
For i = 1 To Forms.Count - 1
    If Forms(i).Caption = "F1" Then
        Forms(i).Show
    End If
Next i

End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2009-12-23 09:13
快速回复:两个相同的Form1隐藏窗体,根据其窗体之Caption名来(.Show)显示窗体? ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.078445 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved