activeskin在vb.net下的运用

刚才整理那么多的资料结果一下子就没有了，惨啊，破机子，实验室的电脑越来越不好用了，下面接着做吧

1，在module里写入过程

    Public Sub SkinMe(ByVal app As String)
 

        With fmmain
            .AxSkin1.LoadSkin(app)
            .AxSkin1.ApplySkin(.Handle.ToInt32)
            .AxSkin1.ApplySkinByName(.Handle.ToInt32, "FormMain")

        End With

    End Sub 

上面这个过程可以进行初始化不同的窗体，在工程项目里，只要在with 窗体名。。。endwith中加载不同的skin皮肤代码即可。

2，在窗体的load事件中加载如下代码，调用skinme

   Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '初始化皮肤

        Dim app As String = Application.StartupPath + "/Face/Main_0.Sp"
        Call SkinMe(app)

    End Sub

3。在本网页内学习到的资料

call   changeFromSkin("c:/sda.skn")  
   
  Private   Sub   ChangeFormSkin(ByVal   strSkinName   As   St