VB如何隐藏两个相同的窗体 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → VB如何隐藏两个相同的窗体

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1156 人关注过本帖

标题：VB如何隐藏两个相同的窗体

取消只看楼主加入收藏

msxjc

等　级：新手上路
帖　子：83
专家分：0
注　册：2005-3-28
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：3

VB如何隐藏两个相同的窗体

比如说，我打开了两个“计算器”窗口，并且这两个窗口都处于可见状态，现在我要用VB写个程序，实现点击COMMAND1以后，两个“计算器”窗口同时被隐藏。退出程序时，两个窗口同时恢复可见。不知道如何操作？只有一个窗体的情况下，我已经测试成功。

[ 本帖最后由 msxjc 于 2011-4-25 14:43 编辑 ]

搜索更多相关主题的帖子: 计算器　

2011-04-25 14:42

msxjc

等　级：新手上路
帖　子：83
专家分：0
注　册：2005-3-28

第 2 楼

得分:0

以下是引用风吹过b在2011-4-25 15:55:55的发言：

你第一个是怎么办到的？？

搜索窗体，得到 HWND ，然后再发消息？

那你可以不可以改为枚举进程，进而得到计算器的 HWND ，再来发消息？？

第一个是使用findwindow窗体名称，从而得到句柄，然后隐藏。
现在问题是，第一个隐藏了以后，再使用findwindows窗体名称，得到的还是已经隐藏的那个窗体的句柄啊。无法判断这个句柄的窗体是否已经隐藏。

2011-04-25 16:12

msxjc

等　级：新手上路
帖　子：83
专家分：0
注　册：2005-3-28

第 3 楼

得分:0

以下是引用qq1023569223在2011-4-25 18:56:45的发言：

Form.Hide Form.Visible=False Form.show Form.Visible=true

我要隐藏的是第三方EXE程序的窗口，又不是VB自身的窗体。这些语句又不是不懂。

2011-04-25 19:16

msxjc

等　级：新手上路
帖　子：83
专家分：0
注　册：2005-3-28

第 4 楼

得分:0

以下是引用bczgvip在2011-4-26 02:19:53的发言：

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Sub Form_Load()
Const SCICALL As String = "SciCalc"
    Dim lret As Long
    lret = FindWindow(SCICALL, vbNullString)
    Do While lret
        Debug.Print "SciCalc", Hex$(lret)
        lret = FindWindowEx(0, lret, SCICALL, vbNullString)
    Loop
End Sub

不知道您这段代码是如何使用的。是一部分，还是完整代码，我复制您的代码，并且运行，没有任何效果。

2011-04-27 08:33

快速回复：VB如何隐藏两个相同的窗体