برنامه نویسی ویژوال بیسیک

امروز یاد می گیریم چگونه به سادگی یک منو به برنامه ی خود اضافه کنیم.

ابتدا یک برچسب به نام 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 ست کنیم منو تیک می خورد.