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(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]
This code helps to create a drop down menu using right click. N.B:Not Using the Menu Editor. Comments
No comments yet — be the first to post one!
Post a Comment