说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
将RichTextBox 之中被选取的内容复制到剪贴簿-VB资料

如果不是写程序, 那么就是按下键盘 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&

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘