VB程序设计第10ActiveX控件简介.pptVIP

第10章 ActiveX控件简介 第10章 ActiveX控件简介 10.1知识要点 1、ActiveX 控件的加载 在“工程”菜单中，单击“部件”显示“部件”对话框， 也可以在工具框中单击鼠标右键以显示该对话框。在弹出的“部件”对话框中选择所需要的ActiveX 控件名，如：“Microsoft Windows common controls 6.0”，选定控件名称左边的复选框，即可将该选项对应的ActiveX控件放在工具箱中。 2、常用的ActiveX 控件文件名 用工程菜单中的部件对话框，把 ActiveX 控件加载到工具箱中。下表列出了在部件对话框中常用的部件名。当然，部件的存在或不存在，还取决于所用户所使用的计算系统中使用的 Visual Basic 版本。 表10-1 部件对话框中的常用部件 第10章 ActiveX控件简介 10.2习题与解答 1．怎样能使ActiveX控件属性可以象image控件一样直接用等号赋值？ 答：必须同时定义property set 和property let，两者缺一不可。在程序代码中需要加上Property Let过程，例如： Public Property Let Picture(ByVal New_Picture As Picture) UserControl.Picture = New_Picture PropertyChanged Picture End Property 2．如何判断用户选择的是TreeView的父节点还是子节点？ 答：可以使用SelectedItem属性获得用户选择的节点。SelectedItem属性是Node类型，可以利用Node类型Children属性知道该节点有几个子节点，也可以使用Node类型的FullPath属性知道该节点的位置，或Parent属性获得父节点。使用这些属性你就可以很容易做判断了。 3．若要向TreeView控件动态地加入node，对key值该如何设置？ 答：一定要在设计中保证Key值的唯一性，即不同节点的Key值必须是不同的，如果变量的值和已有的节点的Key相同，则一定会报告错误。不过使用Add添加节点时，Key值可以省略不填。 4．当ListView能够多选时，如何得到所选中的总行数（selected count)、第一个及最后一个所选行(selected First ListItem(First))？ 答：没有现成的属性，只能遍历整个ListItems，检查每个ListItem的Selected属性。可参考使用下面的代码： Dim i, nCount, nFirst, nLast nCount = 0 nLast = 0 nFirst = ListView1.ListItems.Count + 1 For i = 1 To ListView1.ListItems.Count If ListView1.ListItems(i).Selected Then nCount = nCount + 1 If nFirst i Then nFirst = i End If If nLast i Then nLast = i End If End If Next If nCount Then MsgBox 选中 + CStr(nCount) + 个条目！ _ + vbCrLf + 第一个选中的为 + CStr(nFirst) + _ vbCrLf + 最后一个为 + CStr(nLast) Else MsgBox 没有选中条目！ End If 5．如何在toolbar控件的按钮之间加一个分割符 ？ 答：在工具条的属性对话框中，选择“按钮”页面，按下“插入按钮”插入新的按钮 ， 并选择“样式”为“3-tbrSeparator”，这样就插入了一个分割符。 6．如何实现类似于显示属性的分页效果？ 答：可以使用VB的Tabbed Dialog控件或Common Controls中的TabStrip控件来实现这样的 效果。 即在VB6中选择菜单“工程”中的“添加窗体”选项，然后在“添加窗体”对话框中选择“选项对话框”选项，这样VB6就会建立一个有分页效果的窗体。 7．如何在StatusBar控件中增加一个变量并将该变量值显示在状态栏里？