vb点虐 界面换肤 vbnet ui

VB点虐 高手进 透明窗体皮肤

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

成都创新互联专注于网站建设,为客户提供成都网站建设、网站制作、网页设计开发服务,多年建网站服务经验,各类网站都可以开发,品牌网站建设,公司官网,公司展示网站,网站设计,建网站费用,建网站多少钱,价格优惠,收费合理。

急急急!!十万火急!!求VB.NET高手!!!

描述不够清楚,也没有图。你的界面是什么界面,是窗体还是其他的什么。

如果是窗体,他会让你导入图片,作为资源存在工程里面。

如果不是,你先要把背景图片放到资源里再调用。

又或者你的界面图片被别的控件挡住了,你需要将别的控件的backcolor属性改为transparent。

总之你想问什么问题,你得描述清楚。

vb怎么加载皮肤

转载此出处

说到换肤,我们脑子当中可能就会浮现很多商业软件那些漂亮的皮肤,自从XP流行以来,程序的外观变得比以往更加引人注意,像Office 系列的界面,一直是很多程序员模仿的范例,今天我就利用Xtreme Suite Pro ActiveX 轻松的给自己程序加上皮肤应用功能,为我们自己的程序增色。

目标:制作一个具有换肤功能的程序,程序界面模仿Office 2007样式

一、准备工作

1、开发工具VB6,当然也可以用.Net,这里以VB6做示例

2、Xtreme Suite Pro ActiveX 12英文正式版

下载地址为:

Part1:

Part2:

二、工具安装

1、VB6的安装不多说

2、将上述下载地址的两个文件下载后放在同一个目录下,然后解压Part1,解压完成后,可以看到一个setup.exe文件,按提示安装,其中Sn在对应的文本中,注意我们选用的Sn为Xtreme Suite Pro ActiveX v12.0.1 英文正式版的,Xtreme Toolkit Pro v12.0.1是针对MFC的,不要输入错误。

现在假设Xtreme Suite Pro ActiveX 按照默认方式已安装成功,那边我们可以进入到下一步了。

三、正式开始

1、新建一个VB6的EXE工程

2、在工具栏上点击右键找到部件,因为Xtreme Suite Pro ActiveX 已安装成功,所以我们可以看到部件引用中有如下内容

(图1)

勾中xtreme SkinFramework ActiveX Control 12.0.1,此时我们的界面当中应该可以看到类似下面的图片

(图2)

到这里,我们的准备工作已完全准备妥当,下面是关键的代码,我们将其放在Form_Load事件中

Private Sub Form_Load()

Dim FileName as string

Dim IniFile as string

FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"

IniFile="NormalBlue.ini"

SkinFramework1.LoadSkin Dlg.FileName, IniFile

SkinFramework1.ApplyWindow Me.hWnd

SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics

End Sub

这里我们利用SkinFramework的LoadSkin方法找到指定的皮肤文件,然后再调用ApplyWindow方法,并且设置了ApplyOptions 属性,注意这里的设置其实就是SkinFramework的默认值。

按F5运行工程,出现在我们眼前的界面将是下面这个样子了

(图3)

简单的引用,简单的代码,出现在我们面前的却已经是如此漂亮的界面,到这里我们已大告功成了。

四、扩展

Xtreme Suite Pro ActiveX 的SkinFramework 不但支持以cjstyles为扩展的皮肤文件,同时也支持XP的themes文件,即以msstyles为扩展名的文件,知道了这点我们的皮肤来源就非常广了。

下面为大家推荐一个地方,里面有很多免费的皮肤

安装完Xtreme Suite Pro ActiveX ,官方即包含Office2007.cjstyles,Vista.cjstyles,WinXP.Luna.cjstyles,WinXP.Royale.cjstyles四个皮肤文件,同一个皮肤文件中可能包含几个配置文件,比如Office2007.cjstyles就包含NormalBlue.ini 、NormalAqua.ini 、NormalSilver.ini 、NormalBlack.ini 四个配置文件,可以放在LoadSkin方法的第二个参数中,就可以显示不同配置文件所达到的不同皮肤的效果。

为了读取皮肤文件所包含的配置文件,我们可以用下面的方法

Dim Discription As SkinDescription

Dim i As Integer

Dim FileName as string

FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"

Set Discription = SkinFramework1.EnumerateSkinFile(FileName )

For i = 0 To Discription.Count - 1

debug.print "IniFile:" Discription.IniFile(i).IniFileName "/ColorScheme:" Discription.IniFile(i).ColorScheme _

"/FontSize:" Discription.IniFile(i).FontSize

Next

写到这里,我们才真正搞定了皮肤的开发,为了大家的使用方便,我特意写了一个示例程序

下载地址为:

另外这里包含了几个皮肤文件:

有兴趣的可以参考一下

vb界面能美化吗?感觉新出来的vb点虐 的界面明显比vb美观,但是vb点虐 语法还不熟,现在想把vb变得好看一些。

不难的,vb点虐 的语言比vb的完整些而已。而且一样可以利用英文的理解方法理解vb点虐 的代码,相对来说,vb点虐 更容易。语法来看,vb多数是用缩写的,而vb点虐 是用完整的单词,更便于理解,而且API也简化了很多。

所以,vb转vb点虐 是很容易上手的。


标题名称:vb点虐 界面换肤 vbnet ui
分享路径:http://ybzwz.com/article/ddcgpop.html