ITPub博客

首页 > Linux操作系统 > Linux操作系统 > XdictGrb.dll应用

XdictGrb.dll应用

原创 Linux操作系统 作者:xelement 时间:2007-12-11 19:05:58 0 删除 编辑

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 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, 1)

End Function

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/778857/viewspace-401/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 没有了~
下一篇: office 控件
请登录后发表评论 登录
全部评论

注册时间:2007-12-11

  • 博文量
    11
  • 访问量
    10972