vb中用第三方控件打造qq菜单_visualbasic教程－虚拟主机资讯|虚拟主机动态

电信主站

网通分站

用户名:

密　码:

忘记密码？

服务器租用

VPS主机

虚拟主机行业资讯

虚拟主机评测对比

互联网最新动态

您当前位置：西部数码->资讯中心-> 邮件系统-> Qmail/Sendmail/Postfix

vb中用第三方控件打造qq菜单_visualbasic教程

作者：网友供稿点击：0

　　西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!虚拟主机可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!

文章页数：[1]

控件和源码下载

　　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->

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

->　　intListNum=0
　　intItemNum=0
　　intListNum=Val(InputBox("请输入要删除的项目所在分组的标识号","删除项目"))
　　IfintListNum<>0ThenintItemNum=Val(InputBox("请输入要删除的项目的标识号","删除项目"))
　　IfintItemNum<>0ThenctListBar1.DeleteItemintListNum,intItemNum->

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

->　　intListNum=0
　　intItemNum=0
　　strItemName=""
　　intListNum=Val(InputBox("请输入要插入的项目所在分组的标识号","插入项目"))
　　IfintListNum<>0ThenintItemNum=Val(InputBox("请输入要插入的项目所在位置的标识号","插入项目"))
　　IfintItemNum<>0ThenstrItemName=InputBox("请输入要插入的项目的名称","插入项目")
　　IfstrItemName<>""ThenctListBar1.InsertListItemintListNum,intItemNum,strItemName,tListBar1.Image1->

　　提示：用AddListItem添加的项目只能添加在该分组末尾，而InsertListItem方法可以在一个分组中的指定位置插入一个新的项目。

　　到这里，这个简单的实例程序就完成了，按下F5，看看效果（如图3），是不是很酷？和QQ象极了！CtListBar控件用处很多，它完全可以用来替代VisualBasic中菜单编辑器编辑出的古板菜单，很多著名软件都使用了类似的菜单效果。在你的程序中也用上这个控件，一定可以为你的程序增辉不少。

->->

->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

相关主题

文章页数：[1]

热门文章

·photoshop绘制一个古色古香的画面_photoshop教程
·vb中拖动没有标题栏的窗体_visualbasic教程
·vb操作.ini后缀文件的方法_visualbasic教程
·利用vb进行多媒体程序设计初步_visualbasic教程
·visualbasic影音控制_visualbasic教程
·visualbasic控件的使用_visualbasic教程
·visualbasic属性、方法和事件三_visualbasic教程
·vb中用第三方控件打造qq菜单_visualbasic教程
·visualbasiccom基础讲座之兼容性_visualbasic教程
·photoshop数字绘景：风景照片变幽灵城堡_photoshop教程

最新文章

·autocad 2008的service pack 1测试版发布_autocad教程
·php与mysql交互函数表学习笔记_php技巧
·photoshop基础教程：跟我学调色练习15-室内光效_photoshop教程
·构建可配置php应用程序的正确方式_php教程
·linux操作系统中用php构建网站详解_php技巧
·用php构建一个简易监视引擎_php技巧
·photoshop为照片打造半透明细线边框_photoshop教程
·photoshop巧绘矢量卡通蝙蝠侠_photoshop教程
·教你用photoshop快速打造极酷光效_photoshop教程
·photoshop绘制一个古色古香的画面_photoshop教程

版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。

　

　

　

返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 虚拟主机 | 资讯中心 | 友情链接 | 网站地图

版权所有西部数码(www.west263.com)
CopyRight (c) 2002~2006 west263.com all right reserved.
公司地址：四川成都市万和路90号天象大厦4楼　邮编：610031
电话总机：028-86262244 86263048 86263408 86263960 86264018 86267838
售前咨询：总机转201 202 203 204 206 208
售后服务：总机转211 212 213 214
财务咨询：总机转224 223 传真：028-86264041 财务QQ：点击发送消息给对方

点击发送消息给对方

635483282
售前咨询QQ：点击发送消息给对方

点击发送消息给对方

2182518

点击发送消息给对方

241975952

点击发送消息给对方

275026793

点击发送消息给对方

408235859
售后服务QQ：点击发送消息给对方

点击发送消息给对方

17708515

点击发送消息给对方

307742704

点击发送消息给对方

287976517

点击发送消息给对方

363783715
《中华人民共和国增值电信业务经营许可证》编号：川B2-20030065号