【课件教程】第7.2章 VB高级控件2 Visual Basic 大学计算机二级VB考试学习复习资料.pptVIP

方法： 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( ,“brush”, “画笔”，1，1） End Sub 常用事件： Click、Change、Scroll Private Sub Form_Load() Slider1.Max = Image1.Width Slider1.Min = 0 Slider1.TickFrequency = Int(Slider1.Max / 10) Image1.Width = 0 Slider1.Value = 0 End Sub Private Sub Slider1_Click() Image1.Width = Slider1.Value End Sub Private Sub Slider1_Scroll() Image1.Width = Slider1.Value Slider1_Click End Sub * * 常用属性： Orientation：放置方向 0—水平 1—垂直 Scrolling：0—分段式 1—平滑式 Max、Min： 进程条的终点值和起始值 Value：当前进度数值 7.4 进度条(ProgressBar)控件 进程条是Windows常见的对象，它以方块图形不断填充矩形区域来表示操作进度，从而使用户了解当前程序的执行状态。 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 Private Sub Timer1_Timer() i = i + 1 ProgressBar1.Value = i Label1.Caption = “已完成 i % If i = 100 Then MsgBox “复制完毕！ Timer1.Enabled = False End If End Sub Dim i As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub 常用属性： Arrange属性：设置图标排列方式。 View属性：设置ListView控件中ListItem对象的外观。 SelectedItem属性：ListView中选中项目。 常用事件：Click，Dbclick 7.5 视图列表(ListView)控件 ListView控件能够用来制作像Windows中的“控制面板”那样的用户界面。 ListView控件可使用四种不同视图显示项目。 ListView控件以ListItem对象的形式显示数据。每个ListItem对象都可有一个可选的图标与其标签相关联。 7.6 滑块(Slider)控件 滑块控件的功能是用来产生具有任选刻度数的滑杆。滑块控件由一个滑块和一个带有刻度的标尺组成。 滑块常用在需要连续改变数值的情况下，如音量、VCD播放进程的控制等。 常用属性： Max、Min：设置或返回标尺刻度的最大、最小值 Orientation：放置方向 0—水平 1—垂直 TickFrequency：标尺上每个刻度表示的数值，它与Max属性和Min属性一起决定滑块控件标尺上的刻度数目。 SmallChange： 按键盘左、右箭头时滑动刻度 LargeChange：按键盘PgUp、PgDn键时滑动刻度 Value：滑块当前值 例1：利用滑块控件调节图像控件的大小。 *