vb 屏001幕取词程序

vb 屏幕取词on Explicit Public Const EM_CHARFROMPOS = &HD7 Public Const EM_GETLINECOUNT = &HBA Public Const EM_GETLINE = &HC4 Public Const EM_LINEINDEX = &HBB Public Const EM_LINELENGTH = &HC1 Declare Sub RtlMoveOptiMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim pos As Long, lc As Long Dim Line As Integer, CharPos As Integer