Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Sub Command1_Click() Dim i, j As String Dim hwnd As Long j = Space(255) hwnd = FindWindow(vbNullString, "data:, - Google Chrome") If hwnd > 0 Then ShowWindow hwnd, &H6 End If End Sub
其中&H6可以为&H1-6
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!