Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnufile
End If
End Sub
Private Sub mnucopy_Click()
Clipboard.Clear
Clipboard.SetText txt1.SelText
End Sub
Private Sub mnucut_Click()
clipboard.SetText txt1.SelText
txt1.SelText = ""
End Sub
Private Sub mnupaste_Click()
txt1.SelText = Clipboard.GetText()
End Sub
No comments:
Post a Comment