Private Sub cmdcopy_Click()
Textxs.SelStart = 0
Textxs.SelLength = Len(Textxs)
Clipboard.SetText Textxs.SelText
End Sub
我用这个代码可以全选但死也复制不起来文本框里的内容啊
为什么啊？？

Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_COPY As Long = &H301
Const EM_SETSEL = &HB1&

Private Sub Form_Click()
  SendMessage Text1.hWnd, EM_SETSEL, 0&, -1&    '选择要复制的文本内容,第三个参数是启始位置，第四个参数是结束位置；
  SendMessage Text1.hWnd, WM_COPY, 0&, 0&       '复制Text1中被选中的文本内容。
End Sub

[[it] 本帖最后由 Joforn 于 2008-10-3 13:01 编辑 [/it]]

。。。。。。。。。

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-3 12:52 编辑 [/it]]

何苦呢，直接就用Clipboard.SetText Text1.Text不就行了？

Clipboard.Clear
Clipboard.SetText Text1.Text

要注意的是，Clipboard是VB的剪贴板对象并不是Windows的，而我在2#发的是针对Windows剪贴板操作的。

那请问如果我想复制具体的部分呢？而且楼主的要求是要点击COMMAND后才产生这样的效果，我只是按楼主的要求来

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-3 12:41 编辑 [/it]]

其实和焦点无关，你自己试试就知道了。
至于楼主说的复制不到内容，应该是他想复制后，在其它的外部程序中粘贴，但是因为Clipboard只是修改了VB的剪贴板内容，并没有影响Windows剪贴板的内容，所以楼才会以为复制代码没有效果。

试过了，多谢指教，我以前遇到这种问题添加焦点就OK了，看来是我理解错了

那怎么复制到WINDOWS的剪切板中？