Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Sub Command1_Click() Dim lProcessId As Long '进程ID Dim lThread As Long '线程 Dim lhwnd As Long '窗体的句柄 lhwnd = Me.hwnd lThread = GetWindowThreadProcessId(lhwnd, lProcessId) Debug.Print lProcessId & "," & lThread End Sub
Private Sub Command1_Click()
Dim lProcessId As Long '进程ID
Dim lThread As Long '线程
Dim lhwnd As Long '窗体的句柄
lhwnd = Me.hwnd
lThread = GetWindowThreadProcessId(lhwnd, lProcessId)
Debug.Print lProcessId & "," & lThread
End Sub