刚学VB,新建了一个txt1的文本框,三个command按键,分别命名为cmd1.cmd2.cmd3,复制,粘贴,清空,我想在默认情况下cmd2,也就是粘贴enable为false,
只有当复制成功,也就是说当剪贴板有了东西,cmd2才可用,然后cmd3,清空,要清空剪贴板和txt1里面的内容,
请大神告诉下代码,怎么实现,谢谢
只有当复制成功,也就是说当剪贴板有了东西,cmd2才可用,然后cmd3,清空,要清空剪贴板和txt1里面的内容,
请大神告诉下代码,怎么实现,谢谢
调试欢乐多
Private Sub cmd1_Click()
VB.Clipboard.SetText Text1
If VB.Clipboard.GetText <> "" Then _
cmd2.Enabled = True
End SubPrivate Sub cmd2_Click()
Text2 = VB.Clipboard.GetText
End SubPrivate Sub cmd3_Click()
Text1 = ""
VB.Clipboard.SetText ""
cmd2.Enabled = False
End SubPrivate Sub Form_Load()
cmd1.Caption = "复制"
cmd2.Caption = "粘贴"
cmd3.Caption = "清除"
cmd2.Enabled = False
End Sub