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
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