作者:Modest 引用XdictGrb.dll,自己到词霸目录找。 严重注意:要金山词霸2005的版本中的dll,2003版的我未测试成功。新建项目,在新窗体中添加3个Label,名称默认。窗体中代码如下: Option Explicit Implements IXDictGrabSink Private gp As GrabProxy Private Sub Form_Load() Set gp = New GrabProxy With gp .GrabEnabled = True .GrabInterval = 30 .GrabMode = XDictGrabMouse .AdviseGrab Me End With End SubPrivate 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, 1) End Function
Anylib推出新版本,自由界面和报表的完美组合! http://www.anylib.com
我只有2001的,好象没这个DLL。
Set gp = New GrabProxy With gp .GrabEnabled = True我用2006版的XdictGrb.dll,vb在这里说自动化错误
引用XdictGrb.dll,自己到词霸目录找。
严重注意:要金山词霸2005的版本中的dll,2003版的我未测试成功。新建项目,在新窗体中添加3个Label,名称默认。窗体中代码如下:
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxy
Private Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True
.GrabInterval = 30
.GrabMode = XDictGrabMouse
.AdviseGrab Me
End With
End SubPrivate 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, 1)
End Function
http://www.anylib.com
With gp
.GrabEnabled = True我用2006版的XdictGrb.dll,vb在这里说自动化错误