屏幕取词

新建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 文本框里显示。

 

转载于:https://www.cnblogs.com/yongwnet/archive/2009/02/26/1399140.html