راست كليك در ويژوال بيسيك

[Anti-Opensource]

سلام...دو تاپيك در يك روز
چه جوري ميشه كه وقتي كاربر رو فرم يا محلي خاص راست كليك كرد يه منو فعال بشه ...
توي دلفي كه popup menu اين كار رو سه سوت كرده ..تو وي بي چند سوته؟

 

[mehrdadneedhelp]

تو وبي دات نت نيم سوته(فقط اميدوارم منظرت دات نت باشه البته فكر كنم وبي 6 هم تو همين مايحه ها باشه)
تو windows form گزينه contex menu انتخواب كنيد و منوتون رو بسازيد
حالا page رو انتخواب كنيد و contex menu اون رو مشخص كنيد

 

[Payam Moradi]

سلام...دو تاپيك در يك روز
چه جوري ميشه كه وقتي كاربر رو فرم يا محلي خاص راست كليك كرد يه منو فعال بشه ...
توي دلفي كه popup menu اين كار رو سه سوت كرده ..تو وي بي چند سوته؟

در وي بي كه بلد هستيد منوهاي بالاي فرم رو ايجاد كنيد. حالا منوي اصلي Visible رو False قرار بده. حالا كافيه با كد ذيل منويي كه Visible اونو منفي كردي فراخواني كنيد.
در اين كد با راست كليك بروي فرم منو ظاهر ميشه :

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
      PopupMenu Main_Menu_Name
     End If
End Sub

اين كد رو دقيقا در ماژول فرم قرار بدهيد. و به جاي Main_Menu_Name نام منوي اصلي رو قرار بدهيد.
برنامش هم فرستادم.

 

[Payam Moradi]

سلام...دو تاپيك در يك روز
چه جوري ميشه كه وقتي كاربر رو فرم يا محلي خاص راست كليك كرد يه منو فعال بشه ...
توي دلفي كه popup menu اين كار رو سه سوت كرده ..تو وي بي چند سوته؟

در وي بي كه بلد هستيد منوهاي بالاي فرم رو ايجاد كنيد. حالا منوي اصلي Visible رو False قرار بده. حالا كافيه با كد ذيل منويي كه Visible اونو منفي كردي فراخواني كنيد.
در اين كد با راست كليك بروي فرم منو ظاهر ميشه :

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
      PopupMenu Main_Menu_Name
     End If
End Sub

اين كد رو دقيقا در ماژول فرم قرار بدهيد. و به جاي Main_Menu_Name نام منوي اصلي رو قرار بدهيد.
برنامش هم فرستادم.

 

[hamed_h]

پيام خان توضيح كامل داده . ديگه نيازي نيست كه منم بگم .

 

[Anti-Opensource]

چي دارم بگم غير از يه تشكر داغ...؟!؟!؟