AOE博客宣威凌网资讯
A-A+

VB6设计制作不规则的异形窗体实例

2013年01月10日 其他 评论 2 条 阅读 8,032 views 次
淘宝天猫内部优惠券大放送

在日常的VB应用程序开发中,我们可能会使用到不规则的异形窗体窗口,这些漂亮的异型窗体会让我们的应用程序更加个性化。如果您在看到别人制作开发的不规则异型窗体窗口会羡慕会惊叹,想自己动手制作一个个性化的异形窗体窗口,没问题,这其实很简单,跟着阿零一起尝试一下吧!

第一步:
点击这里下载这个名为anyform.ocx的ActiveX控件到您的电脑。

百度网盘下载地址

第二步:
解压您下载的压缩包,运行install.bat批处理文件。这个批处理会复制anyform.ocx到您的系统目录,并注册。当然,您也可以手工操作注册。

注意:这一步是必须的,否则VB6无法加载外部部件。

第三步:
打开您的VB6开发环境,新建一个EXE工程。如下图所示,依次点击菜单栏的“工程”——“部件…”,在弹出窗口中选中红圈处的附加部件,然后“确定”。

VB6下添加外部部件

VB6下添加外部部件

 

第四步:
点选左侧工具栏右下角的FormShaper,在窗体任意位置拖画放置。然后,发挥您的想象力,开始您的创作吧。本例是制作一个猪头形状的不规则窗体,所以使用了几个椭圆来组合。什么,您只会画方形不会画椭圆?哎,您OUT了。改变一下Shape的属性就可以嘛,自己试一下下面第二个图红圈中的每个属性您就明白了,实在搞不懂去查一下英文词典!

VB6设计制作不规则的异形窗体

改变VB6的Shape属性

 

第五步:
这是灰常灰常关键的一步,把您要展现的不规则异型窗体的外围轮廓形状所涉及的控件的Tag属性赋予一个相同的值,比如本例,是把猪头和两只耳朵的三个椭圆的Tag属性赋值“myf”。

第六步:
书学代码。在代码窗口中写下下面的代码:

Private Sub Form_Load()
Me.FormShaper1.ShapeIt "myf"
End Sub

第七步:
大功告成!保存您的杰作,点击运行看看吧!怎么样,VB6设计制作一个不规则的异型窗体窗口是不是很简单呢?亲爱的朋友,您学会了吗?

VB6制作的不规则异形窗体

2 条留言  访客:1 条  博主:1 条

  1. reicha

    求anyform.ocx

    • 阿零

      不好意思,下载地址漏掉了,已经更新添加,谢谢!

博客主机

给我留言

Protected by WP Anti Spam


Copyright © 阿零博客 保留所有权利.   Theme  Ality

用户登录

分享到: