文件名称:CaseReader
- 所属分类：
- 软件工程
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2014-06-10
- 文件大小：
- 9kb
- 下载次数：
- 1次
- 提 供 者：
- ma***
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
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
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