一个VB的小问题 高手来下

来源：百度知道 编辑：UC知道 时间：2024/05/04 08:17:34
本人初学VB 老师布置一道对于高手来说很简单的题目 就是一个剪贴板 有个文本文件 4个按钮 复制 粘贴 剪切 退出 文本内容没选种的时候复制 粘贴 剪切都是不能按的 还有粘贴时 复制剪切都不能用 选种文件时粘贴不能使用 谢谢拉谁帮下忙啊

还有粘贴时 复制剪切都不能用 选种文件时粘贴不能使用
这个是没道理的，应该是这样的：粘贴板没内容时粘贴不能用，选中时粘贴应该是可以用的，因为有可能要覆盖选中的内容。
以下是代码：
控件有：textbox，command五个，timer控件一个，

Private Sub Command1_Click()
'复制
Clipboard.SetText (Text1.SelText)
Text1.SetFocus

End Sub

Private Sub Command2_Click()
'剪切
Clipboard.SetText (Text1.SelText)
Text1.SetFocus
Text1.SelText = ""
End Sub

Private Sub Command3_Click()
'粘贴
Text1.SelText = Clipboard.GetText
Text1.SetFocus

End Sub

Private Sub Command4_Click()
'删除
Text1.SetFocus
Text1.SelText = ""

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If Clipboard.GetText = "" Then Command3.Enabled = False Else Command3.Enabled = True
If Text1.SelText = &