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