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

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

还是自己做了。。 - -||
匿名用户
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
刑清竹巩静
2019-07-26 · TA获得超过3.7万个赞
知道小有建树答主
回答量:1.4万
采纳率:31%
帮助的人:946万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式