Toolbar 控件示例
时 间:2010-10-01 00:00:00
作 者:lyxiong0728 ID:2790 城市:佛山
摘 要:该示例用 Add 方法将 Button 对象添加到 Toolbar 控件中去,并分配 ImageList 控件所提供的图象。每个按钮的状态都由 Style 属性决定。下述代码创建了能够用来打开和保存文件的按钮,并包含了一个用来改变窗体背景的 ComboBox 控件。要试用此例,将 Toolbar 控件,ImageList 控件和 ComboBox 控件放置到窗体上,并把代码粘贴到窗体的声明部分。要确保将 ComboBox 直接插入到 Toolbar 控件上。运行此例,单击不同按钮并从组合框中进行选择。
正 文:
Toolbar 控件示例
该示例用 Add 方法将 Button 对象添加到 Toolbar 控件中去,并分配 ImageList 控件所提供的图象。每个按钮的状态都由 Style 属性决定。下述代码创建了能够用来打开和保存文件的按钮,并包含了一个用来改变窗体背景的 ComboBox 控件。要试用此例,将 Toolbar 控件,ImageList 控件和 ComboBox 控件放置到窗体上,并把代码粘贴到窗体的声明部分。要确保将 ComboBox 直接插入到 Toolbar 控件上。运行此例,单击不同按钮并从组合框中进行选择。
Private Sub Form_Load()
'
为ImageList
创建对象变量。Dim imgX As ListImage
'
将图片加载到ImageList
控件中。Set imgX = ImageList1.ListImages. _
Add(, "open", LoadPicture("Graphics\bitmaps\tlbr_w95\open.bmp"))
Set imgX = ImageList1.ListImages. _
Add(, "save", LoadPicture("Graphics\bitmaps\tlbr_w95\save.bmp"))
Toolbar1.ImageList = ImageList1
'
为Toolbar
创建对象变量。Dim btnX As Button
'
用Add
方法将按钮对象添加到Buttons
集合中。创建'
每个按钮后,设置Description
和ToolTipText
属性。Toolbar1.Buttons.Add , , , tbrSeparator
Set btnX = Toolbar1.Buttons.Add(, "open", , tbrDefault, "open")
btnX.ToolTipText = "Open File"
btnX.Description = btnX.ToolTipText
Set btnX = Toolbar1.Buttons.Add(, "save", , tbrDefault, "save")
btnX.ToolTipText = "Save File"
btnX.Description = btnX.ToolTipText
Set btnX = Toolbar1.Buttons.Add(, , , tbrSeparator)
'
下一个按钮具有Placeholder
属性。ComboBox
控件'
将被放置在按钮的上方。Set btnX = Toolbar1.Buttons.Add(, "combo1", , tbrPlaceholder)
btnX.Width = 1500 '
容纳一个combobox
的占位符宽度。Show '
显示窗体以继续配置ComboBox
。'
配置ComboBox
控件,使其跟具有PlaceHolder
样式'(key = "combo1")
的Button
对象在相同位置。With Combo1
.Width = Toolbar1.Buttons("combo1").Width
.Top = Toolbar1.Buttons("combo1").Top
.Left = Toolbar1.Buttons("combo1").Left
.AddItem "Black" '
为文本添加颜色。.AddItem "Blue"
.AddItem "Red"
.ListIndex = 0
End With
End Sub
Private Sub Form_Resize()
'
配置ComboBox
控件。With Combo1
.Width = Toolbar1.Buttons("combo1").Width
.Top = Toolbar1.Buttons("combo1").Top
.Left = Toolbar1.Buttons("combo1").Left
End With
End Sub
Private Sub toolbar1_ButtonClick(ByVal Button As Button)
'
用Key
属性和SelectCase
语句来指定一个动作。Select Case Button.Key
Case Is = "open" '
打开文件。MsgBox "Add code to open file here!"
Case Is = "save" '
保存文件。MsgBox "Add code to save file here!"
End Select
End Sub
Private Sub Combo1_Click()
'
用ComboBox
改变窗体的背景。Select Case Combo1.ListIndex
Case 0
Form1.BackColor = vbBlack
Case 1
Form1.BackColor = vbBlue
Case 2
Form1.BackColor = vbRed
End Select
End Sub
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)