大学VB教学课件：第7节 VB高级控件.ppt

第七章 VB高级控件 7.2 公用对话框（Common dialog） “打开”对话框 “另存为”对话框 “颜色”对话框 “字体”对话框 “打印”对话框 “帮助”对话框 1、属性（1）Action属性：运行阶段有效 例：编写一个图片浏览程序，当用户按下“打开”按钮时，弹出“打开”对话框，从中选定一个位图文件（.bmp）后关闭该对话框，此时文本框中显示该文件名，同时在图像框中显示该图片。 方法：ListView控件中ListItems集合中的ListItem对象可通过Add方法添加。格式：Dim itmX as ListItemSet itmX=对象.集合.Add( [Index], [key], [text], [Icon], [SmallIcon] ) 例：Private Sub Form_Load() Dim itmx As ListItem Set itmx=ListView1.ListItems.Add(,“calc”, “计算器”，1） Set itmx=ListView1.ListItems.Add(,“brush”, “画笔”，2） End Sub Private Sub Combo1_Click() Label1.FontSize = Combo1.Text End Sub Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu.Key Case st Label1.FontName = 宋体 Case ht Label1.FontName = 黑体 Case fs Label1.FontName = 仿宋_gb2312 Case kt Label1.FontName = 楷体_gb2312 End Select End Sub 7.5 状态栏(StatusBar)控件 状态栏控件由一组窗格构成，每一个窗格作为一Panel对象，所有Panel对象组成Panels集合 Panel对象的常用属性： Text：显示的文本 Picture：显示的图片文件名 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case left Label1.Alignment = 0 StatusBar1.Panels.Item(2).Text = 左对齐 Case center Label1.Alignment = 2 StatusBar1.Panels.Item(2).Text = 居中 Case right Label1.Alignment = 1 StatusBar1.Panels.Item(2).Text = 右对齐 End Select End Sub 7.6 进度条 (ProgressBar)控件 常用属性： Orientation：放置方向 0—水平 1—垂直 Scrolling：0—分段式 1—平滑式 Max、Min： 进程条的终点值和起始值 Value：当前进度数值 Private Sub Timer1_Timer() n = n + 5 If n = ProgressBar1.Max Then ProgressBar1.Value = n ProgressBar2.Value = n Else MsgBox 文件下载已完成！ Timer1.Enabled = False End If End Sub Dim n As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub 7.8 视图列表(ListView)控件 ListView控件能够用来制作像Windows中的“控制面板”那样的用户界面。 ListView控件可使用四种不同视图显示项目。 ListView控件以ListItem对象的形式显示数据。每个ListItem对象都可有一个可选的