快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net皮肤怎么用 vb net

vb.net制作皮肤

你找的那个文章也是用其它什么库或者控件做的,或者至少程序里面有其它的专门的皮肤产生模块之类的东西,光凭它那些代码根本不能在VB中实现自定义皮肤。 他的那些代码只是指定了皮肤是什么样而已,具体如何把那些指定应用到窗体上他的代码中根本没有提到。

在安阳县等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站设计、成都网站建设 网站设计制作按需制作网站,公司网站建设,企业网站建设,高端网站设计,营销型网站建设,外贸网站制作,安阳县网站建设费用合理。

VB自己做一个不规则形状的皮肤(比如圆角的边框)一般要用到SetWindowRgn这个API。透明度则一般使用SetLayeredWindowAttributes这个API,你可以去查一下。

很久以前搞过,现在懒得搞了,简洁才是王道。

VB.net高手进 透明窗体皮肤

form的opacity属性和form的transparencykey属性 opacity数据类型为双精度浮点型,它决定窗体本身的透明度。 例:me.opacity=0.5 transparencykey的属性决定窗体上的控件的所在区域是否完全透明。当窗体上的控件的背景色与窗体的transparencykey属性相同时,则该控件的所在区域完全透明。 例:me.transparencykey=color.red me.textbox1.backcolor=color.red 上面的代码为窗体上的textbox控件完全透明

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)

大概就这么多了.

用于vb.net程序皮肤

DotNetSkin.dll 找这个破解的dll

,它的皮肤你上官方网站下。

这个控件不到1m,很小,速度也快,美观方面,也够用了。


网页题目:vb.net皮肤怎么用 vb net
文章链接:http://6mz.cn/article/dddscdp.html

其他资讯