Question

求教一道VB入门题目

具体要求如下：
1. 文本框带有垂直滚动条。
2. 各命令按纽功能与Word中相应的菜单命令相似：“复制”、“剪切”按钮只有在选取了文本后才可以使用；“粘贴”按钮只有在“复制”或“剪切”按钮使用后才可以使用；“清除”按钮清空文本框并使另外3个按钮恢复初始状态。

问:其中“"粘贴”按钮只有在“复制”或“剪切”按钮使用后才可以使用”代码怎么写?
一楼的请不要为了分数回答问题。这种基础题不值得悬赏。

四楼的你牛什么？哪个高手不是从这些弱智题目成长起来的。

Answer 1

Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
Command3.Enabled = True
End Sub

Private Sub Command2_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.SelText = Clipboard.GetText
End Sub

Private Sub Command4_Click()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Text1.Text = ""
End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.SelLength <> 0 Then
Command1.Enabled = True
Command2.Enabled = True
Else
Command1.Enabled = False
Command2.Enabled = False
End If
End Sub

Answer 2

Private Sub Command1_Click()
Clipboard.SetText Text1.SelText
Command3.Enabled = True
End Sub

Private Sub Command2_Click()
Clipboard.SetText Text1.SelText
Text1.SelText = ""
Command3.Enabled = True
End Sub

Answer 3

没分没答案