menu pic

[samansoltani]

کسی بلده به من یاد بده چجوری میشه :
ایکون کنار منو گذاشت؟؟

[ajlajlajl]

من دنبالش نرفتم ولی فکر کنم کنترلش هم باشه

[ajlajlajl]

بفرما:
http://www.vbaccelerator.com/home/VB/Cod.../index.asp
هم کدش هم خودش هم برنامه نمونه هر کدومش هست. ولی کلا توصیه میکنم کودشو نخونی. از همون کنترل استفاده کن و دعا بجونش کن.

[samansoltani]

بابا سورسشو همین جا بزار
بدون اکتیو ایکس . دی ال ال

[ajlajlajl]

دیگه ویبی کارا باید سایت vbaccelerator رو بشناسند. انگلیسی هم دیگه زشته برای یه برنامه نویس ... . بگذریم.
برای مثال من کنترل IconMenu DLL رو میگم. توی اون آدرسی که دادم برای مثال گزینه IconMenu DLL رو انتخاب میکنید. یه صفح میاد که در مورد اون کنترل توضیح کامل داده. اگر خواستید در مورد ساختار کنترل و طریقه کارش بدونید میتونید این صفحه رو بخونید.سمت چپ صفحه توی کادر download 6 تا لینکه که سه تا اولی به زبان vb5 هسته و سه تا بعدی برای vb6 هسته.لینک اول با عنوان:VB6 IconMenu DLL Binary کتابخونه رو در اختیارتون میگذاره. لینک بعدی : VB6 IconMenu DLL Demonstration یه برنامه نمونه است که برای یاد دادن نوه کار داده شده و سومی : VB6 IconMenu DLL Full Source سورس کامل کتابخونه رو میده.
توی هر کدوم از این لینکا که برید بالای صفحه ای که میاد یه لینکه که برای دنلود هسته. زیرش لیست فایلهای موجود در فایل زیپ و زیرترش لست رفرنس های پروژه. در اکثر پروژه های این سایت از چند تا کتابخونه که ساخت خودش هست استفاده میکنه. توی لیست رفرنس ها اگه از یکی از این رفرنس ها باشه لینک دنلود و لینک شرحش هم رو کنارش میگذاره. که لین دنلوده یه صفحه مثل همین صفحه ایکه جلو روتون هستو میاره و از طریقش میتونید اونو دنلود کنید و لینک توضیحه یه صفحه مثل صفحه اولی براتون میاره که در مورد اون توضیح داده و... .
برای مثال. این لینک دنلود کتابخونه باینری:
http://www.vbaccelerator.com/home/VB/Cod...Binary.zip
این لینک دنلود پروژه مثال:
http://www.vbaccelerator.com/home/VB/Cod...ration.zip
این لینک دنلود سورس کتابخونه:
http://www.vbaccelerator.com/home/VB/Cod...Source.zip
اینم لینک دنلود دو تا رفرنس ها :
http://www.vbaccelerator.com/home/VB/Cod...Binary.zip
http://www.vbaccelerator.com/home/VB/Cod...Binary.zip
همه این لینکا هم مستقیمه.

این حالا یکی از اون موارد بود. IconMenu Control یه ocx هسته که کار شما رو راحت تر میکنه. و موارد دیگه که توی اون صفحه ای که معرفی کردم هست.
اینم لینکای کنترل منو:
این لینک دنلود کنترل باینری:
http://www.vbaccelerator.com/home/VB/Cod...Binary.zip
این لینک دنلود پروژه مثال:
http://www.vbaccelerator.com/home/VB/Cod...ration.zip
این لینک دنلود سورس کتابخونه:
http://www.vbaccelerator.com/home/VB/Cod...Source.zip
اینم لینک دنلود رفرنس مورد نیاز کنترل و سورسش:
http://www.vbaccelerator.com/home/VB/Cod...Binary.zip

توجه : نمونه کد ها یا همون Demonstration علاوه بر رفرنس مورد نیاز کنترل یا کتابخونه به خود کنترل کنترل یا کتابخونه به صورت باینری هم نیاز دارند.
توجه: حتما رفرنس ها رو توی پوشه ویندوز بریزید و گرنه کنترل یا کتابخونه یا کد مثال کار نمیکنند.

در آخر. حداقل انگلیسی رو در حد متون کامپیوتری یاد بگیرید. همیشه رفرنس های فارسی پیدا نمشه.

[ajlajlajl]

اگه پول داری یا تونستی کرکش کنی میتونی از این هم استفاده کنی:
http://www.xpstyle-menu.com/download.htm

[PouriaAmid]

اینم کد. يه پيک باکس بزار روی فرم و آيکن رو بزار توش. فهميدنش ديگه با خودت

Module:

کد:

Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Public Const MF_BITMAP = &H4&
Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, _
ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Boolean
Public Const MIIM_ID = &H2
Public Const MIIM_TYPE = &H10
Public Const MFT_STRING = &H0&

Form:

کد:

Private Sub Form_Load()
hMenu& = GetMenu(Form1.hwnd)
hSubMenu& = GetSubMenu(hMenu&, 0)
hID& = GetMenuItemID(hSubMenu&, 0)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture

End Sub

موفق باشی