VB如何加载Skin++皮肤

先引用歼稿祥这个氏搏控件，然后在窗体上面画一个

在

Private Sub Form_Load()

Skin1.LoadSkin SkinPath ' SkinPath是加载的皮肤路径

Skin1.ApplySkin Me.hWnd '在这个窗体当中应敬纯用

End Sub

1.首先在窗口启动磨旁时进行皮肤加载,例如在执行目录下有个名为1.SKN的皮肤文件,则执行下面代码.

Private Sub Form_Load()

Skin1.LoadSkin App.Path &"\1.skn"

Skin1.ApplySkin (0)

end Sub

2.创建一个COMBOBOX作多用户切换选择用的.例如在执行目录下虚纯有1.SKN \2.SKN \3.SKN等多个你自己已经创建好的皮肤文件差游咐,则可以执行下面代码进行动态加载.

Private Sub Combo1_Click()

Skin1.LoadSkin App.Path &combo1.text

Skin1.ApplySkin (0)

end sub

---