سلام دوستان
میخواستم بدونم چه جوری میشه فرمی درست کرد که وقتی روش راست کلیک میکنی منویی مانند منوی راست کلیک روی دسکتاپ باز کنه؟
Printable View
سلام دوستان
میخواستم بدونم چه جوری میشه فرمی درست کرد که وقتی روش راست کلیک میکنی منویی مانند منوی راست کلیک روی دسکتاپ باز کنه؟
با سلامنقل قول:
راستش من يه روش بلدم كه وقتي شم رو فرم راست كليك مي كنيد نوشته هاي منو رو نشون ميده . مثلا
شما يك منو ايجاد كرديد با نام File و چندتا هم زير منو ميذاريد وقتي كه رو فرم كليك ميكنيد زير منوهاي File
رو نشون ميده . فكر كنم اگه كمي تو كدش رو دست كاري كني بتوني به خواستت برسي . من سورسش رو
ميذارم . :40::11:
private sub form_mousedown (button as integer , shift as integer , x as single , y as single)
if button =2 then popmenu mnuFile
end sub
private sub form_showpicture_mousedown(button as integer , shift as integer , x as single , y as single)
if button = 2 then popmenu mnuFile
end subراستي نام File رو وقتي كه ايجاد ش ميكني رو mnuFile بگذاريد .
با تنشكر:10:
1- شما باید یک منو از قسمت Menu Editor درست کنید !نقل قول:
2- در آبجکت فرم و رویداد load مقدار Visible منو رو مساوی False کنید . مثلا فرض کنید اسم منوی شما mnuFile هست پس مینویسید :
کد:Private Sub Form_Load()
mnuFile.Visible = False
End Sub
3- در رویداد Mouse Down همون کدی که دوستمون Rishter زحمت کشیدند ، گفتند رو تایپ کنید :
کد:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuFile
End If
End Sub
* حتما منویی که میسازی باید زیرمجموعه داشته باشه تا وقتی Right Click میکنی اون ها رو نشون بده !