VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 将RichTextBox 之中被选取的内容复制到剪贴簿
发表评论(0)作者:, 平台:, 阅读:11953, 日期:2000-03-12
如果不是写程序, 那么就是按下键盘 Ctrl+C。

当使用者按下 Ctrl+C 时, RichTextBox 会对自己送出 WM_COPY 的信息, 而接

着 RichTextBox 的窗口程序收到此一信息时, 便会将被选取的内容(包含文字及

图片)复制到剪贴簿。

所以如果想要将 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&