موضوع: منوها در vb

ابتدا یک برچسب به نام 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 ست کنیم منو تیک می خورد.
منبع:
http://vblearning.blogfa.com/