CDN加速镜像 | 设为首页 | 加入收藏夹
当前位置: 首页 资源下载 文档资料 软件工程

文件名称: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/
CaseReader/About.frm
CaseReader/About.frx
CaseReader/CaseReader.frm
CaseReader/CaseReader.frx
CaseReader/CaseReader.vbp
CaseReader/CaseReader.vbw
CaseReader/Help.frm
CaseReader/Help.frx
CaseReader/MSSCCPRJ.SCC
CaseReader/Skin.bas

相关说明

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

相关评论

暂无评论内容.

发表评论

*快速评论: 推荐 一般 有密码 和说明不符 不是源码或资料 文件不全 不能解压 纯粹是垃圾
*内  容:
*验 证 码:
搜珍网 www.dssz.com