私有子命令1_Click()
EnumChildWindows GetDesktopWindow，AddressOf EnumChildProc，ByVal 0 & amp
末端接頭
模塊代碼如下
公共聲明函數GetDesktopWindow Lib "user32 "()為Long
公共聲明函數EnumChildWindows Lib " user 32 "(ByVal hwnd parent為Long，ByVal lpEnumFunc為Long，ByVal lParam為Long)為Long
公共聲明函數getwindowtextlib“user 32”別名“GetWindowTextA”(ByVal hwnd為Long，ByVal lpString為String，ByVal cch為Long)為Long
公共函數enumchilproc(ByVal hwnd為Long，ByVal lParam為Long)為Long
Dim另存為字符串* 255
GetWindowText hwnd，sSave，255
如果為空(sSave)& lt；& gt”“那就形成1。List1。AddItem hwnd & amp“，”& ampsSave
enumchilproc = 1
結束功能
公共函數Blank(ByVal szString As String)作為字符串
將l標註為整數
l = InStr(szString，Chr(0))
如果l & gt那麽0
Blank = Left(szString，l - 1)
其他
Blank = szString
如果…就會結束
結束功能