精华区文章阅读

发信人: bloom (├┝┞┟┠┡┢┣), 信区: VB
标题: 在 RichTextBox 之中，如何将被选取的内容(包含文字
发信站: 哈工大紫丁香 (2000年08月02日18:38:42 星期三), 转信

如果不是写程序，那么就是按下键盘 Ctrl+C。
当使用者按下 Ctrl+C 时， RichTextBox 会对自己送出 WM_COPY 的信息，而接着 Ri
chTextBox 的窗口程序收到此一信息时，便会将被选取的内容(包含文字及图片)复制到
剪贴病�
所以如果想要将 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" (ByVa
l 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&

--
├┝┞┟┠┡┢┣ ※↑

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.233.140]

VB 版 (精华区)