请问：在VB的listview控件中，要调用它属性中的查看方适，怎么写代码啊


View 属性（ListView 控件）
      返回或设置 ListView 控件中 ListItem 对象的外观。语法object.View [= value]View 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是 ListView 控件。 
value 指定控件外观的整数或常数，如“设置值”中所描述。 
设置值value 的设置值为：常数 值 描述 
lvwIcon 0 （缺省）图标。每个 ListItem 对象由整幅（标准）的图标和文本标签代表。 
lvwSmallIcon 1 小图标。每个 ListItem 对象由小图标及其右侧的文本标签代表。项目水平排列。 
lvwList 2 列表。每个 ListItem 对象由小图标及其右侧的文本标签代表。ListItem 对象及其相关的信息在列中垂直排列。 
lvwReport 3 报表。每个 ListItem 对象显示为小图标和文本标签。可在子项目中提供关于每个 ListItem 对象的附加信息。图标、文本标签和信息显示在列中，其中最左侧一列包含小图标和文本标签。附加列显示每个项目的子项目的文本。 
说明只有在图标视图中才可使用 LabelWrap 属性指定在显示 ListItem 对象的标签时是否可以换行。在报表视图中，可通过设置 HideColumnHeaders 属性为 True 来隐藏列标头。也可使用 ColumnClick 事件和 Sorted、SortOrder、SortKey 属性实现当用户单击列标头时对 ListItem 对象或子项目排序的目的。还可通过拖动列标头的右边框到适当的位置来变更列的宽度。
Icon、SmallIcon、Icons、SmallIcons、View 属性示例
本示例将 Biblio.mdb 数据库中 Publishers 表的内容植入 ListView 控件。View 属性选项标注在四个 OptionButton 控件中。还必须将两个 ImageList 控件放置在窗体上：一个包含 Icon 属性的图象，另一个包含每个 ListItem 对象 SmallIcon 属性的图象。要试用此例，请将一个 ListView、一个包含四个 OptionButton 控件的控件数组和两个 ImageList 控件放置在窗体上，并将代码粘贴到窗体的声明部分。注意 必须使用“工具”菜单的“引用”命令添加 Microsoft DAO 3.0 对象库的引用，否则示例无法运行。运行示例并单击 ComboBox 控件来切换视图。Private Sub Option1_Click(Index as Integer)
   '设置 ListView 控件的 View 属性为
   ' Option1 的索引
   ListView1.View = Index
End SubPrivate Sub Form_Load()
   '为 ColumnHeader 对象创建对象变量。
   Dim clmX As ColumnHeader
   '添加 ColumnHeaders。列宽度等于控件的宽度
   '除以 ColumnHeader 对象的数目。
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Company", ListView1.Width / 3)
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Address", ListView1.Width / 3)
   Set clmX = ListView1.ColumnHeaders. _
   Add(, , "Phone", ListView1.Width / 3)
   
   ListView1.BorderStyle = ccFixedSingle '设置 BorderStyle 属性。
   ListView1.View = lvwReport '设置 View 属性为报表型。
   
   '添加一个图象到 ImageList1--图标 ImageList。
   Dim imgX As ListImage
   Set imgX = ImageList1.ListImages. _
   Add(, , LoadPicture("icons\mail\mail01a.ico"))
   '添加一个图象到 ImageList2--小图标 ImageList。
   Set imgX = ImageList2.ListImages. _
   Add(, , LoadPicture("bitmaps\assorted\w.bmp"))
   
   '若要将 ImageList 控件和 ListView 控件一起使用，必须
   '将 Icons 和 SmallIcons 属性
   '与特定的 ImageList 控件关联。
   ListView1.Icons = ImageList1
   ListView1.SmallIcons = ImageList2
   '用 View 选项标注 OptionButton 控件。
      Option1(0).Caption = "Icon"
      Option1(1).Caption = "SmallIcon"
      Option1(2).Caption = "List"
      Option1(3).Caption = "Report"
      ListView1.View = lvwIcon '设置为图标视图
   
   '为数据访问对象创建对象变量。
   Dim myDb As Database, myRs As Recordset
   '设置数据库为 BIBLIO.MDB 数据库。
   Set myDb = DBEngine.Workspaces(0).OpenDatabase("BIBLIO.MDB")
   '设置 recordset 为 Publishers 表。
   Set myRs = myDb.OpenRecordset("Publishers", dbOpenDynaset)
   
   '为添加 ListItem 对象创建变量。
   Dim itmX As ListItem   '若当前记录不是最后一条记录，则添加 ListItem 对象。
   'ListItem 对象的文本使用 Name 字段。
   'ListItem 对象的 SubItem(1) 使用 Address 字段。
   'ListItem 对象的 SubItem(2) 使用 Phone 字段   While Not myRs.EOF
      
      Set itmX = ListView1.ListItems.Add(, , CStr(myRs!Name))
      itmX.Icon = 1   '设置 ImageList1 中的一个图标。
      itmX.SmallIcon = 1   '设置 ImageList2 中的一个图标。      '若 Address 字段不为空，则设置 SubItem 1 为此字段。
      If Not IsNull(myRs!Address) Then
         itmX.SubItems(1) = CStr(myRs!Address) 'Address 字段。
      End If
         
      '若 Phone 字段不为空，则设置 SubItem 2 为此字段。
      If Not IsNull(myRs!Telephone) Then
         itmX.SubItems(2) = myRs!Telephone  'Phone 字段。
      End If
         
      myRs.MoveNext  '移动到下一条记录。
   Wend
End Sub