1,486
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Command1_Click()
Dim i As Long
i = FindWindow(vbNullString, "老白老宋")
msgbox& i '显示窗体句柄
End sub