by king (24 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd December 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Easy menu
VBcoders
u need two forms , one toolbar , labelboxes thats it
step 2
on form1 take a toolbar and from its properties assign the following
align = 0
border style none
style = flat
and right click on the tool bar properties and give any name you want
step 3
write the following code
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form2.Hide
Form2.Label1.BackColor = &H8000000F
Form2.Label2.BackColor = &H8000000F
Form2.Label1.BackColor = &H8000000F
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Hide
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form2.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Form2.Show
End Sub
ok now lets move to step 4
add another form and name it form2
make form2 small like a menu
add three label boxes on it and write any text you wish to write
" please remember to change the names of any label text "
step 5
write the following code
Private Sub Form_Load()
Form2.Move 2500, 2500
Timer1.Enabled = True
End Sub
Private Sub Form_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Form2.Hide
End Sub
Private Sub Label2_DblClick()
On Error Resume Next
Shell ("explorer http://www.a1vbcode.com"), vbNormalFocus
End Sub
Private Sub Label1_DblClick()
On Error Resume Next
Shell ("explorer http://www.vbcode.com"), vbNormalFocus
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Label1.BackColor = &HFFC0C0
Label1.ForeColor = vbBlack
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
End Sub
Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Label2.BackColor = &HFFC0C0
Label2.ForeColor = vbBlack
Label1.BackColor = &H8000000F
Label3.BackColor = &H8000000F
'Label2.BackColor = &H8000000F
End Sub
Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Label3.BackColor = &HFFC0C0
Label3.ForeColor = vbBlack
Label2.BackColor = &H8000000F
Label1.BackColor = &H8000000F
End Sub
run your application and youll see a cool menu bar for your application
by making this menu bar you will be able to make more and more interactive menu bars for your application
you can visit my site will still in progress as soon as ill finish making ill tell u the name of the website
Or you are free to email me at [email protected] . I would definitely try to solve your problems.
But please before mailing write you full name address where are u from ....
okkk than wait for another applications of mine
