文件名称:CaseReader

介绍说明--下载内容均来自于网络,请自行研究使用

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-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

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度更多...
  • 请直接用浏览器下载本站内容,不要使用迅雷之类的下载软件,用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.

相关评论

暂无评论内容.

发表评论

*主  题:
*内  容:
*验 证 码:

源码中国 www.ymcn.org