5ActiveX控件.ppt

第*页 1）DayOfWeek属性 5.5 DataTimePicker控件 第*页 2）Month属性 返回或设置一个值，指出当前的月份。 Select Case DTPicker1.Month Case 1 Label1.Caption = 选择的月份为一月“ …… Case 12 Label1.Caption = 选择的月份为十二月 End Select 5.5 DataTimePicker控件 第*页 2）Month属性 5.5 DataTimePicker控件 第*页 MonthView 控件可以用来创建一个能够让用户通过日历风格的界面查看和设置日期信息的应用程序。 5.6 MonthView控件 第*页 1)MultiSelect属性 返回或设置一个值，决定是否可以一次选择多个日期。 MonthView1.MultiSelect = True 5.6 MonthView控件 第*页 2)Year属性 Label1.Caption = 今年是： MonthView1.Year 年 。 5.6 MonthView控件 第*页 树形视图控件通常用其显示有目录结构的内容。 图形列表控件，主要用于存放图形文件。 5.7 树形视图控件与图像列表控件 第*页 创建树形视图控件TreeView 控件。 5.7.1 TreeView控件 第*页 设置树形视图的外观，主要用到Style（8种值：0-7）和LineStyle属性（2种:0、1）。 注意：只有将控件的style属性设置为有连接线时linestyle属性才会起效果。 5.7.1 设置树形视图的外观 第*页 图像列表（ImageList）控件在程序运行时不可见。 5.7.2 图像列表控件 第*页 ImageList控件作为图片的容器主要用来给其他控件提供图标，比如树形视图控件。 链接TreeView控件和ImageList控件 1）右击TreeView控件，选择“属性”。 2）选择“通用”选项卡，“图像列表”栏。 5.7.2 图像列表控件 第*页 只能通过程序实现，要用到Node对象（视图中每一个节点都是一个Node对象）。 Private Sub Form_Load() Dim nt As Node Set nt = TreeView1.Nodes.Add(, , root, 大陆, 1) Set nt = TreeView1.Nodes.Add(root, tvwChild, , 孙南, 1) Set nt = TreeView1.Nodes.Add(root, tvwChild, naying, 那英, 1) 5.7.3 给树形视图添加内容 第*页 Set nt = TreeView1.Nodes.Add(naying, tvwChild, , 雾里看花, 1) Set nt = TreeView1.Nodes.Add(, , root1, 港台, 1) Set nt = TreeView1.Nodes.Add(root1, tvwChild, , 刘德华, 1) Set nt = TreeView1.Nodes.Add(, , root2, 欧美, 1) Set nt = TreeView1.Nodes.Add(root2, tvwChild, , 奥黛丽-赫本, 1) End Sub 5.7.3 给树形视图添加内容 第*页 代码解析： 1）Dim nt As Node 声明一个节点Node型变量 2）Set nt = TreeView1.Nodes.Add(, , root, 大陆, 1) 给TreeView1增加一个根节点，关键字是root，标题文本是“大陆”，节点显示图片是ImageList第一张图片。 3）设置节点图标 Node.Image = 1 4）Node.FullPath，获取节点的完整路径。 5.7.3 给树形视图添加内容 第*页 代码解析： 5） Node.Text，获取节点的标题文本 6） Set nt = TreeView1.Nodes.Add(root, tvwChild, naying, 那英, 1) Set nt = TreeView1.Nodes.Add(naying, tvwChild, , 雾里看花, 1) 。 给“那英”节点设置关键字为“naying” 节点的key属性，用来获取节点的关键字，用于识别树种唯一的节点，一个树中任意两个节点的关键字都不能相同。 5.7.3 给树形视图添加内容 第*页 代码解析： 7）上面