VB操作剪贴板,原来只需一句代码

VB操作剪贴板,原来只需一句代码
━━━━━━━━━━━━━━━━━━━━━━━━━━

呵呵,前段时间找了好久,都没找到合适的代码!
今天写代码的时候无意中打上VB两个字母,本来是想看看动态添加控件的函数如何写.
却看到有 Clipboard 字样,心里一阵狂喜...哈哈,便有了下面三句剪贴板操作一句话搞定的代码诞生...

 

Option   Explicit

Private   Sub  Command1_ Click ()
    VB.Clipboard.Clear   '清除剪贴板中的内容！
End   Sub

Private   Sub  Command2_ Click ()
    VB.Clipboard.SetText DTPicker1.Value, vbCFText   '把日期控件里的值以文本方式存入剪贴板
End   Sub

Private   Sub  Command3_ Click ()
    Me.Caption = VB.Clipboard.GetText    '读取 剪贴板 中的文字内容并设置为本窗口的标题
End   Sub