pop up menu

[vahidehrafati]

سلام

من به یک pop up menu نیاز دارم .

لطفا اگر ocx ی می شناسید که می توانم از آن استفاده نمایم به من معرفی کنید

ممنون

[PalizeSoftware]

ویژگی خاصی مد نظر دارید؟

[meh_secure]

نیاز به ocx نداره
یه منوی Invisible در menu editor بساز و بعد ازاین کد استفاده کن و اسم منو را mnuPop بگدارید.
Private sub form_mousemove()
if button=1 then popupmenu(mnuPop)
end sub

[vahidehrafati]

ویژگی خاصی مد نظر دارید؟

نه . فقط مثل یک popup menu ی معمولی که چند تا tab بتونم ایجاد کنم که هر tab هم بتونه آیکون هایی رو به عنوان زیر مجموعه اش داشته باشه .

ممنون

[vahidehrafati]

نیاز به ocx نداره
یه منوی Invisible در menu editor بساز و بعد ازاین کد استفاده کن و اسم منو را mnuPop بگدارید.
Private sub form_mousemove()
if button=1 then popupmenu(mnuPop)
end sub

سلام

کد شما رو نوشتم error داد می شه source بفرستید ؟

ممنون می شم .

[meh_secure]

چشم می فرستم.
تا بنویسمش یه چند دقیقه طول می کشه

[meh_secure]

این دیگه جوابت رو میده.
خواستم سورس بفرستم هر کاری کردم نشد. (نمی دونم چرا)

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnuPop, , X, Y
End If
End Sub