Question

求VB帮助 关于selstart sellength seltext

题目要求：
在text1中输入一段字符并用鼠标选中部分，通过command1的click 使text2中显示选中的text1中的字符，并在label1中显示所选字符的起始位置，label2中显示所选字符的长度，使用selstart sellength seltext
希望写出代码 selstart sellength seltext 的属性介绍就先不用了 谢谢

Answer 1

command1的click事件中：
Label1.Caption = Text1.SelStart
Label2.Caption = Text1.SelLength
Text2.Text = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)

Answer 2

Private Sub Command1_Click()
Label1.Caption = Text1.SelStart + 1
Label2.Caption = Text1.SelLength
Text2.Text = Text1.SelText
End Sub

Answer 3

Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 5 'text1的选择开始是第5个字符
Text1.SelLength = 3 'text1的选择长度是3个字符
Text2 = Text1.SelText 'TEXT2=TEXT1选择的字符
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = Text1.SelStart
Label2.Caption = Text1.SelLength
Text2 = Text1.SelText 'TEXT2=TEXT1选择的字符
End Sub