屏幕取词
发布时间:2020-12-16 22:44:27 所属栏目:大数据 来源:网络整理
导读:金山词霸中2005中带了一个 XdictGrb.dll ,其实是一个COM组件,并且实现了一个取词的插件框架。 其中的有以下内容: 1 接口 1.1 GrabProxy 取词代理对象 Function AdviseGrab(XDictGrabSink As IXDictGrabSink) As Long 广播一个XDictGrabSink(如果要实现取
金山词霸中2005中带了一个
XdictGrb.dll,其实是一个COM组件,并且实现了一个取词的插件框架。
其中的有以下内容:
1 接口
2 常量定义
3 示例代码(使用VB6实现)
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,lStart As Long) As Long
Label1.Caption = "当前坐标:" & "(" & lCursorX & "," & lCursorY & ")" Label2.Caption = "当前语句:" & SentenceString Label3.Caption = "当前字符:" & Mid(SentenceString,lLoc + 1,1000)
End Function
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |