چه جوری میشه کنار منو آیکن ایجاد کرد؟

[mr_esmaily]

آقا یکی درست و حسابی بگه چه جوری میشه کنار منو آیکن ایجاد کرد؟ :roll:

[Voldemort]

Esmaily عزیز در ویندوز تقریبا با هر چیزی که بخواهید کار کنید باید Handle آن را داشته باشید که منوها نیز از این قاعده مستثنی نیستند. بنابراین ابتدا با استفاده از تابع GetMenu هندل منوی پنجره را بدست می آوریم:

Dim hMenu As Long
hMenu = GetMenu(Me.hwnd)
If hMenu = 0 Then
MsgBox "This form doesn't have a menu!"
Exit Sub
End Ifسپس با استفاده از تابع GetSubMenu هندل زیرمنوی مورد نظرمان را بدست می آوریم:

Dim hSubMenu As Long
hSubMenu = GetSubMenu(hMenu, 0)
If hSubMenu = 0 Then
MsgBox "This form doesn't have a submenu!"
Exit Sub
End If
و در نهایت با استفاده از تابع SetMenuItemBitmaps یک تصویر را در کنار آیتم مورد نظر از منو قرار می دهیم.

SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture
Picture1 یک کنترل Picture است که شما به جای آن می توانید از هر شی حاوی تصویر استفاده کنید.
جزییات این توابع را می توانید در MSDN پیدا کنید. حتما آنها را مطالعه کنید.