VB 如何调用she皮肤？

呵呵 这分别是两个函数

首先是SkinH_Attach，调用这个函数不需要参数，他会自动搜索程序所在目录的skinh.she文件并加载郑歼行。

然后是SkinH_AttachEx，这个函数在SkinH_Attach的后面加了Ex，Ex就是扩喊哗展的意思

SkinH_AttachEx App.Path &"\skinh.she", ""就是使用App.Path &"\skinh.she"这个路劲的she文件，这个函数改运就是可以随意指定she文件的路劲来加载，纯手工打的哦！

SkinH_AttachEx App.Path &"\skinh.she", ""的代码的效果和直接用SkinH_Attach是一样的

调用控件,我喜欢skin#的皮肤控件用.

首先确认你拿到了这个含茄控件:SkinH_VB6.dll

然后就是你拿到的皮肤了,比如你的皮肤名为:skin.she

调用方法是,先新建个模块:

Public Declare Function SkinH_Attach Lib "SkinH_VB6.dll" () As Long

Public Declare Function SkinH_AttachEx Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long

Public Declare Function SkinH_AttachExt Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String, ByVal nHue As Integer, ByVal nSat As Integer, ByVal nBri As Integer) As Long

Public Declare Function SkinH_AttachRes Lib "SkinH_VB6.dll" (lpRes As Any, ByVal nSize As Long, ByVal lpPasswd As String, ByVal nHue As Integer, ByVal nSat As Integer, ByVal nBri As Integer) As Long

Public Declare Function SkinH_AdjustHSV Lib "SkinH_VB6.dll" (ByVal nHue As Integer, ByVal nSat As Integer, ByVal nBri As Integer) As Long

Public Declare Function SkinH_Detach Lib "SkinH_VB6.dll" () As Long

Public Declare Function SkinH_DetachEx Lib "SkinH_VB6.dll"谈轿察帆轿 (ByVal hWnd As Long) As Long

Public Declare Function SkinH_SetAero Lib "SkinH_VB6.dll" (ByVal hWnd As Long) As Long

Public Declare Function SkinH_SetWindowAlpha Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nAlpha As Integer) As Long

Public Declare Function SkinH_SetMenuAlpha Lib "SkinH_VB6.dll" (ByVal nAlpha As Integer) As Long

Public Declare Function SkinH_GetColor Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nPosX As Integer, ByVal nPosY As Integer) As Long

Public Declare Function SkinH_Map Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nType As Integer) As Long

Public Declare Function SkinH_LockUpdate Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nLocked As Integer) As Long

Public Declare Function SkinH_SetBackColor Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Long

Public Declare Function SkinH_SetForeColor Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Long

Public Declare Function SkinH_SetWindowMovable Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal bMove As Integer) As Long

Public Declare Function SkinH_AdjustAero Lib "SkinH_VB6.dll" (ByVal nAlpha As Integer, ByVal nShwDark As Integer, ByVal nShwSharp As Integer, ByVal nShwSize As Integer, ByVal nX As Integer, ByVal nY As Integer, ByVal nRed As Integer, ByVal nGreen As Integer, ByVal nBlue As Integer) As Long

Public Declare Function SkinH_NineBlt Lib "SkinH_VB6.dll" (ByVal hDtDC As Long, ByVal left As Integer, ByVal top As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal nMRect As Integer) As Long

Public Declare Function SkinH_SetTitleMenuBar Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal bEnable As Integer, ByVal nMenuY As Integer, ByVal nTopOffs As Integer, ByVal nRightOffs As Integer) As Long

Public Declare Function SkinH_SetFont Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal hFont As Long) As Long

Public Declare Function SkinH_SetFontEx Lib "SkinH_VB6.dll" (ByVal hWnd As Long, ByVal szFace As String, ByVal nHeight As Integer, ByVal nWidth As Integer, ByVal nWeight As Integer, ByVal nItalic As Integer, ByVal nUnderline As Integer, ByVal nStrikeOut As Integer) As Long

Public Declare Function SkinH_VerifySign Lib "SkinH_VB6.dll" () As Long

然后再窗体的中加入代码:

SkinH_AttachEx app.path &"\skin.she", ""

如果开启特效的话在加一句:

Call SkinH_SetAero(1)

大概就这么多了.

换个皮肤文件

新建一个工程，不写其他代码，只加载皮肤去测试是否闪退

如果枣如2能解凳早启决问题 就慢慢睁判用排除法去测试你代码哪里和skin冲突了

---