新建VB.net工程并引用XdictGrb.dll组件(该组件在金山词霸安装目录可找到,或点此处下载);
代码
Public Class Form1
Inherits Form
Implements XDICTGRB.IXDictGrabSink
Public Function QueryWord(ByVal WordString As String, ByVal lCursorX As Integer, ByVal lCursorY As Integer, ByVal SentenceString As String, ByRef lLoc As Integer, ByRef lStart As Integer) As Integer Implements XDICTGRB.IXDictGrabSink.QueryWord
Me.TextBox1.Text = SentenceString '鼠标所在语句
Me.TextBox1.Text = SentenceString.Substring(lLoc + 1, 1) '鼠标所在字符
Return 1
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim gp As New XDICTGRB.GrabProxy()
gp.GrabInterval = 1 '指抓取时间间隔
gp.GrabMode = XDICTGRB.XDictGrabModeEnum.XDictGrabMouse '设定取词的属性
gp.GrabEnabled = True '是否取词的属性
gp.AdviseGrab(Me)
End Sub
End Class
按F5运行工程后,所取到的词将在当前窗体中的 TextBox1.Text 文本框里显示。