Uživatelské menu na TextBoxu
Postup:
Deklarujte v
deklarační části formuláře:
Private Declare Function
LockWindowUpdate Lib "user32" _
(ByVal hwndLock As Long) As Long
Na formulář nadeklarujte své menu (mnuFile) a přidejte textbox a na jeho událost MouseDown zapište:
Private Sub Text1_MouseDown(Button
As Integer, Shift As Integer, X As Single, _
Y As Single)
If
Button = vbRightButton Then
'
Komponentu zamkneme a ta nezešedne
LockWindowUpdate Text1.hWnd
Text1.Enabled = False
'
Zobrazení našeho menu
PopupMenu
mnuFile
'
Opětovné odemknutí komponenty
Text1.Enabled
= True
LockWindowUpdate 0&
End If
End Sub