54.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

将RichTextBox 之中被选取的内容复制到剪贴簿

如果不是写程序， 那么就是按下键盘 Ctrl+C。
当使用者按下 Ctrl+C 时， RichTextBox 会对自己送出 WM_COPY 的信息， 而接
着 RichTextBox 的窗口程序收到此一信息时， 便会将被选取的内容(包含文字及
图片)复制到剪贴簿&127;。
所以如果想要将 RichTextBox 中被选取的内容复制到剪贴簿， 只要对 
RichTextBox 送出 WM_COPY 信息即可， 以下是程序撰写上的细节:
1. API 函数的声明式:
Const WM_PASTE = &H302
Const WM_CUT = &H300
Const WM_COPY = &H301
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As 
Any) As Long

注：如果以上的声明放在「一般模块」底下， 应在 Const 之前加上 Public 保留
字， 并且将 Private 保留字去掉。

2. 调用例:
SendMessage RichTextBox1.hWnd, WM_COPY, 0, ByVal 0&