ae-love | # 1: پیام| پنچ شنبه, 2009-05-14, 00:50:26 :تاریخ |
Admin
7:پیام
| خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم : Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Code 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 حالا برنامه را Run کنید و بر روی فرم راست کلیک کنید می بینید که فرم ظاهر میشود خوب شما می توانید منوی کلیک راست رو برای هر عنصری که رویداد MouseDown رو داره پیاده سازیکنی د .
|
|
| |