1.vb如何使用she皮肤
调用控件,我喜欢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.易语言SHE皮肤怎么加载到E语言里面去
.版本 2
.DLL命令 SHE_加载皮肤, 整数型, "SkinH_EL.dll", "SkinH_AttachEx"
.参数 皮肤路径, 文本型
.参数 皮肤口令, 文本型
.版本 2
.DLL命令 SHE_卸载皮肤, 整数型, "SkinH_EL.dll", "SkinH_Detach"
前提是跟程序同一个目录下有SkinH_EL.dll这个文件
窗口创建的时候就使用SHE_加载皮肤( , )
窗口销毁的时候就使用SHE_卸载皮肤()
3.VB 如何调用she皮肤
Path & "\! SkinH_AttachEx App.Path & "\,Ex就是扩展的意思SkinH_AttachEx App;skinh;\skinh.she"skinh.she", ""就是使用App.Path & "呵呵 这分别是两个函数首先是SkinH_Attach,调用这个函数不需要参数,他会自动搜索程序所在目录的skinh;这个路劲的she文件,这个函数就是可以随意指定she文件的路劲来加载,纯手工打的哦.she".she文件并加载。
然后是SkinH_AttachEx,这个函数在SkinH_Attach的后面加了Ex。