在 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&