by S.L.JAISHANKAR (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 7th June 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Dynamic menu generater during execution
Private Sub Command1_Click()
RT = RT + 1
Load MNURT(RT)
MNURT(RT).Caption = "DYNAMIC MENU ITEMS" & Str(RT)
End Sub
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 MNUEXIT_Click()
End
End Sub
Private Sub MNUOPEN_Click()
MsgBox "sorry you cannot open any file now"
MNUEXIT.Enabled = True
End Sub