VB 希望高手帮帮忙 谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/28 16:53:17
Private Sub Form_Load()
Clipboard.Clear
mnuEditPaste.Enabled = False
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu editpop
End If

End Sub

Private Sub mnueditcls_Click()
If mnueditcls.Checked = True Then
mnueditcls.Checked = False
Text1.Text = ""
Text2.Text = ""
Else
mnueditcls.Checked = True
End If
End Sub

Private Sub mnueditcopy_Click()
'If Text1.SelLength > 0 Then
' Clipboard.SetText Text1.SelText
'End If
Clipboard.Clear
If TypeOf Screen.ActiveControl Is TextBox Then
Clipboard.SetText Screen.ActiveControl.SelText
mnuEditPaste.Enabled = True
End If

End Sub

Private Sub mnueditcut_Click()
'If Text1.SelLength > 0 Then
'Clipboard.SetText Text1.SelText

Private Sub Form_Load()
Clipboard.Clear '清空剪贴板
mnuEditPaste.Enabled = False '菜单项目editpaste设为不可用状态
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '如果按下右键
PopupMenu editpop '在当前鼠标位置上弹出菜单editpop
End If

End Sub

Private Sub mnueditcls_Click()
If mnueditcls.Checked = True Then '如果editcls钩选了
mnueditcls.Checked = False '把它设成没有钩选
Text1.Text = "" '清空文本框
Text2.Text = ""
Else '如果没有钩选
mnueditcls.Checked = True '把它钩选
End If
End Sub

Private Sub mnueditcopy_Click()
'If Text1.SelLength > 0 Then
' Clipboard.SetText Text1.SelText
'End If
Clipboard.Clear '清空剪贴板
If TypeOf Screen.ActiveControl Is TextBox Then '如果目前激活的控件是文本框的话
Clipboard.SetText Screen.ActiveControl.SelText '把当前激