vb常用ActiveX控件介绍

Windows通用控件Microsoft Windows Common Controls 6.0
路径：Windows/system/MscomctL.ocx
TabStrip 页框 Toolbar 工具栏 StatusBar 状态栏
ProgressBar 进程条 TreeView 分层显示 ListView 排列显示
ImageList 图象列表 Slider 滑块 ImageCombo 图象组合框

Microsoft Common Dialog Control 6.0 -- Comdlg32.ocx
CommonDialog 通用对话框

Microsoft Multimedia Control 6.0 --Mci32.ocx
MMControl1 多媒体

Microsoft Media Player --Msdxm.ocx
MediaPlayer 媒体播放器

1.------------
ImageList控件: List Image 对象的集合,用于程序需要调用的图片

图象列表用来储藏多个图像,ListView.ToolBar.TabStrip.Header.ImageCombo.TreeView
等控件通过设置Icons,SmallIcons,ImageList属性=ImageList控件 来绑定使用这些图片.
也可以在过程代码中,用 Index 属性或 Key 属性的值来引用 ListImage 对象

右键点击控件→属性→Image图象→Insert Picture插入图片→双击加入5个图片后确定

给5个图片分别取名 关键字=tu1,tu2,tu3,tu4,tu5

2.------------
ImageCombo控件: 标准 Windows 组合框的允许绘图版本
右键组合框控件-属性-通用-图像列表=ImageList1
图象组合框的列表部分中的每一项都可以显示一个有自己的图片的项目列表


3.------------
StatusBar控件:创建工具栏的 Button 对象的集合

A)点状态栏右键→Properties属性→Panels窗格
Insert Panel插入,Remove Panel删除 '用来增删状态栏中的窗格数目
Index索引 '在程序中我们通过窗格的索引值来引用窗格
Text文本 '在各个窗格中显示的文字
Alignment对齐 '窗格中文本的对齐方式；
Style样式属性: 窗格的样式(0-sbrText显示文本,5-sbrTime时间,6-sbrDate显示日期)
Bevel斜面 '窗格的凹凸状态(0-sbrNoBevel不显示斜面,1-sbrInset凹,2-sbrRaised凸)
Browse浏览 '在窗格中加入图片
Minimun Width宽度 '窗格的宽度
AutoSize自动调整 '0不调整,1-sbrSpring自动伸长,2-sbrContents自动匹配伸缩
在过程中加入以下代码
StatusBar1.SimpleText = "要显示的内容" '单窗格显示通用SimpleText简单文本
StatusBar1.Panels(X).Text = "要显示的内容" '多窗格里显示文本或图形X=索引值


4.----------
ToolBar控件:创建与应用程序相关联的工具栏

A)点工具条右键→属性
Buttons按钮 Insert插入按钮
按钮分组:先插入一个按钮,所样式属性改为3-Separator
为工具栏增加图画:
通用→图象列表→选择ImageList控件
按钮→插入按钮→Image图像=1
ButtonClick事件 '单击 Toolbar 控件内的 Button 对象时发生
ByVal关键字 '表示该参数按值传递
Button.Index '返回Toolbar控件的Buttons集合的全部索引号.


5.-----------
TabStrip控件:为某个窗口或者对话框的相同区域定义多个页面

A)右击页框控件→属性→General通用(Tabs选顶卡)
TabStrip 属性窗口 Tabs标签 Caption标题 Name关键字 ToolTipText提示文本 Font字体
Style样式属性 '0-tabTabs三维边框,1-tabButtons没有边框,2-tabFlatButtons水平按钮
在代码中常用语句的属性
TabWidthStyle属性 '决定了每一行的外观
SelectedItem 属性 '返回一个控件中选中的记录的书签
Key属性 '返回或设置唯一标识集合中一个成员的Name关键字

6.--------------
ProgressBar控件:监视操作完成的进度

Min 属性 '代表进程条全空时的值，缺省时为0。
Max 属性 '代表进程条全满时的值，缺省时为100。
Value属性 '代表进程条当前的值（但不出现在属性窗口中）

7.---------
Slider控件:滑块和可选择性刻度标记的窗口
Min，Max 属性 '决定滑块最左右端或最上下端所代表的值
LargeChange属性 '上下方区域单击时改变的值
SmallChange属性 '两端的箭头钮上单击时改变的值
Value 属性 '当前滑块所处位置的值
Change 事件 '当滑块位置发生变化时就引发了Change事件

8.---------------
ListView 控件:使用四种不同视图显示项目,必需设图像列表为ImageList属性
右键排列控件-属性-图象列表 全部=ImageList1
View属性: 列表中查看视图方法 0-lvwIcon图标 1小图标 2-lvwList列表 3-lvwReport报表
ListItem 对象: 定义 ListView 控件中项目的简要描述、图标、文本片段
ColumnHeader对象:用 Add 方法添加这个对象到 ColumnHeaders 集合中。
HideColumnHeaders属性: 决定是否在 ListView 控件中显示列标头
SelectedItem 属性:包含DataList 控件中选中的记录的关键字
BeforeLabelEdit 事件:当试图编辑当前被选中的对象的标签时发生
Add 添加Button对象语法: object.Add(index, key, caption, style, image)
object 必需的.其值是 Buttons 集合.
index 可选的,指定要插入 Button 对象的位置.默认下加到末尾。
key 可选的,标识 Button 对象的Name 关键字
caption 可选的.在 Button 对象下显示的Caption 标题
style 可选的.Button 对象的Style 样式属性
image 可选的.在相关联的 ImageList 控件内,指定一个索引号的Image图像

9.-----------
TreeView控件: 显示结点（ Node） 对象的分层列表
右键分层控件-属性-通用-图像列表=ImageList1
Style 属性: 设置成显示图像的样式
Change 事件: 指示一个控件的内容已经改变的

'StatusBar1-窗格-插入4个索引(最小宽度分别为2340,1039,540,840)
'索引2样式=6(显示日期),索引3可以插入一个国旗,索引4样式=5(显示时间)

Private Sub Form_Load()
mima = InputBox("请输入密码:", "密码框") '设置一个口令检查框
Do While mima <> ""
StatusBar1.Panels(1).Text = "呕倒!密码都不会"
tishi = MsgBox("密码不正确!请重新输入", vbExclamation + vbOKOnly, "检查密码")
mima = InputBox("请输入密码:", "密码框")
Loop
End Sub

'Inagelist1-图像-插入5个图片
'Toolbar1-属性-按钮-插入有8个索引(2.4.6的分别样式=3-分组)
'1.3的工具提示文本=打开、运行,5=按此键后果严重
'6.7通用-图象列表=Inagelist1、按钮-图片=4和5

Private Sub Toolbar1_ButtonClick(ByVal Button As Button) '按钮被单击事件
Select Case Button.Index '返回全部索引号
Case 1 '比较索引号相等就运行下面代码跳到End Select结束
StatusBar1.Panels(1).Text ="不回帖站左边灌水站右边!"
Case 3
StatusBar1.Panels(1).Text ="你们严肃点,正在打劫呢!?"
Case 5
End '关闭窗口结束
End Select
End Sub


'Tabstrip1-属性-通用-图像列表=Inagelist1,一个ProgressBar控件,一个Slider控件
'Tabstrip1-属性-选顶卡-索引1的图像=1、关键字=tab1、索引2图像=2、关键字=Tab2

Private Sub Tabstrip1_click()
Select Case TabStrip1.SelectedItem.Key '返回关键字
Case "tab1" '比较对应的关键字运行下面语句
If ProgressBar1.Value < 100 Then '进度条当前值
ProgressBar1.Value = ProgressBar1.Value + 5
StatusBar1.Panels(1).Text = "唐伯虎说他家有七个老婆!"
Else
ProgressBar1.Visible = False '隐藏进度条
StatusBar1.Panels(1).Text = "他说没什么女人是搞不定的!"
End If
Case "tab2"
Slider1.Value = Slider1.Value + 1
If ProgressBar1.Value > 95 Then
StatusBar1.Panels(1).Text = "嘿嘿嘿!还搞,要出事啦!"
End If
End Select
End Sub




'ImageCombo1-属性-通用-图像列表=Inagelist1

Private Sub Slider1_Change() '控件内容改变事件
Select Case Slider1.Value '返回滑块条当前值
Case 9
Dim Suibian1 As ComboItem '图象组合框
Set Suibian1 = ImageCombo1.ComboItems.Add(1, "Img1", "分层列表控件")
Set Suibian1 = ImageCombo1.ComboItems.Add(2, "Img2", "视图排列控件")
Set ImageCombo1.ImageList = ImageList1 '绑定ImageList图像列表控件
ImageCombo1.ComboItems("Img1").Image = 1 '设置指向的图象索引号
ImageCombo1.ComboItems("Img2").Image = 2
ImageCombo1.Text = "请选择一个列表项" '设置Caption标题
End Select
End Sub '完成ImageCombo1列表项目设置


'TreeView1根目录的Name关键字=Gen,节点Name关键字=Jied
'在Nodes 集合中添加一个 Node 对象
'ListView1只设置一层默认的目录Mame=Gen,Caption标题=爱你一万年
'在ListItems 集合中添加 ListItem 对象并返回新创建对象的引用

Private Sub ImageCombo1_Click()
On Error GoTo Sanren '当列表选项被选中两次时发生重复设置的错误
Select Case ImageCombo1.SelectedItem.Key '返回Name关键字集合
Case "Img1"
Dim Suibian2 As Node '分层显示
Set Suibian2 = TreeView1.Nodes.Add(, , "Gen1", "设置根目录", 1)
Set Suibian2 = TreeView1.Nodes.Add("Gen1", tvwChild, "jied1", "节点1", 2)
Set Suibian2 = TreeView1.Nodes.Add("Gen1", tvwChild, "jied2", "有图片", 3)
Set Suibian2 = TreeView1.Nodes.Add(, , "Gen2", "今晚我放牛", 4)
Set Suibian2 = TreeView1.Nodes.Add("Gen2", tvwChild, "jied3", "没设图片")
Set Suibian2 = TreeView1.Nodes.Add("Gen2", tvwChild, "jied4", "开始放牛")

Case "Img2"
Dim Suibian3 As ListItem '列表显示
Set Suibian3 = ListView1.ListItems.Add(, "Gen3", "爱你一万年", 1)
Set Suibian3 = ListView1.ListItems.Add(, "Gen4", "我恨我痴心", 2)
Set Suibian3 = ListView1.ListItems.Add(, "Gen5", "算你狠", 3)
End Select
Sanren: '当发生错误时跳到这里运行下一句
End Sub

10.-----------------
CommonDialog 控件: 进行打开.保存.打印..颜色和字体.帮助等操作
CancelError 属性: 返回选取“取消”按钮时是否出错true false
On Error GoTo 标记: 出错时跳到标记处后面运行
Filter 属性: 返回或设置在对话框的类型列表框中所显示的过滤器
Open 对话框: 使用ShowOpen 方法显示打开文件对话框
Save As对话框: 使用ShowSave 方法显示另存为对话框
Color 对话框: 使用ShowColor 显示“颜色”对话框
Fonts 对话框: 使用ShowFont 显示“字体”对话框

ShowPrinter 显示“打印”或“打印选项”对话框
ShowHelp 调用 Windows 帮助引擎
object.Filter [= description1 |filter1 |description2 |filter2...]
description 描述文件类型的字符串表达式。
filter 是指定文件名扩展的字符串表达式。

11.---------------
MediaPlayer 媒体播放器
filename属性: （待播放的文件名）可以在属性窗口中设置，也可以用代码实现。
AutoStart属性: （是否自动播放），默认是True。
AutoRewind属性:（是否自动循环），默认是False。
PlayCount属性: （文件播放遍数），默认是1

'SelectedItem属性 : 返回对所选Node对象的引用。
'Key属性 : 返回或设置对象集合中的Name关键字

Private Sub Listview1_click()
Select Case ListView1.SelectedItem.Key
Case "Gen3"
StatusBar1.Panels(1).Text ="想一起放牛吗?"
Case "Gen4"
StatusBar1.Panels(1).Text ="请出示您的放牛证件"
Case "Gen5"
StatusBar1.Panels(1).Text ="您的证件已经通过验证"
End Select
End Sub


'Private Sub object_NodeClick(ByVal node As Node)
'NodeClick事件: Node 对象被单击时，这个事件便发生
'node属性 : 返回或设置被点取的 Node 对象的引用
'MediaPlayer1的PlayCount属性=5(重复播放5次)

Private Sub TreeView1_NodeClick(ByVal Node As Node)
Select Case Node.Text '反回Node对象的Caption标题
Case "节点1"
StatusBar1.Panels(1).Text ="来吧!一起放牛"
Case "有图片"
StatusBar1.Panels(1).Text ="都市是个放牛的好地方"
Case "没设图片"
StatusBar1.Panels(1).Text ="http://www.rashop.cn"
Case "开始放牛"
On Error GoTo Tiaoguo '当发生错误时跳过标记处继续运行
CommonDialog1.CancelError = True '设置当点取消时出错
CommonDialog1.Filter = "text files(*.mid)|*.mid|All Files (*.*)|*.*"
CommonDialog1.ShowOpen '打开文件选择对话框
MediaPlayer1.FileName = CommonDialog1.FileName '播放选中的文件
StatusBar1.Panels(1).Text =CommonDialog1.FileName
Tiaoguo:
End Select
End Sub