VB源代码-urf皮肤

‘模块
Public Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const WM_FRAME_BUTTON = WM_USER + &H364 Public Const WM_TRANSPARENT_GIF = WM_USER + &H365 Public Const BK_MENU_HOVER = 10
Public Const BK_CUSTOM = 10000
Public Const FRAME_BUTTON_MAX = 1
Public Const FRAME_BUTTON_RESTORE = 2
Public Const FRAME_BUTTON_MIN = 3
Public Const FRAME_BUTTON_CLOSE = 4
Public Const FRAME_BUTTON_CUSTOMBASE = &H200 Public Const FB_COMMAND_REMOVE = 0
Public Const FB_COMMAND_ENABLE = 1
Public Const FB_COMMAND_DISABLE = 2
Public Const FB_COMMAND_CHECK = 3
Public Const FB_COMMAND_UNCHECK = 4
Public Const GTP_LOAD_FILE = 1
Public Const GTP_LOAD_MEMORY = 2
Public Const GTP_LOAD_RESOURCE = 3
Public Const GTP_LOAD_FILE_ONL Y = 4
Public Const GTP_LOAD_MEMORY_ONL Y = 5
Public Const GTP_LOAD_RESOURCE_ONL Y = 6
Public Const WINDOW_TYPE_AUTOFILTER = 0
Public Const WINDOW_TYPE_SDK = 1
Public Const WINDOW_TYPE_VC = 1
Public Const WINDOW_TYPE_VB6 = 2
Public Const WINDOW_TYPE_BCB = 3
Public Const WINDOW_TYPE_DELPHI = 3
Public Const WINDOW_TYPE_NET = 4
Public Const SKIN_CLASS_NOSKIN = 0
Public Const SKIN_CLASS_AUTOFILTER = 1
Public Const SKIN_CLASS_PAUSESKIN = 2
Public Const SKIN_CLASS_REDOSKIN = 3
Public Const SKIN_CLASS_REMOVESKIN = 4
Public Const SKIN_CLASS_NOSKINEX = 5
Public Const SKIN_CLASS_UNKNOWN = 6
Public Const SKIN_CLASS_AUTOFILTEREX = 7
Public Const SKIN_CLASS_SCROLLWIN = 10
Public Const SKIN_CLASS_SCROLLWINBORDER = 11 Public Const SKIN_CLASS_FRAMEWIN = 101
Public Const SKIN_CLASS_FRAMEDIALOG = 102 Public Const SKIN_CLASS_INSIDEDIALOG = 103
Public Const SKIN_CLASS_MDICLIENT = 104
Public Const SKIN_CLASS_SCROLLPANEL = 105
Public Const SKIN_CLASS_FRAMEBACKGROUND = 106 Public Const SKIN_CLASS_COMBOBOX = 201
Public Const SKIN_CLASS_DATETIME = 202
Public Const SKIN_CLASS_HEADER = 203
Public Const SKIN_CLASS_GROUPBOX = 204
Public Const SKIN_CLASS_IMAGEBUTTON = 205 Public Const SKIN_CLASS_MENU = 206
Public Const SKIN_CLASS_PROGRESS = 207
Public Const SKIN_CLASS_PUSHBUTTON = 208
Public Const SKIN_CLASS_SCROLLBAR = 209
Public Const SKIN_CLASS_SLIDER = 210
Public Const SKIN_CLASS_SPIN = 211
Public Const SKIN_CLASS_SPILTER = 212
Public Const SKIN_CLASS_STATUSBAR = 213
Public Const SKIN_CLASS_TAB = 214
Public Const SKIN_CLASS_TEXT = 215
Public Const SKIN_CLASS_TOOLBAR = 216
Public Const SKIN_CLASS_TOOLBARPANEL = 217 Public Const SKIN_CLASS_PANEL = 218
Public Const SKIN_CLASS_PANELEX = 219
Public Const SKIN_CLASS_PANELELIXIR = 220
Public Const SKIN_CLASS_HYPERLINK = 221
Public Const SKIN_CLASS_STATUSBAR_VB6 = 222 Public Const SKIN_CLASS_SHAPEWIN = 223
Public Const SKIN_CLASS_CHECKBUTTON = 224 Public Const SKIN_CLASS_RADIOBUTTON = 225 Public Const SKIN_CLASS_READONL YEDIT = 226 Public Const SKIN_CLASS_FRAMEBTN = 227
Public Const SKIN_CLASS_SLIDEREX = 228
Public Const SKIN_SET_TRANSPARENT = 601
Public Const SKIN_SET_THEME_COLOR = 602
Public Const SKIN_SET_EFFECT = 603
Public Const SKIN_SET_REDRAW = 604
Public Const SKIN_SET_PAINTCUSTOMPROC = 605 Public Const SKIN_SET_NCPAINTCUSTOMPROC = 606 Public Const SKIN_SET_SPECIAL_TOOL = 610
Public Const SKIN_SET_VB6_SCROLL_INFO = 611
Public Const SKIN_SET_UNSKIN = 660
Public Const SKIN_SET_UNICODE_URF_FONT = 661
Public Const SKIN_SET_PAUSESKIN = 662
Public Const SKIN_SET_REDOSKIN = 663
Public Const SKIN_SET_VCLABEL = 664
Public Const SKIN_SET_FRAMEBTN = 665
Public Const SKIN_GET_BK = 701
Public Declare Function SkinStart Lib "appface.dll" (ByVal SkinFile As String, ByVal nDefWinType As Long, ByVal CheckSum As String, ByVal nType As Long, ByVal hInstance As Long, szResType As Long) As Boolean
Public Declare Function SkinWindowSet Lib "appface.dll" (ByVal hWnd As Long, ByVal bSkin As Long) As Boolean
Public Declare Function SkinWindowSetEx Lib "appface.dll" (ByVal hWnd As Long, _
ByVal nSkinType As Long, _
ByVal nResourceId As Long, _
ByVal nUrfLoadType As Long, _
ByVal SkinFile As String, _
ByVal hInstance As Long, _
szResType As Long) As Long
Public Declare Function SkinRemove Lib "appface.dll" () As Long
Public Declare Function BkCreate Lib "appface.dll" (ByVal nBkType As Long) As Long
Public Declare Function BkDelete Lib "appface.dll" (ByVal nBkHandle As Long) As Long Public Declare Function BkDraw Lib "appface.dll" (ByVal nBkHandle As Long, ByVal dcTarget As Long, rcTarget As RECT, ByVal nReserved As Long) As Boolean
‘引用
Private Sub Form_Load()
Dim bRes As Boolean
bRes = SkinStart(App.Path & "\skin.urf", 2, "RQPJNW0N0V2QRMAP1KXVBHHDUVVQGUXR", 1, 0, 0)
End Sub
说明：除了有这些代码以外，在生成程序的目录下，还要有appface.dll、appfacebind、skin.urf 这三个必须的文件（可以在网上下），注意文件名。