Question

VB6.0怎么在第一个文本框选中一部分文字时在第二个文本框里立刻显示出那些选中的文字

如题，还有在文本框里选中文字算不算是change事件

Answer 1

'楼上的是只保留第一个文本框中选中的字符，第二个文本框中显示剩余字符

'这个是删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符数
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength), "")
Text2.Text = Len(Text1.Text)
End Sub

'这个是第一个文本框中内容不变，第二个文本框中显示删掉选中字符后的剩余字符串
Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, Text1.SelStart) & Right(Text1.Text, Len(Text1.Text) - Text1.SelStart - Text1.SelLength)
End Sub

'不知道你是要的哪一种

追问

没有要删除，就是选中第一个文本框里的字符然后立刻在第二个文本框里显示出选中的字符

Answer 2

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Text2 = Text1.SelText
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text2 = Text1.SelText
End Sub

起作用的就是 ：Text2 = Text1.SelText

关键要看在什么时候执行，文本框本身没有提供选中部分变化的事件，所以利用鼠标选中或键盘选中时的抬起事件时处理，如果还不满意，可以加一个Timer，不停地执行。