求一VB程序,复制文本框中的内容

Private Sub Command1_Click()
Clipboard.SetText Text1
MsgBox "已复制！"
Text2 = Clipboard.GetText
MsgBox "已粘贴"
End Sub
在Text1中输入字符，点击按钮就产生复制和粘贴事件（Text2=Text1）。

Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub

双击复制按钮，写入以下代码

假如你的文本框名字叫 Text1

clipboard.clear
clipboard.settext text1.text

19711436450 :vb,怎样按一下按钮能复制文本框的内容?
滕泄君4476 :答：Clipboard.SetText Text1.Text '把文本框中的内容复制到剪切板上 Text2.Text = Clipboard.GetText'把剪切板中的内容粘贴到文本框中

19711436450 :VB中的文本框选中的文字复制到另外一个文本框中
滕泄君4476 :答：代码如下： Private Sub Command1_Click() Text2.Text = Text1.SelText 'Text1.SelText Text1文本框中被选中的内容 End Sub

19711436450 :求一VB程序,复制文本框中的内容
滕泄君4476 :答：在Text1中输入字符，点击按钮就产生复制和粘贴事件（Text2=Text1）。

19711436450 :在VB中怎样把文本Text1的内容进行复制,粘贴,剪切到T文本ext2中???急...
滕泄君4476 :答：Private Sub Command1_Click()'复制 Clipboard.Clear Clipboard.SetText (Text1)End Sub Private Sub Command2_Click()'剪切 Clipboard.Clear Clipboard.SetText (Text1)Text1 = ""End Sub Private Sub Command3_Click()'粘贴 Text2 = Clipboard.GetText End Sub ...

19711436450 :VB怎么实现按一个按钮就把文本筐内的文字复制
滕泄君4476 :答：command1_click事件中写以下代码：clipboard.settext text1.text 全部代码：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub

19711436450 :用VB实现文本框内文字复制,剪切,粘贴,求源代码,急需
滕泄君4476 :答：复制到剪切板 Clipboard.Clear Clipboard.SetText (text1)粘贴 text2.text=Clipboard.getText (text1)剪切 Clipboard.Clear Clipboard.SetText (text1)text1.text=“”

19711436450 :VB 怎样在TEXTBOX中用按钮进行复制粘贴?
滕泄君4476 :答：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 还是自己做了。。

19711436450 :VB中,求把文本框1的内容复制到文本框2的代码
滕泄君4476 :答：Text2.Text = Text1.Text Text2.***=Text1.以此类推下去，你想复制多少种属性，你就加多少的属性，例如字体，字号，加粗！

19711436450 :VB,用当在第一个文本框里输入如下文字,并选中部分内容,然后单击复制...
滕泄君4476 :答：Private Sub Command1_Click() '复制 Text2.SelText = Text1.SelText End Sub Private Sub Command2_Click() '清除 Text1.Text = ""Text2.Text = ""End Sub

19711436450 :VB中如何实现复制粘贴?
滕泄君4476 :答：'翻译过来就是把剪贴板的内容设为文本框的内容，就是复制（因为原内容并没有消失，要实现剪切，在这句后面加一句TxtContent.SelText = ""）End Sub '代码完毕 Private Sub CmdPaste_Click()'按钮名叫CmdPaste，事件是单击 TxtContent.SelText = Clipboard.GetText 'TxtContent.SelText参见上文。