VB中listview控件

  • 格式:doc
  • 大小:32.50 KB
  • 文档页数:5

下载文档原格式

  / 11
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

控件

listview控件可有4种不同的视图显示方法,跟“资源管理器”里的“查看”方式相似:(1)无图标;(2)小图标;(3)列表;(4)报表式。

使用哪种视图,可由该控件的view属性设置控制。

其中“报表”视图用来显示记录数据很适合。

listview控件包括listItem对象和ColumnHeader对象。

本人简单理解为:listItem对象看成数据行;ColumnHeader对象看成列标题。

listItem对象(行)有两部分:一部分是图标和简要描述的文本(第1列);另一部分是前者的子项文本信息(第2列,第3列......)。

而listItems即是对listItem对象集合(所有行)的引用。

故此,listItems(1) 可以表示为第1行;

listitems(1).text 返回第1行第1列的文本值;

listitems(1).subItem(1) 返回第1行第2列的文本值。

【控件常用属性】

[1]view属性

该属性有4个值可设定:

1---小图标视图显示

2---列表

3---报表

0---无图标(默认)

[2]AllowColumnReorder属性

值设置.t.时,用户可以用鼠标选中1列拖至其他地方进行重新排列。

[3]Checkboxes属性

设置为.t.时,每一行数据前将显示一复选框。

[4]FlatScrollBar属性

设置为.f.时控件将显示滚动条。

[5]FullRowSelect属性

设置为.t.时可以整行地选择数据。

[6]GridLines属性

设置为.t.时控件将显示网格线。(只作用于“报表”视图)

[7]HideColumnHeaders属性

设置为.f.时,列标题可视,反之则不可视。

[8]HotTracking属性

设置为.t.时,鼠标所在行将以高亮度显示。

[9]Icons,SmallIcons属性

两者设置listview控件视图相关联的ImageList控件中的图片。

Icons指明视图为大图标时的关联;

SmallIcons指明视图为小图标时的关联。

[10]LabelWrap属性

设置为.t.时,文本标签超出列宽时可换行。

[11]SelectedItem属性

返回对所选ListItem对象(行)的引用。

[12]Sorted属性

当值为.t.时,列表按字母排序。

[13]Picture属性

指定控件的背景图片,此属性在控件自带属性设置框里设置。

*****************************************************************

【控件常用方法程序】

[1]Add方法

添加listItem对象(行)到控件中。

语法格式:

控件ListItems集合.add(index,key,text,icon,smallIcon)

[2]FindItem方法

查找并返回对控件中listItem对象的引用。

语法格式:

控件名.FindItem(string,value,index,match)

******************************************************************

新建一表单,在表单里拖出一个ListView控件和一个ImageList控件。

选中ListView控件,单击右键,选择“ListViewCtrl Properties”,在General页面框中选中下列复选框:

LabelWrap:文本可换行

Checkboxes:显示复选框

FullRowSelect:整行选定

清除FlatScrollBar的选定,控件将显示滚动条。

**************************************************************

控件name属性

ListView view1

ImageList Image1

***************************************************************

在表单的Init事件中加入下列代码:

&&&&将ImageList控件图片赋予Listview控件&&&&

thisform.view1.Icons=thisform.Image1.object

thisform.view1.smallIcons=thisform.Image1.object

****************************************************************

在listview控件init事件中加入下列代码:

&&&初始化ListView控件&&&&

&&设置显示为报表视图

this.view=3

&&添加和设置列标

store this.ColumnHeaders.Add(,"l11","序号",this.Width/7) to clm1

store this.ColumnHeaders.Add(,"l12","物资编号",this.width/4) to clm2 store this.ColumnHeaders.Add(,"l13","存货名称",this.Width/4) to clm3 store this.ColumnHeaders.Add(,"l14","规格",this.width/4) to clm4

store this.ColumnHeaders.Add(,"l15","计量单位",this.Width/8) to clm5 store this.ColumnHeaders.Add(,"l16","请购数量",this.width/4) to clm6 store this.ColumnHeaders.Add(,"l17","使用日期",this.Width/4) to clm7 store this.ColumnHeaders.Add(,"l18","请购用途",this.width/4) to clm8 this.hottracking=.t. &&鼠标停留行高亮度显示

******************************************************************

将数据表添加到listview控件中显示: