VB考试教程：菜单程序设计六工具栏的设计(1)【贵 州 学 习 网】
贵州学习网—属于你的学习中心
六、工具栏的设计
工具栏（也称为发条或者控制栏）已经成为许多基于windows的应用程序的标准功能。工具栏提供了对于应用程序中最常用的菜单命令的快速访问。,PK+Oo^; (),PK+Oo^;
可以使用toolbar控件来轻松的创建工具栏，也可以使用应用程序向导来创建工具栏，方法更加简便。
1、利用应用程序向导创建工具栏
应用程序向导是vb6.0为用户提供的一项功能，通过应用程序向导用户可以很快设计出一个标准windows程序的框架，其中包括窗体、菜单、工具栏、多文档、状态栏、对话框、滚动条等等。设计过程是在对话中完成，设计完成后形成应用程序的界面和框架。
创建一个标准的应用程序框架步骤如下：
在"新建工程"对话框中选中"vb应用程序向导"后单击[打开]命令按钮确认。
按向导导航单击一次[下一步]按钮进入"界面类型"对话框，选中"多文档界面"，为工程取名为"myapplication",单击[下一步]确认。
进入"菜单"对话框，可以进行菜单设计，设计完成单击[下一步]按钮确认，进入"自定义工具栏"对话框。
在"自定义工具栏"对话框中可以自行设计工具栏，设计完成单击[完成]确认。
2、使用toolbar控件创建工具栏
使用toolbar控件创建工具栏也是非常简单的工作，基本的属性设置可以通过对话框完成。给示例mymenu设计一个具有四个工具按钮的工具栏，分别对应菜单中的"新建"、"打开"、"粗体"、"斜体"等四个菜单项，并完成相应的功能。
首先从"部件"对话框中选中microsoft windows common controls6.0，确认后则toolbar控件添加到工具箱中。
将toolbar控件添加到窗体上。
用鼠标右键点击窗体上的toolbar对象，在弹出的快捷菜单上单击[属性]选项，打开"属性页"对话框 ，选择"按钮"标签，单击[插入按钮]，插入五个工具按钮，索引分别为1，2，3，4，5。
在属性页上设置工具按钮的属性，各工具按钮的设计属性值如下表：
thrdefault
thrdefault
thrseparator（分隔符）
关于“样式”的说明：
tbrdefault
按下按钮后恢复原状，如“新建”按钮
按下按钮后保持按下状态，如“加粗”等按钮
tbrbuttongroup
在一组按钮中只能有一个有效，如对齐方式按钮
tbrsepatator
将左右按钮分隔开
tbrplaceholder
用来安放按钮，可以设置其宽度（width）
tbrdropdown
具有下拉菜单，如word中的“字符缩放”按钮
用鼠标左键双击工具栏对象，编写click事件响应代码如下：
private sub toolbar1_buttonclick(byval button as mscomctllib.button)
select case button.index
mnunew_click
mnuopen_click
mnubold_click
mnuitalic_click
end select
private sub mnubold_click()
mnubold.checked = not mnubold.checked
text1.fontbold = mnubold.checked
private sub mnufotesize_click(index as integer)
select case index
text1.fontsize = 20
text1.fontsize = 30
end select
private sub mnuitalic_click()
mnuitalic.checked = not mnuitalic.checked
text1.fontitalic = mnuitalic.checked
end sub+:,qe}1j[)+:,qe}1j
private sub mnunew_click()
form1.caption = "新文件"
text1.visible = true
text1.text = ""end sub
private sub mnuopen_click()
form1.caption = "文件"
text1.visible = trueend sub
保存工程运行程序。
[程序演示]
[程序下载]
3、利用imagelist控件在工具按钮上显示图像
在创建toolbar控件之前，应创建一个imagelist控件并添加你想要的图像。
imagelist控件
imagelist 控件包含 listimage 对象的集合，该集合中的每个对象都可以通过其索引或关键字被引用。imagelist 控件不能独立使用，只是作为一个便于向控件提供图象的中心。如工具栏控件（toolbar）中的图像就是从imagelist 控件中获取的。
在imagelist控件中添加图像
在窗体上添加imagelist控件（如imagelist1控件）后，用右键单击imagelist1控件，在弹出的快捷菜单中选择“属性”命令，打开如图所示“属性页”对话框，选择其中的“图像” 选项卡。单击“插入”按钮，插入你想要的图片，如下图有3张图片。
本文共2页：第 【1】
责任编辑：gzu521
本类相关文章：
IT认证分类
分类推荐信息
大类最新文章新手求助，求大神解答_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：94,245贴子：
新手求助，求大神解答收藏
以下是《从入门到精通》书中的一个程序，用来制作多级树状视图。完全被搞晕了。。代码的思路是什么啊？这里面“连接数据库”、“连接数据表”都是什么？什么原理？语法格式是什么？这里面的变量都是用来做什么的？Dim cnn As New ADODB.Connection
'定义Connection对象，用于连接数据库Dim rs1 As New ADODB.Recordset
'定义Recordset对象，用于连接数据表Dim i As Integer, bmjc As Integer
'定义两个整型变量Dim blnTJ As BooleanDim bmbh As String'定义向TreeView控件中添加数据的子过程tree_add，代码如下。Sub tree_add()
TreeView1.Nodes.Clear
Dim mNode As Node
rs1.Open &select * from 部门表 order by 部门编号,编码级次&, cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount & 0 Then
'如果表中有记录
rs1.MoveFirst
'将记录指针移到第一条
'使用Do While语句并根据&编码级次&添加不同级别的数据到TreeView控件中
Do While rs1.EOF = False
Select Case rs1.Fields(&编码级次&)
Set mNode = TreeView1.Nodes.Add()
mNode.Text = &(& & rs1.Fields(&本级编号&) & &)& & rs1.Fields(&部门名称&)
mNode.Key = rs1.Fields(&部门全称&)
mNode.Image = &close&
Set mNode1 = TreeView1.Nodes.Add(mNode.Index, tvwChild)
mNode1.Text = &(& & rs1.Fields(&本级编号&) & &)& & rs1.Fields(&部门名称&)
mNode1.Key = rs1.Fields(&部门全称&)
mNode1.Image = &close&
Set mNode2 = TreeView1.Nodes.Add(mNode1.Index, tvwChild)
mNode2.Text = &(& & rs1.Fields(&本级编号&) & &)& & rs1.Fields(&部门名称&)
mNode2.Key = rs1.Fields(&部门全称&)
mNode2.Image = &close&
Set mNode3 = TreeView1.Nodes.Add(mNode2.Index, tvwChild)
mNode3.Text = &(& & rs1.Fields(&本级编号&) & &)& & rs1.Fields(&部门名称&)
mNode3.Key = rs1.Fields(&部门全称&)
mNode3.Image = &close&
Set mNode4 = TreeView1.Nodes.Add(mNode3.Index, tvwChild)
mNode4.Text = &(& & rs1.Fields(&本级编号&) & &)& & rs1.Fields(&部门名称&)
mNode4.Key = rs1.Fields(&部门全称&)
mNode4.Image = &close&
End Select
rs1.MoveNext
rs1.CloseEnd SubSub tlbState(state As Boolean)
With Toolbar1
If state = True Then
.Buttons(1).Enabled = False
.Buttons(2).Enabled = False
For i = 4 To 9
.Buttons(i).Enabled = True
For i = 0 To Text1.UBound
Text1(i).Locked = True
.Buttons(1).Enabled = True
.Buttons(2).Enabled = True
For i = 4 To 9
.Buttons(i).Enabled = False
For i = 0 To Text1.UBound
Text1(i).Locked = False
End WithEnd SubPrivate Sub Form_Load()
Me.Caption = &部门管理&
'设置窗体标题
cnn.Open &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & App.Path & &\db_manpowerinfo.Persist Security Info=False&
'连接数据库
'调用向TreeView控件添加数据的过程
tlbState True
'设置工具栏按钮状态
If TreeView1.Nodes.Count & 0 Then TreeView1.Nodes(1).Selected = True '设置第一个节点内容为选中状态End SubPrivate Sub Text1_GotFocus(Index As Integer)
Dim strPos As String
If Text1(3) = && And Index = 4 Then
If blnTJ = True Then
If TreeView1.Nodes.Count & 0 Then
strPos = InStr(1, TreeView1.SelectedItem.Key, &\&, 1)
If strPos = 0 Then
Text1(3) = &(& & Text1(1) & &)& & Text1(2)
Text1(3) = TreeView1.SelectedItem.Parent.FullPath & &\& & &(& & Text1(1) & &)& & Text1(2)
Text1(3) = &(& & Text1(1) & &)& & Text1(2)
Text1(3) = TreeView1.SelectedItem.FullPath & &\& & &(& & Text1(1) & &)& & Text1(2)
End IfEnd SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index = 2 Then
Text1(4).SetFocus
If KeyCode = vbKeyReturn And Index & 3 And Index & 6 Then Text1(Index + 1).SetFocusEnd SubPrivate Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
rs1.Open &select * from 部门表 where 部门全称='& + TreeView1.SelectedItem.Key + &'&, cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount & 0 Then
For i = 0 To 6
Text1(i) = rs1.Fields(i)
If TreeView1.SelectedItem.Children & 0 Then TreeView1.SelectedItem.ExpandedImage = &open&End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
'单击&确定&按钮
tlbState True
'调用tlbState子过程设置工具栏按钮状态
If Len(Text1(0)) & 10 Then
'如果&部门编号&长度大于10
MsgBox &部门编号超长！&
'提示用户
'退出子过程
'向数据表中添加数据
rs1.Open &select * from 部门表&, cnn, adOpenKeyset, adLockOptimistic
'连接部门表
rs1.AddNew
'添加新记录
For i = 0 To 6
rs1.Fields(i) = Text1(i)
'使用循环语句为各字段赋值
rs1.Fields(&编码级次&) = Len(Text1(0)) / 2
'给&编码级次&字段赋值
rs1.Update
'更新数据表
'关闭记录集对象
'向TreeView控件中添加数据
If TreeView1.Nodes.Count & 0 Then
If blnTJ = True Then
'如果为&添加同级&状态
TreeView1.Nodes.Add TreeView1.SelectedItem.Key, tvwLast, Text1(3), &(& & Text1(1) & &)& & Text1(2), &close&
'为当前选中节点的下一个节点添加数据
TreeView1.SelectedItem.LastSibling.Selected = True
TreeView1.Nodes.Add TreeView1.SelectedItem.Key, tvwChild, Text1(3), &(& & Text1(1) & &)& & Text1(2), &close&
'为当前选中节点的子节点添加数据
'对所有节点排序
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Sorted = True
TreeView1.SelectedItem.Child.LastSibling.Selected = True
Set node1 = TreeView1.Nodes.Add(, tvwFirst, Text1(3), &(& & Text1(1) & &)& & Text1(2))
node1.Selected = True
Case &cancel&
'单击&取消&按钮
tlbState True
'调用tlbState子过程设置工具栏按钮状态
Case &addnew&
'单击&添加同级&按钮
tlbState False: blnTJ = True
'调用tlbState子过程同时设置标记为&添加同级&
'清空所有文本框中的数据
For i = 0 To Text1.UBound
Text1(i).Text = &&
If TreeView1.Nodes.Count & 0 Then
rs1.Open &select * from 部门表 where 部门全称='& + TreeView1.SelectedItem.LastSibling.Key + &'order by 编码级次&, cnn, adOpenKeyset, adLockOptimistic
'按部门全称查询并排序表中记录
If rs1.RecordCount & 0 Then
'如果表中有记录
Text1(1) = Format(Val(rs1.Fields(&本级编号&)) + 1, &00&)
'给&本级编号&文本框赋值
Text1(0) = Left(rs1.Fields(&部门编号&), Len(rs1.Fields(&部门编号&)) - 2) & Text1(1)
'给&部门编号&文本框赋值
'关闭数据集对象
Text1(0) = &01&
Text1(1) = &01&
Text1(2).SetFocus
'&部门名称&文本框获得焦点
Case &addchild&
'单击&添加下级&按钮
If TreeView1.Nodes.Count = 0 Then
MsgBox &没有上级部门，无法添加下级&
tlbState False: blnTJ = False
'调用tlbState子过程同时设置标记为&添加下级&
rs1.Open &select * from 部门表 where 部门编号 like
'& + Text1(0) + &'+'__' or 部门编号= '& + Text1(0) + &'order by 部门编号&, cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount & 1 Then
'如果表中记录大于1
rs1.MoveLast
'将记录指针移到最后一条记录
Text1(1) = Format(Val(rs1.Fields(&本级编号&)) + 1, &00&)
'给&本级编号&文本框赋值
Text1(0) = Left(rs1.Fields(&部门编号&), Len(rs1.Fields(&部门编号&)) - 2) & Text1(1)
'给&部门编号&文本框赋值
Text1(1) = &01&
'&本级编号&文本框值为01
Text1(0) = rs1.Fields(&部门编号&) & Text1(1)
'给&部门编号&文本框赋值
'关闭数据集对象
'清空所有文本框中的数据
For i = 2 To Text1.UBound
Text1(i).Text = &&
Text1(2).SetFocus
'&部门名称&文本框获得焦点
Case &del&
If TreeView1.SelectedItem.Children & 0 Then
MsgBox &此部门存在下级部门，不允许删除！&
cnn.Execute (&delete from 部门表 where 部门全称='& + TreeView1.SelectedItem.Key + &'&)
Case &expand&
'单击&展开&按钮
'使用循环语句展开所有节点
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Case &nexpand&
'单击&折叠&按钮
'使用循环语句将所有节点折叠
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = False
Case &exit&
'单击&退出&按钮
'结束程序
End SelectEnd Sub
FoxTable 2014,更低难度,10倍效率,可编译,完美融合B/S和C/S优势,快速开发数据管理软件
你的问题信息量略大，建议你先把必要的基础知识学好……比如数据库，比如treeview控件等等
VB这种东西几乎没用，太复杂，VB适合些简单的东西，高级点就不会用VB编了
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
VB制作学生信息管理系统教程
下载积分：200
内容提示：VB6 0教程，教你如何制作短信发送系统程序
文档格式：PDF|
浏览次数：142|
上传日期： 01:51:00|
文档星级：
该用户还上传了这些文档
VB制作学生信息管理系统教程
官方公共微信vb状态栏显示文字_百度知道请问怎样使用VB中的ToolBar控件？我在改控件上设置了5个按钮，请问怎样使用VB中的ToolBar控件？我在改控件上设置了5-知识宝库
你可能对下面的信息感兴趣}