一个编程的问题

osfan

VB问题
怎样用鼠标捕捉用MSCHART输出的图表上的点，并显示出点的坐标。可以实现吗？
有谁知道具体步骤吗？？？

厨师

VB不懂，不会用！不知道怎么解决！

e个守望者

没试过，列一个捕捉词的。


先是模块声明：

getword.bas

1. Public Const EM_CHARFROMPOS = &HD7
   
2. Public Const EM_GETLINECOUNT = &HBA
   
3. Public Const EM_GETLINE = &HC4
   
4. Public Const EM_LINEINDEX = &HBB
   
5. Public Const EM_LINELENGTH = &HC1
   
6. 
   
7. Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
   
8. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   

复制代码

然后是form1

1. Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
2.     Dim pos As Long, lc As Long
   
3.     Dim Line As Integer, CharPos As Integer
   
4.    
   
5.     pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
   
6.     lc = SendMessage(Text1.hwnd, EM_CHARFROMPOS, 0, ByVal pos)
   
7.    
   
8.     Line = lc \ 65536
   
9.     CharPos = lc Mod 65536
   
10.    
    
11.     MsgBox "?? = " & GetLine(Text1, Line) & vbCrLf & "单词= " & GetWord(Text1, CharPos)
    
12. End Sub
    
13. 
    
14. Function GetWord(txt As TextBox, pos As Integer) As String
    
15.     Dim bArr() As Byte, pos1 As Integer, pos2 As Integer, i As Integer
    
16.    
    
17.     bArr = StrConv(txt.Text, vbFromUnicode)
    
18.     pos1 = 0: pos2 = UBound(bArr)
    
19.    
    
20.    
    
21.     For i = pos - 1 To 0 Step -1
    
22.         If IsDelimiter(bArr(i)) Then
    
23.             pos1 = i + 1
    
24.             Exit For
    
25.         End If
    
26.     Next
    
27.    
    
28.    
    
29.     For i = pos To UBound(bArr)
    
30.         If IsDelimiter(bArr(i)) Then
    
31.             pos2 = i - 1
    
32.             Exit For
    
33.         End If
    
34.     Next
    
35.    
    
36.     If pos2 > pos1 Then
    
37.         ReDim bArr2(pos2 - pos1) As Byte
    
38.         For i = pos1 To pos2
    
39.             bArr2(i - pos1) = bArr(i)
    
40.         Next
    
41.    
    
42.         GetWord = StrConv(bArr2, vbUnicode)
    
43.     Else
    
44.         GetWord = ""
    
45.     End If
    
46. End Function
    
47. 
    
48. Function IsDelimiter(ByVal Char As Byte) As Boolean
    
49.     Dim S As String
    
50.    
    
51.     S = Chr(Char)
    
52.     IsDelimiter = False
    
53.     If S = " " Or S = "," Or S = "." Or S = "?" Or S = vbCr Or S = vbLf Then
    
54.         IsDelimiter = True
    
55.     End If
    
56. End Function
    
57. 
    
58. Function GetLine(txt As TextBox, ByVal Line As Integer) As String
    
59.     Dim S As String, Length As Integer, pos As Long
    
60.    
    
61.     GetLine = ""
    
62.     pos = SendMessage(txt.hwnd, EM_LINEINDEX, Line, ByVal 0&)
    
63.     Length = SendMessage(txt.hwnd, EM_LINELENGTH, pos, ByVal 0&)
    
64.     S = String(Length, Chr(0))
    
65.     RtlMoveMemory ByVal S, Length, 2
    
66.     If SendMessage(Text1.hwnd, EM_GETLINE, Line, ByVal S) > 0 Then
    
67.         GetLine = S
    
68.     End If
    
69. End Function
    
70. 
    
71. Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
72.     Dim pos As Long, lc As Long
    
73.     Dim Line As Integer, CharPos As Integer
    
74.    
    
75.     pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
    
76.     lc = SendMessage(Text1.hwnd, EM_CHARFROMPOS, 0, ByVal pos)
    
77.    
    
78.     Line = lc \ 65536
    
79.     CharPos = lc Mod 65536
    
80.    
    
81.     Text1.ToolTipText = GetWord(Text1, CharPos)
    
82. End Sub
    

复制代码

厨师

厉害，厉害，呵呵

xiesongd

are you sure this can run???