سوال در مورد right click

[shuhin]

سلام دوستان
میخواستم بدونم چه جوری میشه فرمی درست کرد که وقتی روش راست کلیک میکنی منویی مانند منوی راست کلیک روی دسکتاپ باز کنه؟

[Rishter]

سلام دوستان
میخواستم بدونم چه جوری میشه فرمی درست کرد که وقتی روش راست کلیک میکنی منویی مانند منوی راست کلیک روی دسکتاپ باز کنه؟

با سلام

راستش من يه روش بلدم كه وقتي شم رو فرم راست كليك مي كنيد نوشته هاي منو رو نشون ميده . مثلا

شما يك منو ايجاد كرديد با نام 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:

[M i L @ D]

سلام دوستان
میخواستم بدونم چه جوری میشه فرمی درست کرد که وقتی روش راست کلیک میکنی منویی مانند منوی راست کلیک روی دسکتاپ باز کنه؟

1- شما باید یک منو از قسمت Menu Editor درست کنید !

2- در آبجکت فرم و رویداد load مقدار Visible منو رو مساوی False کنید . مثلا فرض کنید اسم منوی شما mnuFile هست پس مینویسید :



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


3- در رویداد Mouse Down همون کدی که دوستمون Rishter زحمت کشیدند ، گفتند رو تایپ کنید :



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید



* حتما منویی که میسازی باید زیرمجموعه داشته باشه تا وقتی Right Click میکنی اون ها رو نشون بده !