by enigma (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 9th September 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This is used for my Popupmenu *copy* *paste* commands
'Menus can be created by right clicking on the FORM(!) and going to Menu Edit
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then PopupMenu EditMenu
End Sub
Private Sub Copy_Click()
Clipboard.SetText Text1.SelText
End Sub
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub