Codenstuff.com

<?xml version="1.0" encoding="utf-8"?>
<skin>
  <mdata>
      <skin_name>Default</skin_name>
      <author>Scottie1972</author>
      <link>http://www.google.com</link>
  </mdata>
  <images>
    <img_path>default</img_path>
    <background>mbackground.png</background>
    <bglayout>1</bglayout>
  </images>
  <form>
    <formborder>4</formborder>
    <control_font_color>black</control_font_color>
    <control_bgcolor>white</control_bgcolor>
  </form>
</skin>

Imports System.Xml

Module skin_mod

    '************************************************************************
    ' My Skinning Engine v1.0
    '
    '
    '
    'BackgroundImageLayout Settings
    '0 = None
    '1 = Title
    '2 = Center
    '3 = Stretch
    '4 = Zoom
    '
    '
    '
    'FormBorder Settings
    '0 = None
    '1 = FixedSingle
    '2 = Fixed3D
    '3 = FixedDialog
    '4 = Sizable
    '5 = FixedToolWindow
    '6 = SizableToolWindow
    '************************************************************************

    Private WithEvents SkinDIR As String = Application.StartupPath & "\skins\"
    Private WithEvents DefaultSkin As String = My.Settings.DefaultSkin

    Public Sub LoadSkinData(ByRef lstBox As ListBox, ByVal Skin As String, ByRef pb As PictureBox)
        lstBox.Items.Clear()
        pb.Image = Nothing
        Dim XmlDoc As New XmlDocument
        XmlDoc.Load(SkinDIR & "\" & Skin)
        For Each IDNode As XmlNode In XmlDoc.SelectNodes("//skin/mdata")
            If IDNode.HasChildNodes = True Then
                Dim Skin_Name As String = IDNode.ChildNodes(0).InnerText
                Dim Author As String = IDNode.ChildNodes(1).InnerText
                Dim Link As String = IDNode.ChildNodes(2).InnerText

                lstBox.Items.Add(Skin_Name)
                lstBox.Items.Add(Author)
                lstBox.Items.Add(Link)
            End If
        Next

        For Each IDNode As XmlNode In XmlDoc.SelectNodes("//skin/images")
            If IDNode.HasChildNodes = True Then
                Dim skin_path As String = IDNode.ChildNodes(0).InnerText.ToString
                Dim Background As String = SkinDIR & skin_path & "\" & IDNode.ChildNodes(1).InnerText

                pb.SizeMode = PictureBoxSizeMode.StretchImage

                If Not Background = SkinDIR & skin_path & "\Nothing" Then
                    pb.Image = Image.FromFile(Background)
                End If


            End If
        Next

    End Sub

    Public Sub LoadBackgroundImage(ByRef frm As Form, _
                                   ByVal Skin As String, _
                                   ByRef lb1 As Control, _
                                   ByRef lb2 As Control)
        Dim XmlDoc As New XmlDocument
        XmlDoc.Load(SkinDIR & "\" & Skin)

        'Loads Sjin Images
        For Each IDNode As XmlNode In XmlDoc.SelectNodes("//skin/images")
            If IDNode.HasChildNodes = True Then
                Dim skin_path As String = IDNode.ChildNodes(0).InnerText.ToString
                Dim Background As String = SkinDIR & skin_path & "\" & IDNode.ChildNodes(1).InnerText
                Dim bgLayout As Integer = IDNode.ChildNodes(2).InnerText

                If Not Background = SkinDIR & skin_path & "\Nothing" Then
                    frm.BackgroundImageLayout = bgLayout
                    frm.BackgroundImage = Image.FromFile(Background)
                Else
                    frm.BackgroundImage = Nothing
                End If

            End If
        Next


        'Loads Visual Form
        For Each IDNode As XmlNode In XmlDoc.SelectNodes("//skin/form")
            If IDNode.HasChildNodes = True Then
                Dim formBorder As Integer = IDNode.ChildNodes(0).InnerText
                Dim foreColor As String = IDNode.ChildNodes(1).InnerText
                Dim bgColor = IDNode.ChildNodes(2).InnerText

                frm.FormBorderStyle = formBorder

                lb1.ForeColor = Color.FromName(foreColor)
                lb1.BackColor = Color.FromName(bgColor)

                lb2.ForeColor = Color.FromName(foreColor)
                lb2.BackColor = Color.FromName(bgColor)


            End If
        Next
    End Sub

    Public Sub LoadSkinList(ByRef lstBox As ListBox)
        Dim strFileSize As String = ""
        Dim di As New IO.DirectoryInfo(SkinDIR)
        Dim aryFi As IO.FileInfo() = di.GetFiles("*.xml")
        Dim fi As IO.FileInfo

        For Each fi In aryFi
            lstBox.Items.Add(IO.Path.GetFileNameWithoutExtension(fi.Name))
        Next
    End Sub
End Module

If My.Settings.UseSkin = True Then
            LoadBackgroundImage(Me, My.Settings.DefaultSkin, ListBox1, ListBox2)
            CheckBox1.CheckState = CheckState.Checked
        End If

  ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        PictureBox1.Image = Nothing
        Button2.Tag = ""
        LoadSkinList(ListBox1)

LoadSkinData(ListBox2, ListBox1.SelectedItem & ".xml", PictureBox1)
        Button2.Tag = ListBox1.SelectedItem & ".xml"

If CheckBox1.CheckState = CheckState.Checked Then
            My.Settings.UseSkin = True
            My.Settings.DefaultSkin = "default.xml"
            My.Settings.Save()
        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
            Me.BackgroundImage = Nothing
            My.Settings.UseSkin = False
            My.Settings.DefaultSkin = "default.xml"
            My.Settings.Save()
        End If

LoadBackgroundImage(Me, Button2.Tag, ListBox1, ListBox2)
        My.Settings.DefaultSkin = Button2.Tag
        My.Settings.Save()