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

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

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

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

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

برای دستکاری منو های برنامه وعکس ګذاشتن کنار آنها از سورس زیر استفاده کن
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

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

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

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

کد:

---

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Const RGN_OR = 2

---

sepas code ziro dar form_load benevisid

کد:

---

    Dim hRectRgn As Long
    Dim hEllipsRgn As Long
    Dim hCombineRgn As Long
   
    hEllipsRgn = CreateEllipticRgn(0, 0, 250, 250)
    hRectRgn = CreateRectRgn(0, 0, 125, 250)
    hCombineRgn = CreateRectRgn(0, 0, 250, 250)
   
    CombineRgn hCombineRgn, hRectRgn, hEllipsRgn, RGN_OR
    SetWindowRgn Me.hwnd, hCombineRgn, True

---

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