VB 屏幕取词

如果你装了金山词霸，可以这样

从“引用”中添加XdictGrb.dll

Option Explicit

Implements IXDictGrabSink

Private gp As GrabProxyPrivate Sub Form_Load()

Set gp = New GrabProxy

With gp

.GrabEnabled = True '是否有效

.GrabInterval = 30 '指定拿型抓取时间间隔

.GrabMode = XDictGrabMouse '模式(鼠标是否加按键)

.AdviseGrab Me '接口指向自身End WithEnd SubPrivate Sub Form_Unload(Cancel As Integer)

Set gp = Nothing

End Sub

Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Long, ByVal lCursorY As Long, ByVal SentenceString As String, lLoc As Long, lStart As Long) As Long

Label1.Caption = "当前坐标：" &"(" &lCursorX &"," &lCursorY &")"

Label2.Caption = "当前语句："卜敏樱 &SentenceString

Label3.Caption = "型丛当前字符：" &Mid(SentenceString, lLoc + 1, 1000)

End Function

windows 7 支持有道词典的屏幕取词的猛配裂。

设置有道词典的屏幕取词的步骤：

打开有道词典

在有道词典面板的左下角点击

d出菜单，点击“软件设置”，

d出软件设置对话框，选择“取词画词”按钮，

勾选“启用屏幕取词”对话框，在下面选择要的取词方式，一般选择鼠标取词，如图所示

保存设置，返回界面，用鼠卖笑标选择要翻译的文字，如图所示，（这里以百度的新闻两个字为例子）

选择之后，鼠标在选择的内容枝闭上停留一下，就会d出翻译

有道取词方式根据各人的习惯设置

---