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

显示全部楼层 · 2011-12-30 02:41:06

'楼上的是只保留第一个文本框中选中的字符，第二个文本框中显示剩余字符'这个是删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符数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.Tex...

千问 · 2011-12-30 02:41:06

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.SelS...