امروز می خواهم درباره ظاهر شدن منو وقتی که روی فرم یا هر چیز کلیک می کنیم ظاهر شود صحبت کنم .
خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم .
حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Button = 1 :::>>> For LeftClick
'Button = 2 :::>> For RightClick
If Button = 2 Then
PopupMenu MnuFile
End If
End Sub
توضیح : عبارت If Button = 2 Then یعنی این که اگر کلیک راست شد ، دستور Popup Menu mnufile اجرا می شود . اگر می خواهید کاربر وقتی کلیک چپ کرد ، این منو برای آن ظاهر شود ، از دستور If Button = 1 استفاده می کنیم .
توضیح 2 : MnuFile که توپر مشخص شده است ، نام منویی است که می خواهیم وقتی کاربر کلیک کرد ، ظاهر شود است .
حالا برنامه را Run کنید و بر روی فرم راست کلیک کنید می بینید که فرم ظاهر میشود
خوب شما می توانید منوی کلیک راست رو برای هر عنصری که رویداد MouseDown رو داره پیاده سازی کنید .
طبقه بندی: ویژوال بیسیك، سورس رایگان، رفع اشكال/سخت افزار / نرم افزار، دانلود كتاب و جزوه رشته كامپیوتر،
برچسب ها: MouseDown، ایجاد منو برای کلیک راست، ویژوال بیسیك، VB.6،
درباره مدیریت وب
