• Home
 · 
• Custom Controls/Forms/Menus
 · 
• This code helps to create a drop down menu using right click. N.B:Not Using the Menu Editor.

This code helps to create a drop down menu using right click. N.B:Not Using the Menu Editor.

This code helps to create a drop down menu using right click. N.B:Not Using the Menu Editor.

Rate This code helps to create a drop down menu using right click. N.B:Not Using the Menu Editor.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    CurrentX = X
    CurrentY = Y
    If Button = 2 Then
        Frame1.Left = CurrentX
        Frame1.Top = CurrentY
        Frame1.Visible = True
    ElseIf Button = 1 Then
        Frame1.Visible = False
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Command1.BackColor = &H8000000F
'Me.Command1.ForeColor = &H80000012

Command3.BackColor = &H8000000F
'COMMAND3.ForeColor = &H80000012

Command2.BackColor = &H8000000F
'Command2.ForeColor = &H80000012

Command4.BackColor = &H8000000F
'Command4.ForeColor = &H80000012


End Sub

Private Sub COMMAND1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.BackColor = &H8000000F
'Command2.ForeColor = &H80000012

Command3.BackColor = &H8000000F
'Command3.ForeColor = &H80000012

Command4.BackColor = &H8000000F
'Command4.ForeColor = &H80000012

Command1.BackColor = &HC00000
'Command1.ForeColor = &HFFFFFF

Me.BalloonTipDemo1.ShowTip
Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250)
Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU1"
Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM"
End Sub

Private Sub COMMAND2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
'Command1.ForeColor = &H80000012

Command3.BackColor = &H8000000F
'Command3.ForeColor = &H80000012

Command4.BackColor = &H8000000F
'Command4.ForeColor = &H80000012

Command2.BackColor = &HC00000
'Command2.ForeColor = &HFFFFFF


Me.BalloonTipDemo1.ShowTip
Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250)
Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU2"
Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM"


End Sub

Private Sub COMMAND3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
'Command1.ForeColor = &H80000012

Command2.BackColor = &H8000000F
'Command2.ForeColor = &H80000012

Command4.BackColor = &H8000000F
'Command4.ForeColor = &H80000012

Command3.BackColor = &HC00000
'Command3.ForeColor = &HFFFFFF

Me.BalloonTipDemo1.ShowTip
Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250)
Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU3"
Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM"

End Sub
Private Sub COMMAND4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
'Command1.ForeColor = &H80000012

Command3.BackColor = &H8000000F
'Command3.ForeColor = &H80000012

Command2.BackColor = &H8000000F
'Command2.ForeColor = &H80000012

Command4.BackColor = &HC00000
'Command4.ForeColor = &HFFFFFF


Me.BalloonTipDemo1.ShowTip
Me.BalloonTipDemo1.TipColor = RGB(100, 150, 250)
Me.BalloonTipDemo1.TipText = "CLICK HERE TO SELECT MENU4"
Me.BalloonTipDemo1.TitleText = "SELECT MENU ITEM"

End Sub




'make sure all the controls are taken in the form.
'Please reply how you like our service
'Please reply to [email protected]