MEMBUAT TAMPILAN SKIN dan BACKGROUND

===========================================================
 Coding di Form Menu
 ===========================================================

Dim Addres As String

Private Sub Form_Load()
    Addres = App.Path + "\Backgrounds"
    On Error Resume Next
    ImgBackGound.Picture = LoadPicture(Addres + "\Background.jpg")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MnExit_Click
End Sub

Private Sub MnCariB_Click()
  On Error GoTo 1
    Kill App.Path & "foto.jpg"
    DoEvents
1
    On Error Resume Next
  
    cDialog.Filter = "jpg|*.jpg"
    cDialog.ShowOpen
    ImgBackGound = LoadPicture(cDialog.filename)
    SavePicture ImgBackGound.Picture, (Addres + "\Background.jpg")
    Exit Sub
salah:
    MsgBox "Format gambar tidak sesuai" & vbCrLf & "" _
    & "Silakan pilih gambar dengan format GIF,BMP atau JPG", vbCritical, "Proses Pending"
End Sub

Private Sub MnCariS_Click()
    Dim filename As String
    filename = ShowFileDialog
    If filename <> "" Then
        Skn.LoadSkin filename
        Skn.ApplySkin Me.hwnd
    End If
End Sub

Private Sub MnChizh_Click()
If MnChizh.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\chizh.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnChizh.Checked = True
End If
End Sub

Private Sub MnExit_Click()
Dim jawaban As Integer
    jawaban = MsgBox("Apa Anda yakin akan keluar???", vbYesNo + vbQuestion, "Peringatan!!!")
    If jawaban = vbYes Then
    Conn.Execute "update tbuser set status=0 where KdUser='" & MUtama.MKode & "'"
    End
    End If
End Sub

Private Sub MnGalaxy_Click()
If MnGalaxy.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\GALAXY.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnGalaxy.Checked = True
End If
End Sub

Private Sub MnGreen_Click()
If MnGreen.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\GREEN.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnGreen.Checked = True
End If
End Sub

Private Sub MnMedia_Click()
If MnMedia.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\MEDIA.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnMedia.Checked = True
End If
End Sub

Private Sub MnMetallic_Click()
If MnMetallic.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\METALLIC.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnMetallic.Checked = True
End If
End Sub

Private Sub MnPaper_Click()
If MnPaper.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\PAPER.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnPaper.Checked = True
End If
End Sub

Private Sub MnPwd_Click()
frmPwd.Show 1
End Sub

Private Sub MnSmart_Click()
    ImgBackGound.Picture = LoadPicture(Addres + "\mahirSmart.jpg")
    SavePicture ImgBackGound.Picture, (Addres + "\Background.jpg")
End Sub

Private Sub MnStatus_Click()
FrmStatus.Show 1
End Sub

Private Sub Sky()
    MnStudio.Checked = False
    MnChizh.Checked = False
    MnGalaxy.Checked = False
    MnGreen.Checked = False
    MnMedia.Checked = False
    MnMetallic.Checked = False
    MnPaper.Checked = False
    MnTopSecret.Checked = False
    MnWeb.Checked = False
    MnWina.Checked = False
    MnZelezo.Checked = False
End Sub

Private Sub MnStudio_Click()
If MnStudio.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\B-Studio.skn"
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
    Sky
    MnStudio.Checked = True
End If

End Sub

Private Sub MnTopSecret_Click()
If MnTopSecret.Checked = False Then
    Skn.RemoveSkin (Me.hwnd)
    Skn.LoadSkin App.Path + "\skin\TOPSECRET.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnTopSecret.Checked = True
End If
End Sub

Private Sub MnUser_Click()
frmKar.Show 1
End Sub

Private Sub MnWeb_Click()
If MnWeb.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\WEB-II.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnWeb.Checked = True
End If
End Sub

Private Sub MnWina_Click()
If MnWina.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\WINAQUA.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnWina.Checked = True
End If
End Sub

Private Sub MnZelezo_Click()
If MnZelezo.Checked = False Then
    Skn.LoadSkin App.Path + "\skin\ZHELEZO.skn"
    Skn.ApplySkin Me.hwnd
    Skn.SaveSkin App.Path + "\skin\new.skn"
    Sky
    MnZelezo.Checked = True
End If
End Sub
============================================================
Coding di Form Lain
============================================================
Private Sub Form_Load()
    Skn.LoadSkin App.Path + "\skin\new.skn"
    Skn.ApplySkin Me.hwnd
End Sub   









============================================================



Contoh Form Menu