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

求代码

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

'这个是删除第一个文本框中选中的字符,并在第二个文本框中显示剩余字符数
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

'不知道你是要的哪一种
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-12-30
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
第2个回答  2011-12-29
填充零追问

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

追答

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

追问

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

追答

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

...在第一个文本框选中一部分文字时在第二个文本框里立刻显示出那些选中...
'这个是删除第一个文本框中选中的字符,并在第二个文本框中显示剩余字符数 Private Sub Command1_Click()Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength), "")Text2.Text = Len(Text1.Text)End Sub '这个是第一个文本框中内容不变,第二个文...

在VB中怎样用按钮清除文本框中的文本
1.首先,在表单中添加一个文本框。2.单击文本框,在“属性”窗口中设置文本框的属性,然后清空文本内容。3.将文本框的启用属性设置为False。4.在窗口主体上添加一个命令按钮,如下图所示。5.在属性窗口中,将命令按钮的标题属性设置为“允许进入”。6.双击command按钮编辑代码,如下图所示。7.运行程...

...命令按钮时,文本框重新出现,并在文本框中显示“VB程序
private sub command1_click()text1.Visible=false end sub private sub command2_click()text1.Visible=true text1.text = "VB程序"end sub

vb中单击窗体显示文字双击窗体清楚文本怎么做
一共七步首先,在窗口中添加一个文本框,如下图所示,然后进入下一步。其次,单击文本框,在属性窗口中设置文本框的属性,清除文本,如下图所示,然后进入下一步。接着,将文本框的enabled属性设置为False,如下图所示,然后进入下一步。然后,在表单上添加一个命令按钮,如下图所示,然后进入下一步。

vb如何加一个清除文本框内容的按钮?
在 VB 中,可以通过添加一个按钮来实现清除文本框内容的功能。下面是一个简单的示例:在 VB 中,打开窗体设计器,将一个按钮控件添加到窗体中。右键单击按钮控件,选择“属性”。在“属性”窗口中,找到“Text”属性,并将其更改为“清除”。双击按钮控件,在代码编辑器中打开“Click”事件处理程序。在...

vb程序让输入在text中的文字显示的代码?
``首先,我们需要查看文本框能显示的字符数量,假设文本框能显示32个字符。接下来,我们将展示一段代码,这段代码用于在文本框中显示输入的字符串,并确保字符串不会超过文本框的显示限制。这段代码包含了一个名为`Command1_Click`的子程序。在该子程序中,我们首先定义了一个字符串`s`,其内容为"...

vb程序设计 简单 如何通过命令按钮 把文本框中的文字变成粗体?
1、打开VB软件,在窗体上面,添加两个文本框,如下图所示。2、单击文本框,在属性窗口分别设置文本框的属性,清空文本的内容,如下图所示。3、在窗体上面,添加一个命令按钮,如下图所示。4、单击命令按钮,在属性窗口中,设置命令按钮的属性,如下图所示。5、双击命令按钮,编写其代码,如下图所示。...

vb中如何实数据(文本框中的内容)的清空
VB实现文本框内容清空,需要对其Text属性赋值空字符串。TextBox 控件(即文本框控件)TextBox 控件有时也称作编辑字段或者编辑控件,显示设计时输入的用户输入的、或运行时在代码中赋予控件的信息。Text 属性示例 这个例子用来说明 Text 属性。要尝试这个例子,请将代码粘贴到包含三个 TextBox 控件和一个 ...

如何用VB代码实现以下功能:按下命令按钮,把文本框中的内容保存到桌面新...
Private Sub command1_Click()Dim k As String k = Text1.Text Open "C:\\Users\\Administrator\\Desktop\\评语录入.txt" For Append As #1 '把这里的路径改为你桌面路径Print #1, k Close #1 MsgBox "保存成功!", vbInformation, " 提示!"End Sub ...

在VB中健个命令按钮和一个文本框单击按钮时文本框消失
1、首先,在窗体上面添加一个文本框。2、单击文本框,在属性窗口设置文本框的属性,清空文本内容。3、将文本框的enabled属性设置为False。4、在窗体上添加一个命令按钮,如下图所示。5、在属性窗口,设置命令按钮的Caption属性为“允许输入”。6、双击命令按钮,编辑其代码。7、运行程序,输入“百度”。

相似回答