Description: 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 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
To Search:
File list (Check if you may need any files):
CaseReader
..........\About.frm
..........\About.frx
..........\CaseReader.frm
..........\CaseReader.frx
..........\CaseReader.vbp
..........\CaseReader.vbw
..........\Help.frm
..........\Help.frx
..........\MSSCCPRJ.SCC
..........\Skin.bas
Download