{A}简介
PngSkin是在VB6编写的ActiveX控件,可用于申请到每个像素的alpha透明PNG皮肤的任何应用程序(VB6和。NET)。你可以问问你的设计师(Corel绘制)创建醒目的设计为您的应用程序。控制可用于win2000和上层作业系统。任何窗口的非客户区可以设计专业绘图软件。
这种控制最好的部分是,在您的应用程序中使用它,你不需要的代码或配置它严重。对于VB6的Windows应用程序,你需要甚至写一行代码。对于。NET Windows窗体,你需要写2行代码。
ActiveX控件使用updatelayeredwindow(ULW)和setlayeredwindowattributes(SLWA)的API来创建一个半透明形式的quot; hostingquot;控制。这个词"; hostingquot;是不正确的。这个例子显示了创建一个控制主机形式叠加半透明背景的方法之一。使用代码对于VB 6的Windows窗体
的组件添加到您的项目并拖动放大器;下降到表单中。设置窗体的边框为"无",并添加一些背景颜色。
设置属性ImageOuterPath = quot; png文件Pathquot;并运行该项目。对于。NET Windows窗体
重复上述步骤,下面的代码添加到您的Winform的:
兴趣点Private Sub PictureBox1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles PictureBox1.Click
AxSkin1.UnloadSkin()
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = Nothing
With AxSkin1
.ActivateSkin(Me.Handle.ToInt32)
End With
End Sub
要映射控制,控制在设计时,将设置为PNG形式的背景下自动在VB 6,但是,您需要设置您的PNG文件的形式背景图像。谢谢
很多很多感谢分享在VB 6 PNG支持拉沃尔佩[{A2}]。历史第二,2007年11月:战后初期