【教程】原创：she皮肤制作(skinh_vb6.dll)

http://pan.baidu.com/s/1c0wBkas

提醒：sheditor要在windows XP环境下运行，否则有可能皮肤工程无法保存！

介绍skinh优点：自绘窗体麻烦，而且win7下最小化、关闭无特效（borderstyle=0）使用skinh,可以保留系统动画，且可以方便的调阴影大小、深度、窗体色调……

正文开始：
【1】使用画图工具画自己构思的窗体控件图片，最好包含以下所有控件的图片，大小1:1
【注意】图片做好了编辑皮肤过程中图片会存在工程文件中，无法修改，如果编了半天发现少了什么只好全部重做
控件：

没有什么好的画图或PS用不好可以用ppt画，画好了另存为.bmp

画的时候大小控制好，不要太大，到时候容易缺一块。
ppt缺点：保存时由于反锯齿边缘混了背景色，皮肤边缘透明度不好，有些细线会被省略。
例子

等写完了发原创she文件
【注意】按钮包含五个状态：正常状态，鼠标移过，点过或tab选中，按下，enabled=false

【2】开始制作：
打开sheditor，在图片里“添加”制作的图片

【再次注意】演示时用win7但实际上可能造成无法保存，最好是XP

选择这个工具，然后从上边框开始划定范围
从非激活开始

【注释】上、下边框要包含左右边界，而左右边框不用。
红色选择后表示外面图像1:1保持不变而里面的将拉伸。如果不选窗口越大边界线越粗。
【序号不标了】再点非激活，同一控件线框还在那里，直接移过去
【注意】移的过程中到图像外面了框会变小，大概是bug

【】这个时候就可以点保存键保存为工程，右边是生成皮肤，暂时不用。
可以试试关了程序再打开刚才的.sheproj，如果什么都没了说明系统环境不对，要换成XP

【……】做的过程中可以点预览包含那个控件的窗体
……………………
全部画完后点击生成.she皮肤文件
【成功！】

好像很有难度的样子。不会玩。

【使用方法】
在vb中新建模块，插入以下内容
*****************************开始*************************************
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
*************************************结束********************
在form1中插入
*********************基础用法开始*******************************
SkinH_AttachEx App.Path & "\文件名.she", ""
****************************结束********************************

*****************高级用法**********************
SkinH_AttachEx App.Path & "\文件名.she", ""
SkinH_SetAero (1)
SkinH_AdjustAero 255, 80, 10, 5, 0, 0, 0, 0, 0
*************************结束********************
【注释】
载入皮肤
开启特效
调整参数（255即不透明，阴影深度80，锐度10即边缘清晰程度，阴影大小5,0,0,0,0,0）
具体参数百度skinsharp看文档中心

【效果图】

楼主有研究过she 的文件格式吗？？？