----------------常用ActiveX控件-----------------------------Windows通用控件Microsoft Windows Common Controls 6.0路径：Windows\system\MscomctL.ocxTabStrip 页框 Toolbar 工具栏 StatusBar 状态栏ProgressBar 进程条 TreeView 分层显示 ListView 排列显示ImageList 图象列表 Slider 滑块 ImageCombo 图象组合框Microsoft Common Dialog Control 6.0 -- Comdlg32.ocxCommonDialog 通用对话框Microsoft Multimedia Control 6.0 --Mci32.ocxMMControl1 多媒体Microsoft Media Player --Msdxm.ocxMediaPlayer 媒体播放器 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,tu52.------------ 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图像=1ButtonClick事件 '单击 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属性右键排列控件-属性-图象列表 全部=ImageList1View属性: 列表中查看视图方法 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） 对象的分层列表右键分层控件-属性-通用-图像列表=ImageList1Style 属性: 设置成显示图像的样式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("请输入密码:", "密码框")LoopEnd Sub'Inagelist1-图像-插入5个图片'Toolbar1-属性-按钮-插入有8个索引(2.4.6的分别样式=3-分组)'1.3的工具提示文本=打开、运行,5=按此键后果严重'6.7通用-图象列表=Inagelist1、按钮-图片=4和5Private Sub Toolbar1_ButtonClick(ByVal Button As Button) '按钮被单击事件Select Case Button.Index '返回全部索引号Case 1 '比较索引号相等就运行下面代码跳到End Select结束StatusBar1.Panels(1).Text ="不回帖站左边灌水站右边!"Case 3StatusBar1.Panels(1).Text ="你们严肃点,正在打劫呢!?"Case 5End '关闭窗口结束End SelectEnd Sub'Tabstrip1-属性-通用-图像列表=Inagelist1,一个ProgressBar控件,一个Slider控件'Tabstrip1-属性-选顶卡-索引1的图像=1、关键字=tab1、索引2图像=2、关键字=Tab2Private Sub Tabstrip1_click()Select Case TabStrip1.SelectedItem.Key '返回关键字Case "tab1" '比较对应的关键字运行下面语句If ProgressBar1.Value < 100 Then '进度条当前值ProgressBar1.Value = ProgressBar1.Value + 5StatusBar1.Panels(1).Text = "唐伯虎说他家有七个老婆!"ElseProgressBar1.Visible = False '隐藏进度条StatusBar1.Panels(1).Text = "他说没什么女人是搞不定的!"End IfCase "tab2"Slider1.Value = Slider1.Value + 1If ProgressBar1.Value > 95 ThenStatusBar1.Panels(1).Text = "嘿嘿嘿!还搞,要出事啦!"End IfEnd SelectEnd Sub'ImageCombo1-属性-通用-图像列表=Inagelist1Private Sub Slider1_Change() '控件内容改变事件Select Case Slider1.Value '返回滑块条当前值Case 9Dim 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 = 2ImageCombo1.Text = "请选择一个列表项" '设置Caption标题End SelectEnd 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 SelectSanren: '当发生错误时跳到这里运行下一句End Sub 10.-----------------CommonDialog 控件: 进行打开.保存.打印..颜色和字体.帮助等操作CancelError 属性: 返回选取“取消”按钮时是否出错true falseOn 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 SelectEnd 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.FileNameTiaoguo:End SelectEnd Sub

评论