vb学习教程 2

《vb学习教程 2》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用集合增强界面设计第二章回顾回顾可视化程序设计相关的主题Printer的用法使用Clipboard和Screen使用App2目标使用Collection对象组织数据使用列表视图控件使用树视图控件3集合3-1将一组相关项目组合在一起Forms集合程序中已加载的窗体Controls集合窗体上的控件具有自己的属性和方法集合中的对象是集合的“成员”4集合3-2集合中的各个成员是从0或者1开始顺序编号的这个编号称为成员的“索引号”VisualBasic中集合共有的功能：将项目添加到集合中及从集合删除项目。引用集合中的特定成员。集合对象对集合中成

2、员的数量进行计数。5集合3-3PrivateSubcmdSave_Click()DimctlasControlForEachctlinControlsIfTypeOfctlIsTextBoxthenIfctl.Text=""ThenMsgBox"所有字段必须输入值"ExitSubEndifEndifNextctlEndSub6集合的方法VisualBasic中的集合对象具有一些方法，可用于操纵对象的集合：方法AddItemRemove属性Count7列表视图控件它将数据作为列表项目(ListItem)对象显示。列表视图控件类似于列表框(

3、ListBox)控件。可以对列表框控件的项目进行排序，但它们不具有任何特定的结构。列表视图控件可以在许多窗体中显示其项目，其中每个项目可包含任意数量的子项目。包含ListItem和ColumnHeader对象。可以将项目排列为多个列，每个列可以含有列标题也可不含有，项目可同时显示附属的图标和文本8列表视图控件9列表视图控件的视图使用列表视图控件，可以采用下列四种视图之一组织ListItem对象：大（标准）图标小图标列表报表10列表视图控件-属性ArrangeColumnHeaderListItemsViewSortedSortKey11

4、列表视图控件-事件AfterLabelEditBeforeLabelEditColumnClickItemClick12列表视图控件-方法FindItemHitTestSelectedItem13创建列表视图控件14树视图控件2-1Windows资源管理器15树视图控件2-2用户可以选择一次查看全部信息，也可以折叠和展开特定的分支来查看数据。使用各个节点的属性及方法，可以对这些节点的数据进行操作也可以使用节点显示图片。还可以关联一个复选框，使用户能够为某个任务标记特定的节点。要在VisualBasic的工具箱中显示它，请选中“工程”菜单

5、“部件”对话框中的“MicrosoftWindowsCommonControls6.0”。16树视图控件的属性LineStyleNodesCheckedIndexChildrenSortedStyleCheckBoxes17Add方法的设置设置值描述tvwFirst0第一个。节点放置在与按relative指定的节点处于同一级别的所有其他节点的前面。tvwLast1最后一个。节点放置在与按relative指定的节点处于同一级别的所有其他节点的后面。后续添加的节点可以放置到作为最后一个节点添加的节点的后面。tvwNext2（缺省值）下一个

6、。节点放置在按relative指定的节点的后面。tvwPrevious3前一个。节点放置在按relative指定的节点的前面。tvwChild4子级。节点成为按relative指定的节点的一个子节点。18Add方法的参数relative：新节点与现有节点之间的关系。relationship：指定节点的相对放置位置。key：指定新节点的唯一标识符。text：指定要在节点中显示的文本。image：指定与树视图控件相关联的图像列表(ImageList)控件中图像的索引。selectedimage：指定选中节点时图像列表控件中的所显示的图像的索

7、引。19树视图控件-事件ExpandCollapseNodeClick20树视图控件-方法StartLabelEdit使用户能够编辑标签。Object.StartLabelEditPrivateSubForm_Click()IfTreeView1.SelectedItem.Index<>1ThenTreeView1.StartLabelEditEndIfEndSub21创建树视图控件2-122创建树视图控件2-2Setndd=treMytree.Nodes.Add("aust",tvwChild,"joe","Joe")Setndd=t

8、reMytree.Nodes.Add("aust",tvwChild,"jim","Jim")Setndd=treMytree.Nodes.Add("aust",tvwChild,"tom","Tom")S