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

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

求代码

2024-12-26 11:40:58

推荐回答（3个）

回答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

'不知道你是要的哪一种

回答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

回答3：

填充零