VB 怎样在TEXTBOX中用按钮进行复制粘贴？

VB ..怎样在textbox中输入一些字（如：我是一个好人），然后用鼠标选中其中个一些（如：一个好人），再按复制按钮进行复制，粘贴安捏进行粘贴？

推荐答案 2013-09-19

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Clipboard.Clear() 'æ¸ç©ºåªå¸æ¿'
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Select()
TextBox1.Copy() 'å¤å¶textbox1ä¸é¼ æ éä¸çåå®¹'
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = TextBox1.Text + Clipboard.GetText() 'ç²è´´å°TEXTBOX1'
End Sub

è¿æ¯èªå·±åäºãã - -||

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vjyrr3xy2rr22f3rr32.html

其他回答

第1个回答 2013-09-19

'添加两个TextBox 设置Text1.Text="我是一个好人" 两个CommandButton Command1.Caption="复制" Command2.Caption="粘贴" 示例代码如下：
Private Sub Command1_Click()
If Text1.SelText <> "" Then Text1.Tag = Text1.SelText
End Sub

Private Sub Command2_Click()
Text2.Text = Text1.Tag
End Sub

第2个回答 2013-09-19

Dim a '声明一个窗体层变量，存放复制、粘贴的内容
Private Sub Command1_Click() '“复制”按钮
a = Text1.SelText
End Sub

Private Sub Command2_Click() '“粘贴”按钮
Text1.SelText = a '粘贴到Text1,“粘贴”前应改变Text1的插入点
End Sub

第3个回答 2013-09-19

文本框是Text1
按钮是Command1
代码
Private Sub Command1_Click()
If Text1.SelLength > 0 Then
VB.Clipboard.Clear
VB.Clipboard.SetText Text1.SelText
End If
End Sub

第4个回答 2019-07-26

priate
sub
command1_CLICK()
Clipboard.clear
Clipboard.settext
text1.seltext
end
sub是复制
priate
sub
command2_CLICK()
text2.text=_Clipboard.gettext(vbcftext)
end
sub是粘贴
priate
sub
form_load()
text1.text="我是一个好人"
text2.text=“这是目标文本框”
end
sub

你可能感兴趣的内容

大家正在搜

非常风气网www.verywind.cn

VB 怎样在TEXTBOX中用按钮进行复制粘贴？

相关了解……

你可能感兴趣的内容