Question

请用VB编程实现两个文本框间的文本替换。

要求：文本框1中用鼠标选中要被替换的内容，文本框2中输入替换文本，点击“替换”按钮实现在文本框1中被选中文字替换成文本框2中的文本。要求用两个标签控件实时显示出选取的文本字符个数和起始位置。

Answer 1

Private Sub Command1_Click()
Text1.SelText = Text2.Text
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Text1.SelStart
Label2.Caption = Text1.SelLength
End Sub

Answer 2

不知道vb有没有获取选中字符的函数。有的话就容易了，假如没有在按钮控件被激活前触发复制函数也可以代替获取选中字符。获取后就直接用替换函数赋值。具体代码百度下就行。

Answer 3

富文本框控件有选中文本起止及选中内容相关控制的属性供使用。