Option Strict OffOption Explicit OnImports pcedm字段翻译.WebReferenceImports SystemImports System.DataImports System.Data.OleDbImports System.WebImports System.Web.ServicesImports System.ConfigurationImports System.Windows.FormsImports System.NetImports System.IOImports System.ReflectionImports System.XmlImports XDICTGRBPublic Class Form1 '首先 运行 regsvr32 注册XdictGrb2.dll '然后添加引用这个文件 Inherits System.Windows.Forms.Form Implements XDICTGRB.IXDictGrabSink Dim MyService As New pcedm字段翻译.WebReference.ServiceDBDataSet Dim ip As String Dim flag As Integer Private gp As XDICTGRB.GrabProxy Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load '绘制不规则窗口 'Dim a As Region 'Dim b As New System.Drawing.Drawing2D.GraphicsPath() 'b.AddEllipse(0, 0, 200, 200) 'a = New Region(b) 'Me.Region = a '调用XDICTGRB gp = New XDICTGRB.GrabProxy With gp .GrabEnabled = True .GrabInterval = 30 .GrabMode = XDICTGRB.XDictGrabModeEnum.XDictGrabMouse .AdviseGrab(Me) 'Label1.Text = TypeName(Me) End With End Sub Private Function IXDictGrabSink_QueryWord(ByVal WordString As String, ByVal lCursorX As Integer, ByVal lCursorY As Integer, ByVal SentenceString As String, ByRef lLoc As Integer, ByRef lStart As Integer) As Integer Implements XDICTGRB.IXDictGrabSink.QueryWord ''Me.Hide() Label1.Text = SentenceString '鼠标所在语句 Label2.Text = SentenceString.Substring(lLoc, 1) '鼠标所在字符 Label3.Text = lCursorX.ToString() + " " + lCursorY.ToString() Label4.Text = GetWord(SentenceString, lLoc + 1) '取得单词 End Function '取得单词函数 Private Function GetWord(ByVal SentenceString As String, ByVal lLoc As Integer) As String Dim iR As Integer = 0 Dim iL As Integer = 0 Dim ilen As Integer = 0 ilen = SentenceString.Length Dim str As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" For iL = lLoc To 0 - 1 Step iL - 1 If str.IndexOf(SentenceString.Substring(iL, 1)) = -1 Then Exit For End If Next For iR = lLoc To ilen - 1 Step iR + 1 If str.IndexOf(SentenceString.Substring(iR, 1)) = -1 Then Exit For End If Next Return SentenceString.Substring(iL + 1, iR - iL - 1) End FunctionOption Strict OffOption Explicit OnImports pced 你的当前访问异常,请进行认证后继续阅读剩余内容。 提交