用VB开发即指即译的翻译器
Option Explicit
Private Const EM_CHARFROMPOS = &HD7
Private Type POINTAPI
X As Long
Y As Long
End Type
Private 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 Form_Load()
Dim dbname As String
Data1.Visible = False
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "词汇"
Data1.DatabaseName = dbname
RichTextBox1.Text = "how are you"
End Sub
Private Sub Richtextbox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim postwip As POINTAPI
Dim pos As Integer
Dim first_pos As Integer
Dim last_pos As Integer
Dim ch As String
Dim txt1 As String
Dim textlength As Integer
Dim txt2 As String
Dim sql As String
' 把位置坐标转换为像素.
postwip.X = X \ Screen.TwipsPerPixelX
postwip.Y = Y \ Screen.TwipsPerPixelY
'获得字符的值
pos = SendMessage(RichTextBox1.hWnd, EM_CHARFROMPOS, 0&, postwip)
If pos > 0 Then
'查找单词的开始位置.
txt1 = RichTextBox1.Text
For first_pos = pos To 1 Step -1
ch = Mid$(RichTextBox1.Text, first_pos, 1)
' 非字母，退出循环
If Not ((ch >= "a" And ch <= "z") Or (ch >= "A" And ch <= "Z")) Then Exit For
Next first_pos
first_pos = first_pos + 1
'查找单词的结尾位置
textlength = Len(txt1)
For last_pos = pos To textlength
ch = Mid$(txt1, last_pos, 1)
' 非字母，退出循环
If Not ((ch >= "a" And ch <= "z") Or (ch >= "A" And ch <= "Z"))
Then Exit
For
Next last_pos
last_pos = last_pos - 1
'通过开始位置，结尾位置取单词
If first_pos <= last_pos Then
txt2 = Mid$(txt1, first_pos, last_pos - first_pos + 1)
End If
End If
sql = "select * from 词 where 英文='" & txt2 & "'"
Data1.RecordSource = sql
Data1.Refresh
'若数据集中存在匹配单词，则显示该单词的中文意思，否则显示空串
If Data1.Recordset.BOF And Data1.Recordset.EOF Then
Text1.Text = " "
Else
Text1.Text = Data1.Recordset("中文")
End If
End Sub
