امروز یاد می گیریم چگونه به سادگی یک منو به برنامه ی خود اضافه کنیم.
ابتدا یک برچسب به نام lblMenu ایجاد کنید.
ابزار منو ساز ویراستار منو (Menu Editor) نام دارد که شمایل آن
است. با زدن این شمایل شکل روبرو ظاهر می شود. برای آشنایی با طرز کار آن یک منوی ساده با هم می سازیم.
ویراستار منو را باز کنید. Caption را File و Name را mnuFile قرار دهید. کلید Next را فشار دهید. عنوان منوی بعدی را Color و نام آن را mnuColor قرار دهید. عنوان منوی بعد را Message و نام آن را mnuMessage قرار دهید. منوی دوم را انتخاب کنید و کلید Insert را فشار دهید.شمایل
را فشار دهید. یک ... ظاهر می شود. این بدین معنی است که گزینه ای که خواهید نوشت زیرمجموعه ی منوی File است. عنوان را Exit و نام را mnuExit وارد کنید.
منوی دوم سه گزینه دارد: Red, Green, Blue. این ها را مثل گزینه های گذشته نام گذاری کنید. چون در هر لحظه یک گزینه می تواند فعال باشد بهتر است از منو های چک دار استفاده کنیم. برای این کار Checked تیک بزنید.
منوی Message نیز سه گزینه دارد. Initial Message به نام mnuInitial. روی Checked نیز تیک بزنید.عنوان بعدی را (-) بگذارید تا یک خط جداساز شکل بگیرد.نام آن را Separator بگذارید. عنوان بعدی را Hello وبعدی را Welcome بگذارید.
کد نویسی برا منو: با کلیک کردن روی هر گزینه VB رویداد Click آن را برای شما فعال می کند. همانطور که قبلا گفته شد شما می توانید به کنترل ها و رویداد های آن در پنجره کدنویسی توسط دو لیست کشویی بالای آن دسترسی داشته باشید. کد زیر را بنویسید.
Private Sub mnuBlue_Click()
lblMenu.BackColor = vbBlue
mnublue.Checked = True
mnuGreen.Checked = False
mnuRed.Checked = False
End Sub
Private Sub mnuGreen_Click()
lblMenu.BackColor = vbGreen
mnublue.Checked = False
mnuGreen.Checked = True
mnuRed.Checked = False
End Sub
Private Sub mnuRed_Click()
lblMenu.BackColor = vbRed
mnublue.Checked = False
mnuGreen.Checked = False
mnuRed.Checked = True
End Sub
Private Sub mnuInitial_Click()
lblMenu.Caption = “Select a mnue option”
mnuInitial.Checked = True
mnuHello.Checked = False
mnuWelcome.Checked = False
End Sub
Private Sub mnuHello_Click()
lblMenu.Caption = “Hello”
mnuInitial.Checked = False
mnuHello.Checked = True
mnuWelcome.Checked = False
End Sub
Private Sub mnuWelcome_Click()
lblMenu.Caption = “Welcome”
mnuInitial.Checked = False
mnuHello.Checked = False
mnuWelcome.Checked = True
End Sub
عملگر(.) خواص یک شیئ را در اختیار ما قرار می دهد. خاصیت Checked دو مقدار درست و نادرست می گیرد.اگر این خاصیت را به True ست کنیم منو تیک می خورد.