超级菜鸟100分提问提问：如何实现将textbox控件中的文字拷贝到记事本文件中？

Question

开发工具：vb6.0
程序中有一个textbox 控件，我想再添加应该按钮，只要点击按钮就将textbox控件中的文字拷贝到剪贴板中，然后打开一个记事本文件，利用拷贝命令将剪贴板中的内容拷贝到记事本中。
我用如下代码却无法实现：
Private Sub CopyPan_Click()
    BzPan.SelStart = 0
    BzPan.SelLength = Len(BzPan.Text)
    Clipboard.SetText BzPan.SelText
End Sub其中，BzPan就是textbox控件的名称。请大侠们支着，焦急等待中！

Answer 1

Private Sub Command1_Click()
BzPan.SelStart = 0
BzPan.SelLength = Len(BzPan)
BzPan.SetFocus
SendKeys "^c"
End Sub

Answer 2

谢谢楼上，还是不行啊！是不是需要设置textbox控件的一些属性啊？

Answer 3

怎么不行呢??
这个代码等于你按了Ctrl+C的呀

Answer 4

Private Sub Command1_Click()
BzPan.SelStart = 0
BzPan.SelLength = Len(BzPan)
BzPan.SetFocus
SendKeys "^c"
End Sub
可以的呀

Answer 5

我来接分....Clipboard.SetText (textbox1.Text)   '参数是textbox1的文本属性一句话搞定

Answer 6

我来接分....Clipboard.SetText (BzPan.Text)   '参数是textbox1的文本属性一句话搞定

Answer 7

Private Sub CopyPan_Click()
    'BzPan.SelStart = 0
    'BzPan.SelLength = Len(BzPan.Text)
    Clipboard.SetText BzPan.Text
End Sub

Answer 8

当我把焦点用鼠标点击在textbox上时，用键盘的ctrl＋c键也无法实现拷贝功能，ctrl＋a无法实现全选功能，只有点击鼠标右键，出现右键菜单之后用ctrl＋a才能全选，。

Answer 9

wushu(浪子),of123()朋友，谢谢你们，你们的方法我都用过，不行的。他只能实现vb的textbox控件之间的拷贝动作。而无法实现vb的textbox与记事本之间的拷贝动作啊

Answer 10

tztz520(午夜逛街）您好，那为什么在记事本之间就可以直接用ctrl＋a，ctrl＋c实现拷贝功能呢？

Answer 11

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_CONTROL = &H11Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
Clipboard.Clear
Clipboard.SetText Text1.Text
keybd_event VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0
keybd_event 86, MapVirtualKey(86, 0), 0, 0
keybd_event 86, MapVirtualKey(86, 0), KEYEVENTF_KEYUP, 0
keybd_event VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0
end sub

Answer 12

最准确的代码：
    Clipboard.SetText BzPan.Text

Answer 13

Private Sub CopyPan_Click()
    Clipboard.SetText BzPan.Text
End Sub

Answer 14

用Clipboard是不能帖到系统粘贴板的.要用sendkeys

Answer 15

用tztz520的办法必须编译成exe文件后才能实现那个功能，真是怪事情！