프로그래밍 블로그

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long '선언하시는곳은 맨위에 적어주세요. 모듈에 해주실꺼면 Private -> Public 고쳐주세요

사용방법 :
FindWindow(lpClassName, lpWindowName)
이런식으로 사용합니다.

예시 -
Debug.Print FindWindow("BuddyBuddy", "버디버디") '디버그창에다가 핸들값 출력
MsgBox FindWindow("BuddyBuddy", "버디버디") '메세지창으로 핸들값 출력

lpClassName : 클레스네임
pWindowName : 윈도우에 표시되는 이름

클레스네임이나 윈도우 네임을 모를때 쓰는 함수 : vbNullString

사용법 :  

FindWindow("vbNullString", lpWindowName)
FindWindow(lpClassName, "vbNullString")

Len() 함수는 모든 문자열을 1바이트로 인식합니다

그와 틀리게

LenB() 함수는 영문은 1바이트 문자는 2바이트로 인식합니다.

그게 Len() 과 LenB()의 차이입니다.

속성에서 OLEDropMode 를 수동으로 설정해주세요!

Option Explicit

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i As Long

    For i = 1 To Data.Files.Count

        If Dir(Data.Files(i)) <> "" Then
            List1.AddItem Dir(Data.Files(i))
        End If
       
    Next
   
End Sub ' 소스적으세용~