vb6; چطور می توان منوی کلیک راست ساخت؟؟؟

[Saeed Shahabi]

با عرض سلام و امید سلامتی برای اعضا و مدیران سایت...
چطور می تونم منوی کلیک راست بسازم؟(می خوام واسه picturebox ام یه منوی کلیک راست بسازم)
خیلی خیلی ممنون...

 

[the_king]

با عرض سلام و امید سلامتی برای اعضا و مدیران سایت...
چطور می تونم منوی کلیک راست بسازم؟(می خوام واسه picturebox ام یه منوی کلیک راست بسازم)
خیلی خیلی ممنون...

اول بالای فرم منوی مورد نظر (مثلا MnuProperties) و گزینه های داخل اش را قرار دهید (Ctrl + E).

چون احتمالا نمی خواهید آن منو در بالای فرم دیده شود، در بین مشخصه های منوی مورد نظر، تیک Visible
را بردارید. کاری به Visible گزینه های داخل آن منو و سایر منوی های برنامه تان نداشته باشید،
چون اگر یک منو قابل مشاهده نباشد، کلیه زیر منو ها و گزینه های داخل اش نیز نمایش نخواهند یافت.

بعد با کد زیر می توانید با راست کلیک کردن روی PictureBox ای با نام Picture1 گزینه های داخل آن منو را نشان دهید :

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

کد کامل برنامه به همراه فایل اجرایی exe ضمیمه این پست می باشد.