首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请大神们见见啊

2012-12-29 
请大神们看看啊,。刚学VB,新建了一个txt1的文本框,三个command按键,分别命名为cmd1.cmd2.cmd3,复制,粘贴,清

请大神们看看啊,。
刚学VB,

新建了一个txt1的文本框,三个command按键,分别命名为cmd1.cmd2.cmd3,复制,粘贴,清空,

我想在默认情况下cmd2,也就是粘贴enable为false,
只有当复制成功,也就是说当剪贴板有了东西,cmd2才可用,然后cmd3,清空,要清空剪贴板和txt1里面的内容,
请大神告诉下代码,怎么实现,谢谢
[解决办法]


Private Sub cmd1_Click()
   VB.Clipboard.SetText Text1
   If VB.Clipboard.GetText <> "" Then _
      cmd2.Enabled = True
   
End Sub

Private Sub cmd2_Click()
  Text2 = VB.Clipboard.GetText
  
End Sub

Private Sub cmd3_Click()
   Text1 = ""
   VB.Clipboard.SetText ""
   cmd2.Enabled = False
   
End Sub

Private Sub Form_Load()
   cmd1.Caption = "复制"
   cmd2.Caption = "粘贴"
   cmd3.Caption = "清除"
   cmd2.Enabled = False
   
End Sub

热点排行