جلسه سوم(منوها در ویژوال بیسیک 6)

امروز یاد می گیریم چگونه به سادگی یک منو به برنامه ی خود اضافه کنیم.ابتدا یک برچسب به نام 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 = FalseEnd SubPrivate Sub mnuGreen_Click()          lblMenu.BackColor = vbGreen          mnublue.Checked = False          mnuGreen.Checked = True          mnuRed.Checked = FalseEnd SubPrivate Sub mnuRed_Click()          lblMenu.BackColor = vbRed          mnublue.Checked = False          mnuGreen.Checked = False          mnuRed.Checked = TrueEnd SubPrivate Sub mnuInitial_Click()          lblMenu.Caption = “Select a mnue option”          mnuInitial.Checked = True          mnuHello.Checked = False          mnuWelcome.Checked = FalseEnd SubPrivate Sub mnuHello_Click()          lblMenu.Caption = “Hello”          mnuInitial.Checked = False          mnuHello.Checked = True          mnuWelcome.Checked = FalseEnd SubPrivate Sub mnuWelcome_Click()          lblMenu.Caption = “Welcome”          mnuInitial.Checked = False          mnuHello.Checked = False          mnuWelcome.Checked = TrueEnd Subعملگر(.) خواص یک شیئ را در اختیار ما قرار می دهد. خاصیت Checked دو مقدار درست و نادرست می گیرد.اگر این خاصیت را به True ست کنیم منو تیک می خورد.

  
نویسنده : ali gooliof ; ساعت ۱۱:٥٧ ‎ب.ظ روز ۱۳۸٧/٢/٦
تگ ها :