网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > Visual Basic
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.VBCOM基础讲座之创建测试程序.
.StatusBar显示数据库的属性.
.用VB制作常居上层的浮动工具箱.
.切割一个Container中的图片.
.用Winsock实现点对点通信.
.创建一个简单的OLEDB提供者.
.如何用VB设计动画时钟举例.
.ADO三大对象的属性、方法、事件及.
.用API函数控制光驱的开关.
.如何用VB在桌面建立快捷方式.
.在VB中使用UDP协议.
.用VB改变屏幕的分辨率和刷新频率.
.用VB实现聊天讨论室和点对点会话.
.在VB中设计倒计时程序.
.用VB在AutoCADR14中写Text的方法.
.解决VisualBasic非正常退出一例.
.打开文本文件各种方法.
.利用VB三维面板控件设计流动条.
.使用Objptr函数快速查找集合中的.
.用FileSystemWatcher监控作业.

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

发表日期:2006-2-27


控件和源码下载

  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中菜单编辑器编辑出的古板菜单,很多著名软件都使用了类似的菜单效果。在你的程序中也用上这个控件,一定可以为你的程序增辉不少。

->->
->

购买网站空间(支持ASP/.NET/PHP):送域名、送邮箱、更送1G U盘
上一篇:用VB编写入侵监听程序(下) 人气:3134
下一篇:VB精彩教程:数据异步加载 人气:3479
浏览全部Visual Basic的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐