742
社区成员
发帖
与我相关
我的任务
分享
Public Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
EnumChildProc = 1
lpClassName = Space(256)
retval = GetClassName(hWnd, lpClassName, 256)
i = InStr(1, lpClassName, Chr(0))
mname = Left(lpClassName, i - 1)
If mname = "Static" Then
SendMessage hWnd, &HD, 64000, Txt(0)
strDebugMsg = StrConv(Txt, vbUnicode)
strDebugMsg = Left(strDebugMsg, InStr(strDebugMsg, Chr(0)) - 1)
If strDebugMsg <> "" Then
frmAddIn.Text1.Text = strDebugMsg
EnumChildProc = 0
End If
End If
End Function
Public Function EnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
lpClassName = Space(256)
retval = GetClassName(hWnd, lpClassName, 256)
i = InStr(1, lpClassName, Chr(0))
mname = Left(lpClassName, i - 1)
If mname = "Static" Then
SendMessage hWnd, &HD, 64000, Txt(0)
strDebugMsg = StrConv(Txt, vbUnicode)
frmAddIn.Text1.Text = strDebugMsg
EnumChildProc = 0
End If
EnumChildProc = 1
End Function