当前位置 :首页 ->编程语言 ->ViualBasic ->正文

VB中用第三方控件打造QQ菜单

来源：Linuxdby.com 作者：Webmaster 时间：2007-06-05 点击： [收藏] [投稿]

控件和源码下载

　　QQ的界面大家都不陌生吧？CtListBar就是一个十分优秀的第三方控件，利用它我们可以很轻松的做出一个象QQ一样的界面。这节中，我们将通过对CtListBar控件基本使用方法的学习，参照一个实例，打造出一个很酷的QQ菜单。

　　CtListBar控件包含了许多很有用的方法和属性。开始实例学习前，我们有必要先对其主要的几个方法和属性了解一番。表一和表二分别列出了几个主要的方法和属性，以及它们的类型、说明。初步了解之后，现在我们就开始实例讲解。

　　（表一）

->方法->->返回类型->->说明->->AddList->->integer->->添加一个新的分组->->DeleteList->->boolean->->从控件中删除一个已有分组->->AddListItem->->integer->->在一个分组中新添加一个项目->->DeleteItem->->boolean->->在一个分组中删除一个项目->->InsertListItem->->short->->在某一分组中的某一位置插入一个新的项目->->ClearLists->->void->->清除控件中的所有分组和项目->

　　（表二）

->属性->->数据类型->->说明->->BackImage->->Picture->->设置控件背景图片。利用这个属性，可以实现“皮肤”的功能。->->BarHeight->->integer->->设置分组按钮的高度。->->BorderType->->integer->->设置控件的边框样式->->BorderColor->->long->->设置控件的边框颜色，仅当BorderType设置为“0-Regular”时有效。->->ButtonBackColor->->long->->设置分组按钮和上下滚动按钮的颜色。->->ButtonForeColor->->long->->设置分组按钮和上下滚动按钮的字体颜色。->->ButtonSize->->integer->->设置上下滚动按钮大小。->->GradientFill->->boolean->->设置控件背景是否显示渐变色。->->GradColorFrom->->long->->设置渐变色的起始颜色。->->GradColorTo->->long->->设置渐变色的结束颜色。->->IconSize->->integer->->设置图标显示模式是大图标或小图标。->->Image1-6->->Picture->->设置预先在控件中加载的6幅图片。->->ListBarStyle->->integer->->设置控件纵向或是横向显示。->->ListBackColor->->long->->设置控件的背景颜色。->->ListForeColor->->long->->设置分组中项目文字的颜色。->->ListScrollSpeed->->integer->->设置项目滚动的速度。->->ItemScrollSpeed->->integer->->设置分组滑动的速度。->
　　第一步：首先启动VisualBasic6.0，新建一个窗口，修改窗口的Caption属性为你喜欢的名字，如“我的QQ菜单”。

　　第二步：加载CtListBar控件，设置其属性。

　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到CtListBar控件，载入它；把它添加到Form1窗体中，用鼠标拖动调整其大小。

　　②修改Caption属性为“我的好友”。Caption属性值将是菜单第一个分组的名称。

　　③修改ListBackColor属性。实例中我们借用了QQ的头像图片，设置属性值为&H00808000&，是背景颜色与图片背景吻合。

　　④在Images属性中载入图片。CtListBar控件本身可以载入6幅图片，这里我们从QQ的头像中载入6幅图片（如图1）。

　　⑤其余属性可以参照表2，依你自己的喜好设置。这里我们采用默认值。

　　小技巧：虽然CtListBar控件只能载入6幅图片，但是我们可以用其他方法使CtListBar控件可以使用更多的图片，如使用PictureBox控件、ImageList控件等。

　　第三步：添加其他控件，完成界面的设置。

　　在窗体中添加5个CommandButton，将名称分别设置为cmd_AddList、cmd_DelList、cmd_AddItem、cmd_DelItem、cmd_Insert；将Caption属性依次设置为“添加分组”、“删除分组”、“添加项目”、“删除项目”、“插入项目”。　

　　到这里，界面的设置就搞掂了，完成后如图2。

->->

　　第四步：接下来，我们就开始代码的编写，实现具体的功能。

　　①声明4个全局变量。

->　　DimstrListName,strItemNameAsString
　　DimintListNum,intItemNumAsInteger　->

　　②CtListBar控件不能预先设置好分组和项目，只能动态的添加，所以我们在Form_Load()事件中加入代码，添加结果分组和项目。

->ctListBar1.AddList"陌生人"
ctListBar1.AddList"黑名单"
ctListBar1.AddListItem1,"Myheart",ctListBar1.Image1
ctListBar1.AddListItem1,"第七乐章",ctListBar1.Image2
ctListBar1.AddListItem1,"小A",ctListBar1.Image3
ctListBar1.AddListItem1,"小B",ctListBar1.Image4
ctListBar1.AddListItem1,"张三",ctListBar1.Image5
ctListBar1.AddListItem1,"李四",ctListBar1.Image6->

　　以上代码中，我们新添加了“陌生人”和“黑名单”两个分组，又在原先设置过的“我的好友”分组中添加了6个项目。

　　提示：ctListBar1.AddListItem方法使用了3个参数，分别为nIndex（分组的Index值）、strText（项目的名称）、Picture（项目的图片）。

　　③在按钮控件cmd_AddList的Click事件中输入代码：

->　　strListName=""
　　strListName=InputBox("请输入要添加的分组名称","添加分组")
　　IfstrListName<>""ThenctListBar1.AddListstrListName->

　　在按钮控件cmd_DelList的Click事件中输入代码：

->　　intListNum=0
　　intListNum=Val(InputBox("请输入要删除的分组标识号","删除分组"))
　　IfintListNum<>0ThenctListBar1.DeleteListintListNum->

　　在按钮控件cmd_AddItem的Click事件中输入代码：

->　　strItemName=""
　　intListNum=0
　　intListNum=Val(InputBox("请输入要添加的项目所在分组的标识号","添加项目"))
　　IfintListNum<>0ThenstrItemName=InputBox("请输入要添加的项目的名称","添加项目")
　　IfstrItemName<>""ThenctListBar1.AddListItemintListNum,strItemName,ctListBar1.Image1->

如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页12 下一页

上一篇：用VB编写入侵监听程序(下) 下一篇：VB精彩教程:数据异步加载

【文章评论】【收藏本文】【推荐好友】【打印本文】【我要投稿】【论坛讨论】

更多相关文章

·VB图像处理之像素的获取和输出

·VB实现图像在数据库的存储与显示

·VB图像处理之二次线性插值的应用

·VB图像处理之几个常用滤镜的实现

·VB图像处理之铅笔画算法和木雕算法

·用VB6.0编写磁盘格式化程序

·VB实现文件数据对SQLServer上传下载

·用VB实现实时曲线的绘制和保存

·VB图像处理之图像的亮度对比度调整

·VB图像处理之图像的色彩纠正

推荐文章

·VB图像处理之铅笔画算法和木雕算法

·Variant子类型

·在VB中设计倒计时程序

·多用户应用程序中应注意的其它问题(

·VisualBasic软件设计中的几个问题

·维护InternetTransferControl之User

·字符串中文的问题

·VB6 ADO ListView数据库分页显示

精彩文章

·VB数据库多字段记录的录入

·如何在VB中直接显示无格式256灰度级

·标量变量和数组变量

·And、Or和Xor：让我们来优化表达式

·用VisualBasic设计窗体背景花纹

·在GotFocus时快速选择文本

·VisualBasic程序创建闪烁(标语)屏

·数据库的结构---VB数据库入门之（二

·VisualBasic命令分类表

·VisualBasic变量、常数和数据类型及

·用VisualBasic开发绿色软件的探讨

·VB技巧-工具栏使用技巧

·如何用VB在桌面建立快捷方式

·雨滴式的显示图片

·用VB实现类电子表格的数据录入

·用MDB文件做admin888库

·使用VB收发电子邮件

·如何提高调用WindowAPI函数编程技巧

·在VB中异步执行程序

·在VB中获取和修改计算机名字

·文本框的使用说明与技巧

·压缩被DBGIRD控件正在使用的MDB数据

·VB数据库数据的选项录入及选项增减

·在VisualBasic6.0中创建Word文档

·VB图片框在报表设计中屏幕滚动的问

·VB从零开始编外挂(六)

Power by linux-cn.com 粤ICP备05006655号