Question

求vb大神，这个题的代码应该怎么写，谢谢

建立一个允许剪切、复制和粘贴的简单便笺板程序。可增加内容：利用MouseMove事件决定命令按钮的有效性， 即当选中内容，“剪切”、“复制”按钮有效，否则无效。

Answer 1

建立 VB 工程，并设计窗体如下：

编写代码如下：

Private Sub btnCopy_Click()
  If Text1.SelLength = 0 Then
     Exit Sub
  Else
    Clipboard.Clear
    Clipboard.SetText Text1.SelText
  End If
End Sub
Private Sub btnCut_Click()
  If Text1.SelLength = 0 Then
     Exit Sub
  Else
    Clipboard.Clear
    Clipboard.SetText Text1.SelText
    Text1.SelText = ""
  End If
End Sub

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

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Text1.SelLength = 0 Then
       btnCut.Enabled = False
       btnCopy.Enabled = False
    Else
       btnCut.Enabled = True
       btnCopy.Enabled = True
    End If
    
    If Len(Clipboard.GetText) > 0 Then
        btnPaste.Enabled = True
    Else
        btnPaste.Enabled = False
    End If
End Sub

运行示例截图如下：