vb.net鼠标取词,电脑鼠标取词翻译
vb如何实现屏幕取词
用API函数GetWindowText。
10年积累的成都做网站、成都网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站制作后付款的网站建设流程，更有青山湖免费网站建设让你可以放心的选择与我们合作。
GetWindowText
VB声明
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
说明
取得一个窗体的标题文字，或者一个控件的内容
返回值：Long，复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
参数表
hwnd： Long，欲获取文字的那个窗口的句柄
lpString： String，预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
cch： Long，lpString缓冲区的长度
注解
不能用它从另一个应用程序的编辑控件中获取文字
我要补充以下，如果不知道句柄，那么可以用For计数循环进行穷举。
VB 屏幕取词
如果你装了金山词霸，可以这样
从“引用”中添加XdictGrb.dll
Option Explicit
Implements IXDictGrabSink
Private gp As GrabProxyPrivate Sub Form_Load()
Set gp = New GrabProxy
With gp
.GrabEnabled = True '是否有效
.GrabInterval = 30 '指定抓取时间间隔
.GrabMode = XDictGrabMouse '模式(鼠标是否加按键)
.AdviseGrab Me '接口指向自身End WithEnd SubPrivate 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
vb.net textbox1.text 鼠标一点 全部选择
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
TextBox1.SelectAll()
TextBox1.ForeColor = Color.Blue
End Sub
如果不想每次都这样的话，就加一个if判断TextBox1.ForeColor 是否是Color.Blue就可以了
vb.net如何读取WebBrowser中鼠标选择的文字
添加引用：Microsoft.mshtml，然后代码如下即可：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'获取用户选中的文字
Dim htmlDocument As mshtml.IHTMLDocument2 'IHTMLDocument2
htmlDocument = WebBrowser1.Document.DomDocument
Dim currentSelection As mshtml.IHTMLSelectionObject
currentSelection = htmlDocument.selection
Dim range As mshtml.IHTMLTxtRange
If Not (currentSelection Is Nothing) Then
range = currentSelection.createRange()
If Not (range Is Nothing) Then
MsgBox(range.text)
'tbKeyWord.Text = range.text;
End If
End If
End Sub
网页名称：vb.net鼠标取词,电脑鼠标取词翻译
本文地址：http://cdiso.cn/article/hddjpo.html
