怎样在vb里比较一个文本框内容与外部程序的文本框内容是否相同？这里的程序总是提示不同，实际明明相同'引入WindowsAPI库PrivateDeclareFunction...
怎样在vb里比较一个文本框内容与外部程序的文本框内容是否相同？这里的程序总是提示不同，实际明明相同'引入Windows API库Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _(ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, _ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_GETTEXT = &HDPrivate Const WM_GETTEXTLENGTH = &HEPrivate Sub Command1_Click()'获取外部程序文本框句柄Dim hWnd As LonghWnd = FindWindow("Notepad", vbNullString) '假设外部程序为NotepadIf hWnd = 0 ThenMsgBox "找不到外部程序！", vbExclamationExit SubEnd IfDim hEdit As LonghEdit = FindWindowEx(hWnd, 0, "Edit", vbNullString) '获取Notepad的文本框句柄If hEdit = 0 ThenMsgBox "找不到文本框！", vbExclamationExit SubEnd If'获取外部程序文本框内容Dim text As StringDim len As Longlen = SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0) '获取文本框内容长度text = String(len + 1, Chr$(0)) '初始化文本框内容字符串Call SendMessage(hEdit, WM_GETTEXT, len + 1, ByVal text) '获取文本框内容'比较文本框内容If Text1.Text = text ThenMsgBox "文本框内容相同！", vbInformationElseMsgBox "文本框内容不同！", vbExclamationEnd IfEnd Sub
展开
选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
}