zoukankan      html  css  js  c++  java
  • 防止重复运行程序并且激活当前正在运行的窗口

    Option Explicit
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Sub Form_Load()
        Dim appCaption$, firstPopHWnd&
        If App.PrevInstance Then
            appCaption = Me.Caption
            Me.Caption = appCaption & " "
            firstPopHWnd = FindWindow("ThunderRT6FormDC", appCaption)
            SetForegroundWindow firstPopHWnd&
            End
        End If
    End Sub

  • 相关阅读:
    Python生成器
    Python迭代器
    模块
    列表推倒式
    内置函数 lambda表达式
    函数
    global、nonlocal、迭代器
    练习
    编码数组字典
    字典
  • 原文地址:https://www.cnblogs.com/sysdzw/p/1939381.html
Copyright © 2011-2022 走看看