activeskin在vb.net下的运用_vb activeskin-优快云博客

本文链接：https://blog.youkuaiyun.com/LanLanPisces/article/details/1223380

本文介绍了在vb.net环境下如何使用activeskin库来改变应用程序的皮肤。首先在Module中定义了一个公共过程SkinMe，用于加载和应用皮肤。然后在窗体的Load事件中调用此过程进行初始化。此外，还展示了如何通过ChangeFormSkin过程来更改不同控件的皮肤，并提及了Handle属性在应用皮肤过程中的作用。文章最后提到，作者计划进一步学习模块、类和数组的加载。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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 String)
AxSkin1.LoadSkin(strSkinName)

AxSkin1.ApplySkinByName(Me.Handle.ToInt32, "form")
               AxSkin1.ApplySkinByName(btnRefurbish.Handle.ToInt64, "button")
                AxSkin1.ApplySkinByName(lblChP.Handle.ToInt64, "label")

                      AxSkin1.ApplySkinByName(chkTop.Handle.ToInt64, "check")
                  AxSkin1.ApplySkinByName(rdo3.Handle.ToInt32, "radio")
End Sub

4。handle属性

要走了，明天加进来吧，明天重点学习模块和类的加载，还有数组