Adding Component into ToolBox

<Previous lesson | Table of Content | Content of this Chapter | Next lesson>

Click here to download the code

1. In the Toolbox, Right click and a pop up menu will be shown. You choose Components…A dialog window will appear
2. In the control Tab of the dialog, scroll down and find Microsoft Calendar Control. Check the checkbox and press OK
3. See that the Calendar control is added to your toolbox
4. In the Project Window, do Right Click and it show a pop up menu, choose Add > Form. In the dialog window, select New Tab and Form, then press Open button
5. Change the Name property of the new form into frmCalendar. Change the Caption property into Calendar.
6. Drag and drop Calendar Control from the Toolbox into frmCalendar. Arrange it so that look nice. For example, if the nice looking of calendar has width of 5000 and height of 4000, then we add 350 for the height of form and 50 to the width of form. Type the following code in the Form_Resize of frmCalendar to fixed the size of the Calendar form.

Private Sub Form_Resize()

Calendar1.Width = 5000
Calendar1.Height = 4000
Me.Width = 5050
Me.Height = 4350

End Sub

7. Add a command button into frmCalendar. Change the Name property to cmdToday, the Caption property to Today and resize it small enough to put in the right corner of the calendar. Type the following code into the click event of the command button:

   Private Sub cmdToday_Click()
   

   Calendar1.Today

   End Sub

8. In the project window, double click MDI Form to put the MDI form in front.
9. In the Menu of VB, click Tools > Menu Editor or you can use Ctrl-E. The menu Editor will appear.

10. Click the space below &Window then in the Caption, type &Calendar then in the name, type mnuCalendar . Check the Checked checkbox then click the right arrow. After that, click Next button and press OK button.
11. Now in the MDI Form, you select the menu Window > Calendar and press, then type the code below:
    

Private Sub mnuCalendar_Click()

If mnuCalendar.Checked = True Then

'now is checked, make it unchecked
frmCalendar.Hide
mnuCalendar.Checked = False

Else ' now is unchecked, make it checked

frmCalendar.Show
mnuCalendar.Checked = True

End If

End Sub

12. Add code below to call the Calendar Form from the MDI form at the first time and to maximize the MDI form:
    

Private Sub MDIForm_Load()

frmCalendar.Show
MDIForm1.WindowState = vbMaximized

End Sub

13. Run the program. Select the menu Window > Calendar several times to see the effect of Checked menu.
    

<Previous lesson | Table of Content | Content of this Chapter | Next lesson>