VB 皮肤代码

很简单啊,你可以先用PS做好,之后放到VB里顷梁,再用代码取用其他的图蠢乎仔片文件作为皮肤,但是带汪有一点,就是你用PS做的皮肤图片要和VB,Form的大小是一样的,否则就不好看了,会多出一点或者少掉一点,我用的是VB.net,取用图片方法是,新建一个button1, 在button1中写入代码:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim lol As New OpenFileDialog

lol.ShowDialog()

Dim picture As New System.Drawing.Bitmap(lol.FileName)

Me.BackgroundImage = picture

Me.BackgroundImageLayout = ImageLayout.Stretch ' 把图片拉撑

End Sub

首先你要有SkinH_VB6.dll链接库并注册

'皮肤加载

Public Declare Function SkinH_Attach_Ex Lib "SkinH_VB6.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long '皮肤加载

private sub form_load()

SkinH_Attach_Ex "皮腊空肤文件绝对歼禅路径轮改瞎", "皮肤文件的密码" '应用皮肤

end sub

其实皮肤实际上就是一个比较漂亮，极度吸引人眼球的一种界面。比如窗体来说，如果新建一个窗体，它默认的风格是灰白色，有网点，看上去很不美观，如果给他的背景色设置成vbblack，则就成为黑猛敏色背景了，就可以再上边创作一下黑色场景的程序，比如下雪，星光闪烁等等。因此皮肤的实质就是一个界面的制作，比较常用的方法有两种，一种是纯色彩的搭配，就像刚刚说的背景色设置成vbblack这种方式，另一种就是用图片编辑软件比如Photoshop,firework之类的制作一幅很漂亮的前基图片加载到程序中,比如作为窗体背景的皮肤，你可枝悔枝以用Image控件加载这幅图片然后把Image控件至于底层，从而窗体就显示的是图片了，即整体的皮肤换成了你设计的图片的样子。

---