![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg2FzYLI-9-MqbMH-94lR9r-BToIajg435aJgD-NrHZLkEo24gzeklqs-oSNTB_g7LelExVnLpUtaSvD2K-RvqXF5ecZkXfaQcEGLA8AF4Cs-L1fN-A9WUYtzf5-a7abaU7xpkF7rSri5dI/s320/22.jpg)
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