Vb中的复制文本框里内容的问题

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

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

。。。。。。。。。

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

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

Clipboard.Clear
Clipboard.SetText Text1.Text

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

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

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

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

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

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