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

CaseReader
..........\About.frm
..........\About.frx
..........\CaseReader.frm
..........\CaseReader.frx
..........\CaseReader.vbp
..........\CaseReader.vbw
..........\Help.frm
..........\Help.frx
..........\MSSCCPRJ.SCC
..........\Skin.bas

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．