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