수다닷컴

연습용으로 만들어본 소스입니다. 비베에서 실행을 하면 성공으로 뜨지만 실행파일로 만들면 실패만 뜹니다, 이유가 무엇일까요?

Private Declare Function FindWindow Lib user32.dll Alias FindWindowA (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib user32 Alias FindWindowExA (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Sub Form_Load()
Dim hWnd1 As Long
Dim hWnd2 As Long
Dim hWnd3 As Long
hWnd1 = FindWindow(ThunderRT6FormDC, Form1)
hWnd2 = FindWindowEx(hWnd1, O&, ThunderRT6ListBox, vbNullString)

If hWnd2 Then
MsgBox (성공)
Else
MsgBox (실패)
End If
End Sub

신청하기