一个小技巧关于PrevInstance的

最新推荐文章于 2023-08-31 10:00:00 发布

chenhui530

最新推荐文章于 2023-08-31 10:00:00 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

文章标签： vb function string user

本文链接：https://blog.csdn.net/chenhui530/article/details/1935422

本文介绍了一种让已运行程序在再次启动时将其主界面切换到前台的方法。通过使用Windows API函数如FindWindow、SetForegroundWindow及SendMessage等，可以实现这一功能。此技巧适用于希望优化用户体验的软件开发者。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我们时常会看到某些软件有这样的功能.
当程序已经运行的时候再运行这个程序程序会把以前运行的主界面显示在前台来.下面代码就是这个功能.

VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "李小俊是个猪头"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3 '窗口缺省
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_RESTORE = &HF120&

Private Sub Form_Load()
    Me.WindowState = 1
    If App.PrevInstance Then
        Me.Caption = ""
        Dim hWnd As Long
        hWnd = FindWindow(vbNullString, "李小俊是个猪头")
        If hWnd > 0 Then
            SendMessage hWnd, WM_SYSCOMMAND, SC_RESTORE, 0
            SetForegroundWindow hWnd
            Unload Me: End
        End If
    End If
End Sub