VB怎么实现按一个按钮就把文本筐内的文字复制

command1_click事件中写以下代码：
clipboard.settext text1.text

全部代码：
Private Sub Command1_Click()
Clipboard.SetText Text1.Text
End Sub

准备:一个命令按钮,两个文本框

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
Text2.Text = Clipboard.GetText
End Sub

Clipboard.Clear 清空剪贴板内存

Clipboard.SetText Text1.Text 把文本框1的内容赋值给剪贴本

msgbox Clipboard.GetText 显示复制的内容

好的程序来了,现把代码呈上:

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

我也是VB爱好者,大家互相学习!!!

程序托盘到右下角的代码来了,比较长,自己试用就好了:
忙了我一下午了！弄好了！

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas

3、在Module1中写下如下代码：

Option Explicit

Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1