ایجاد منو زمان Focus گرفتن

[ali-a2]

با سلام

میخواستم بدونم چجوری میشه زمانی که موس روی یک کامند قرار میگیره یا اون دکمه Focus میگیره یه منو کنار دکمه ظاهر شه ، نمیدونم چه دستوری در MouseMove یا GotFocus باید بنویسم .

با تشکر

[Veteran]

Private Sub Command1_GotFocus()
PopupMenu Me.File
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
PopupMenu Me.File
End Sub

به جای File
اسم منو خودتون رو بزارید.
مثلا اگر فایل در فرم 2 باشه
بزنید form2.file
File=اسم منو که زیر منوهایی داره

[ali-a2]

ممنون ولی یه سوال اینجوری این منو رنگ اسکین رو نمیگیره ، میخواستم بپرسم راهی هست که منو رنگ اسکین رو بگیره ؟

[arenaw]

منوی خود ویبی مثل واسه explorer میشه همیشه، من خودم از اسکین استفاده نکردم، ولی قبلا مشکل شما رو کس دیگه ای هم داشت، دوستان گفته بودند که باید از منو های خود اسکین استفاده کنید

[ali-a2]

خوب شما خودت واسه منو از چی استفاده میکنی؟

[محسن واژدی]

ممنون ولی یه سوال اینجوری این منو رنگ اسکین رو نمیگیره ، میخواستم بپرسم راهی هست که منو رنگ اسکین رو بگیره ؟
سلام
میتوانید از کامپوننت "Xctreme SkinFramework ActiveX" از مجموعه Code-Jock یا ActiveSkin (در انجمن مطرح شده) هم استفاده کنید، همینطور اسکین منوها هم همزمان با تغییر پوسته تغییر میکند

موفق باشید

[ali-a2]

جناب واژدی عزیز من خودم از Active Skin استفاده میکنم ، منو ها وقتی در جای خودشون باشن رنگ اسکین رو میگیرن ولی وقتی به این صورتی که من گفتم باشه رنگ منو بر روی کامند به کلی عوض میشه و شبیه منوی خود Explorer میشه .

[محسن واژدی]

"SkinFramework ActiveX" هم کامپوننت مناسبی هست و مشکلات اینچنینی را ندارد