مي خوام فرم خودم رو خودم طراحي كنم (خيلي فوري)

[Adel.p30]

با سلام
مي خواستم بدونم چه جوري مي تونم فرم برنامه ام رو خودم با فوتوشاپ طراحي كنم
بعد مي خواستم دكمه هاي برنامم رو خودم طراحي كنم با فوتوشاپ
يعني به طور كلي عكس هاي كنار منو ها كلا چيزهاي گرافيكي رو مي خوام با فوتوشاپ طراحي بعد توي ويژوال بيسيك
به كار به گيرم اون كه چه جوري مال فرمم رو با فوتوشاپ طراحي كنم خيلي برام سوال
يعني اينكه اون پنجره ي اصلي كه وقتي برنامه اجرا ميشه با دكمه هاش رو خدوم طراحي كنم
متشكر ميشم كمكم كنيد

[r_oscar2007]

با استفاده از Api می توانید این کار را نجام دهید

[Adel.p30]

فقط همين اي پي اي

[Adel.p30]

يعني هيچ توضيحي نمي ديد

[r_oscar2007]

برای دستکاری منو های برنامه وعکس ګذاشتن کنار آنها از سورس زیر استفاده کن
Private Const MF_BYCOMMAND = &H0&
Private Const MF_BYPOSITION = &H400&
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private 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

Private Sub Form_Load()
Dim hMenu As Long, hSubMenu As Long

Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
hMenu = GetMenu(Me.hwnd)

hSubMenu = GetSubMenu(hMenu, 0)

SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Picture
SetMenuItemBitmaps hSubMenu, 1, MF_BYPOSITION, Picture2.Picture, Picture2.Picture
SetMenuItemBitmaps hSubMenu, 2, MF_BYPOSITION, Picture3.Picture, Picture3.Picture
End Sub

[nk_hsn]

man ghablan in karo kardam faghat alan dame dastam nist age sabr mikoni barat peydashun konam

[Adel.p30]

با سلام اگه برام پيدا كني خيلي خوبه

[nk_hsn]

.salam,bebakhshid dir shod
(ama , code ziro dar general benevisid(declare konid

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

sepas code ziro dar form_load benevisid

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

In code yek code nemune ast ke shoma mitunid ba taghir moteghayer ha form morede alaghatuno besazid
dar zemn age mitunid be man begid ke chera nemitunam dar in sait farsi benevisam. tanks