VB.net中代码如何写，当选中文本为粗体时单击按钮变成正常的，反之变为粗体，其它不要变？

vb.net 没用过，不过估计richtextbox控件应该有selbold这个属性

创新互联主打移动网站、成都网站建设、网站设计、网站改版、网络推广、网站维护、域名注册、等互联网信息服务，为各行业提供服务。在技术实力的保障下，我们为客户承诺稳定，放心的服务，根据网站的内容与功能再决定采用什么样的设计。最后，要实现符合网站需求的内容、功能与设计，我们还会规划稳定安全的技术方案做保障。

If RT1.SelBold = False Then

RT1.SelBold = True

Else

RT1.SelBold = False

End If

这样就行。如果没有这个属性就不会了

VB.NET中怎样用API获得文本框中的选中文本

Public Declare Auto Function GetWindowText Lib "user32" Alias "GetWindowText" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer

Public Declare Auto Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLength" (ByVal hwnd As Integer) As Integer

Public Function GetText(ByVal hwnd As Integer) As String

Dim nLen As Integer

nLen = GetWindowTextLength(hwnd)

GetText = Space(nLen)

GetWindowText(hwnd, GetText, nLen)

End Function

VS2008测试通过, 函数GetText传入的就是对应文本框的句柄.

vb.net 怎样实现替换文本框中选中的文字，和在光标出插入文字

1.选中要替换文本框中文字直接出入即可.

2.从textbox的属性中设置:双击textbox1,打开其代码框在光标处输入TextBox1.Text = "你好！",你好是输入的内容.

VB.net Richtextbox中怎么找到并选中已经选中的字符串的前面的相同字符串？

string.LastIndexOf(搜索的字符串, 位置)

位置 = 已经选中的字符串在整个文本中的Index序号

vb.net textbox1选中的文本，拖放到textbox2？

很久没有上这里了，今天看到了这个问题，尝试做了一个；

本例以源文本框TextBox1全部文字作为拖放文字为例，实现拖放

1、向一个窗体中添加两个文本框，分别名为TextBox1，TextBox2。注意：把TextBox2控件的AllowDrop属性设置成True，这点不要遗漏。

2、完整的代码如下：

Public Class Form1

Private MouseIsDown As Boolean = False

Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown

'设置一个标志以显示鼠标已按下。

MouseIsDown = True

End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove

If MouseIsDown Then

'开始拖动（将TextBox1的文本内容作为拖放内容）。

TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)

End If

MouseIsDown = False

End Sub

Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter

'检查正在被拖放的数据的格式。

If (e.Data.GetDataPresent(DataFormats.Text)) Then

'显示复制光标（表示是拖放行为）。

e.Effect = DragDropEffects.Copy

Else

'显示不放置光标（表示不是拖放行为）。

e.Effect = DragDropEffects.None

End If

End Sub

Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop

'粘贴文本（将拖放内容作为TextBox2的文本内容）。

TextBox2.Text = e.Data.GetData(DataFormats.Text)

End Sub

End Class

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选中文本 vb文本框全选
分享URL：http://myzitong.com/article/hpcjhh.html