怎样给VB的窗体添加皮肤

不用很多代码 的，我电脑关机了，明天告诉你怎么加，要个一皮肤控件，挺好看的。而且只用调用一次，程序里所有的窗体和控件都会美化！ 包你满意！

qq 2262688

很多选择，3个推荐：

1VB自带的打包向导

2最经典的打包软件：Installshield， 不过你得熟悉几天。

3写个批处理,将打包向导中Package进来的所有文件reg一下，类似这样的：

regsvr32 /s ref_ocx\TABCTCHSDLL

regsvr32 /s ref_ocx\TABCTL32OCX

regsvr32 /s ref_ocx\Testerocx

regsvr32 /s ref_ocx\UARTocx

regsvr32 /s ref_ocx\Displayocx

Public Declare Function SkinH_Attach Lib "SkinH_VB6dll" () As Long

Public Declare Function SkinH_AttachEx Lib "SkinH_VB6dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long

Public Declare Function SkinH_AttachExt Lib "SkinH_VB6dll" (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_VB6dll" (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_VB6dll" (ByVal nHue As Integer, ByVal nSat As Integer, ByVal nBri As Integer) As Long

Public Declare Function SkinH_Detach Lib "SkinH_VB6dll" () As Long

Public Declare Function SkinH_DetachEx Lib "SkinH_VB6dll" (ByVal hwnd As Long) As Long

Public Declare Function SkinH_SetAero Lib "SkinH_VB6dll" (ByVal hwnd As Long) As Long

Public Declare Function SkinH_SetWindowAlpha Lib "SkinH_VB6dll" (ByVal hwnd As Long, ByVal nAlpha As Integer) As Long

Public Declare Function SkinH_SetMenuAlpha Lib "SkinH_VB6dll" (ByVal nAlpha As Integer) As Long

Public Declare Function SkinH_GetColor Lib "SkinH_VB6dll" (ByVal hwnd As Long, ByVal nPosX As Integer, ByVal nPosY As Integer) As Long

Public Declare Function SkinH_Map Lib "SkinH_VB6dll" (ByVal hwnd As Long, ByVal nType As Integer) As Long

Public Declare Function SkinH_LockUpdate Lib "SkinH_VB6dll" (ByVal hwnd As Long, ByVal nLocked As Integer) As Long

Public Declare Function SkinH_SetBackColor Lib "SkinH_VB6dll" (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_VB6dll" (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_VB6dll" (ByVal hwnd As Long, ByVal bMove As Integer) As Long

Public Declare Function SkinH_AdjustAero Lib "SkinH_VB6dll" (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_VB6dll" (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_VB6dll" (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_VB6dll" (ByVal hwnd As Long, ByVal hFont As Long) As Long

Public Declare Function SkinH_SetFontEx Lib "SkinH_VB6dll" (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_VB6dll" () As Long

先引用这个控件，然后在窗体上面画一个

在

Private Sub Form_Load()

Skin1LoadSkin SkinPath ' SkinPath是加载的皮肤路径

Skin1ApplySkin MehWnd '在这个窗体当中应用

End Sub

以上就是关于怎样给VB的窗体添加皮肤全部的内容，包括:怎样给VB的窗体添加皮肤、VB编程添加了皮肤控件的问题。懂的来。、给vb界面进行加皮肤的代码或者api函数是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！