clswindow使用案例：防止vb程序重复打开，如果重复打开则激活当前已经打开的程序

背景

我们在用vb开发程序时有时需要限制不可以多次打开程序，因为可能会造成误操作或者干扰，比如某个使用vb开发的管理系统已经在运行中了，只是最小化在任务栏，用户没注意以为误以为没打开，从桌面上双击图标导致又打开了一次，这不是我们所期望的。我们期望的是再次双击的时候能把当前已经打开的程序激活显示到最前端。客户一看，哦，原来我已经打开过了，并且窗口显示的是我正在操作的某个模块。

说明：

本案例是使用clsWindow2.2框架上进行开发的，限制程序重复打开，让相同进程重复打开仅保留最早实例并激活窗口。需要注意的是本程序只适用于vb程序，而clswindow是vb下的一个开源框架，它主要处理些桌面窗口的一些自动化操作，有点类似按键精灵，只是它和vb紧密结合在一起了。

测试环境：

win7x64 + clsWindow2.2

说明： 如果不能用可能是您的版本太旧，或者操作系统版本不一样，请仔细检查并修改相应代码。以下代码2020-10-21测试通过，本代码不保证更新。

声明：

本代码免费，可用于任何商业用途，但请勿做非法用途，所引起的一切后果由使用者本人承担。

代码：

请向添加Form1窗口，然后复制下面代码进去，编译好exe程序后双击测试，请勿直接在VB开发环境测试。

Private Sub Form_Load()
    Dim w As New clsWindow
    If w.GetWindowByAppName(App.EXEName, 0, , DisplayedWindow).hWnd <> 0 Then
        w.Focus
        w.Shake '抖动
        End
    End If
End Sub

工程打包下载地址： 链接: pan.baidu.com/s/1BV9ZiJ2V… 提取码: v4nr

如果目标窗体是隐藏的，或者工程中有多个窗体该怎么办？可以下载参考，里面提供了多种方法。