VB 6 Design A Menu

In this article, we will design a menu in VB 6. To create this program, you may require a windows computer with Windows XP or higher operating system and Visual Basic 6.0 installed.

Step 1: Create a New VB 6 form

Open visual basic 6 and choose “Standard EXE” and your default VB form will show up. The next step is to create a rectangle shape from the toolbar on the left hand side of form. Here are the properties of the form.

Form Name: Menu_Form
Caption: Menu Design
BackColor : Highlight Text
Width: 10515
Height: 6660

Create a rectangle shape with following properties. Do not change other properties of shape.

Name : Shape1
Caption: Shape1
Border Width: 5

Step 2: Create Menu For Color

In this section, we will create a new menu to select a color for the shape. Go to Tools > Menu Editor or right-click on the form and select Menu Editor.

In the Menu Editor, you must enter the values for Caption, Name. You can add Shortcut if necessary. Select Next to add a new menu item and Delete to remove an item from the menu.

To add a sub menu, select the right arrow ( ->) or to move the sub menu, up and down arrow. Then you must add Caption, Name, and Shortcut for sub menu items.

The final menu look like the following.

Click each of the sub menu item and add following codes.

Private Sub blue_Click()
Shape1.FillColor = RGB(0, 0, 255)
End Sub

Private Sub green_Click()
Shape1.FillColor = RGB(0, 255, 0)
End Sub

Private Sub red_Click()
Shape1.FillColor = RGB(255, 0, 0)
End Sub

Step 3: Create Menu For Shapes

Now that you have created color menu, we must create Shape menu with three sub menu for Oval, Rectangle, and Square shape.

To create this menu, follow all steps mentioned in step 2. Your Shape menu should look like the following.

Now the shape menu with three sub menu look like the following.

Add following codes by clicking each of the sub menu items of shape menu.

Private Sub oval_Click()
Shape1.shape = 2
End Sub

Private Sub rectangle_Click()
Shape1.shape = 0
End Sub

Private Sub square_Click()
Shape1.shape = 1
End Sub

Step 4: Create Menu to Apply Colors

In this section, we create our last menu item that apply the color selected from the color menu.

Suppose you choose ‘Green‘ from color menu. It will not change the background color of the shape unless you choose the fill style from apply color menu.

Follow step 2 to create a new menu called Apply Color. The menu should have the following sub menu items.

The final menu for the form will look like the following. Look at the sub menu for Apply Color.

Add the following codes for each sub menu by clicking on them.

Private Sub solid_Click()
Shape1.FillStyle = 1
End Sub

Private Sub transparent_Click()
Shape1.FillStyle = 0
End Sub

Testing the Project

Once you have saved your project. It is time to test it.

Color Menu = Choose the color for the shape. e.g Red, Blue, Green

Shape Menu = Choose the shape e.g Oval, Rectangle, or Square

Apply Color = Apply the chosen color style. e.g Transparent, or Solid Fill.

The final step will apply solid fill of selected color green to the shape. Note that you can change the color, shape, or fill at any point in the program.