刚学VB,新建了一个txt1的文本框,三个command按键,分别命名为cmd1.cmd2.cmd3,复制,粘贴,清空,我想在默认情况下cmd2,也就是粘贴enable为false,
只有当复制成功,也就是说当剪贴板有了东西,cmd2才可用,然后cmd3,清空,要清空剪贴板和txt1里面的内容,
请大神告诉下代码,怎么实现,谢谢

解决方案 »

  1.   


    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