读书人

VB引用金山词霸取词出现的有关问题〖高

发布时间: 2012-04-14 17:14:21 作者: rapoo

VB引用金山词霸取词出现的问题〖高分求助〗
//引用XdictGrb2.dll

VB code

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 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 = " 当前语句: " & SentenceStringLabel3.Caption = " 当前字符: " & Mid (SentenceString, lLoc + 1 , 1 ) End Function
取AfxFramOrView42这个控件的字,字少的时候还可以,字多了后面的就取不出来的,请问这是怎么回事?

[解决办法]
看看这个
[解决办法]
要想取出没显示的字估计得调用API ReadProcessMemory了。
[解决办法]
是不是所取内容超过了String的范围,返回值是String类型的。

读书人网 >VB

热点推荐