Question

VB编程，点击命令按钮后，删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符

求代码

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 Command1_Click()
Text2.Text = Mid(Text1.Text, 1, Text1.SelStart) & Mid(Text1.Text, Text1.SelLength + Text1.SelStart + 1, Len(Text1.Text) - (Text1.SelLength + Text1.SelStart) + 1)
Text1.Text = Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength)
End Sub

Answer 3

填充零

追问

我要代码- -。。。。。。。。实在不会做了 学校作业

追答

eeeeeeeeeeeeeeeeeeeeeeeeee,我崩溃，你用赋值语句给框二，然后删框一。。。。。

追问

点了命令按钮后 第一个对话框 里面（就是一开始输入的）要求不变
在第二个对话框中显示 删掉 选中字符后的 剩余字符串，，，，，
哎 实在不会哈

追答

语句你自己查好吧，最后一步，给框一赋值空，你会吧