⑴ 在VB语言中ListView控件的属性和方法有哪些
属性：Sorted，BackColor，Checkboxes，BorderStyle，hWnd，Enabled等
方法：SelectedItem，FindItem，Move，Refresh，SetFocus等
常用的可参考如下实例：
ListView1.View=lvwReport
ListView1.ColumnHeaders.Add1,"Id","",700
ListView1.ColumnHeaders.Add2,"Title","标题",1300
ListView1.ColumnHeaders.Add3,"Hwnd","句柄",900
ListView1.ColumnHeaders.Add4,"Infms","信息",2600
ListView1.Sorted=True
ListView1.Checkboxes=True
PrivatelAsListItem
Setl=ListView1.ListItems.Add(1,"",Str(ListView1.ListItems.count+1))
l.SubItems(1)="标题1"
l.SubItems(2)="标题1"
l.SubItems(3)="标题3"
printListView1.ListItems(1).SubItems(1)
LV.ListItems.Clear
⑵ VB ListView 用法
先定义ListView1的多列，如：
With ListView1
.ColumnHeaders.clear
.ColumnHeaders.Add , , "操作时间", 3000
.ColumnHeaders.Add , , "操作内容", 3000
end with
然后再赋每行值：
Dim lvwItem As ListItem
Set lvwItem = lsvUpPort.ListItems.Add ...... '操作时间
lvwItem.SubItems(1) = ....... '操作内容
⑶ listview在vb中的用法
ListView1.View = View.SmallIcon
ListView1.View = View.Details
ListView1.View = View.LargeIcon
ListView1.View = View.List
⑷ VB中listview的用法
文本文件 1.txt
里面内容是:
李佳
22
文秘
13655555555
张奇
24
经理
13755555555
张佳
22
135555555
Public Sub LVrefresh(Optional ByVal StandardType As Boolean)
Dim intRow As Integer, strTemp As String
Dim fileNo As Integer, fileName As String
Dim Fp As New FileSystemObject
Dim strTs As TextStream
Dim ListItemTemp As ListItem
On Error Resume Next
fileNo = FreeFile
With ListView1
.ColumnHeaders.Clear
.ListItems.Clear
.ColumnHeaders.Add , , "姓名"
.ColumnHeaders(1).Width = 1200
.ColumnHeaders.Add , , "年龄"
.ColumnHeaders(2).Width = 900
.ColumnHeaders.Add , , "职位"
.ColumnHeaders(3).Width = 2000
.ColumnHeaders.Add , , "联系电话"
.ColumnHeaders(4).Alignment = lvwColumnLeft
.ColumnHeaders(4).Width = 2000
intRow = 1
fileName = IIf(Left(App.Path, 1) = "\", App.Path & "1.txt", App.Path & "\1.txt")
Set strTs = Fp.OpenTextFile(fileName)
strTemp = strTs.ReadLine
Do While Err.Number = 0
If intRow = 1 Then
Set ListItemTemp = .ListItems.Add(, , strTemp)
Else
ListItemTemp.SubItems(intRow - 1) = strTemp
End If
If intRow = 4 Then
intRow = 1
Else
intRow = intRow + 1
End If
strTemp = strTs.ReadLine
Loop
End With
End Sub
Private Sub Command1_Click()
LVrefresh
End Sub
⑸ VB listview用法
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
LV1.View = lvwReport
LV1.ColumnHeaders.Add , , "序号"
LV1.ColumnHeaders.Add , , "时间"
LV1.ColumnHeaders.Add , , "日期"
LV1.ColumnHeaders.Add , , "备注"
LV1.ListItems.Add , , "1"
LV1.ListItems(1).SubItems(1) = "00:00:00"
LV1.ListItems(1).SubItems(2) = "2008-01-01"
LV1.ListItems(1).SubItems(3) = "(无)"
LV1.ListItems.Add , , "2"
LV1.ListItems(2).SubItems(1) = "00:00:01"
LV1.ListItems(2).SubItems(2) = "2008-01-01"
LV1.ListItems(2).SubItems(3) = "(无)"
End Sub
⑹ VB NET中ListView的相关操作
1.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
With ListView1
.Clear()
.View = View.Details
.FullRowSelect = True
.Columns.Add("编号", 30)
.Columns.Add("名称", 50)
.Columns.Add("数量", 40)
.Columns.Add("日期", 100)
End With
Dim itm As ListViewItem = ListView1.Items.Add("001")
itm.SubItems.AddRange({"钢笔", "500", "2012-9-15"})
itm = ListView1.Items.Add("002")
itm.SubItems.AddRange({"铅笔", "1000", "2012-9-17"})
itm = ListView1.Items.Add("003")
itm.SubItems.AddRange({"圆珠笔", "200", "2012-9-20"})
End Sub
2. 将铅笔的数量从1000改为800：
ListView1.Items.Item(1).SubItems(2).Text = "800"
删除铅笔这一项：
ListView1.Items.Item(1).Remove()
3. 以上代码创建的列表本来就不能在网格中编辑
⑺ vb 中 listview 的用法
可以以数组下标访问。ListView.Items[i].text;
//增加
i := ListView1.Items.Count;
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:= IntToStr(i);
ListItem.SubItems.Add('第 '+IntToStr(i)+' 行');
ListItem.SubItems.Add('第三列内容');
end;
//按标题删除
for i:=ListView1.Items.Count-1 downto 0 Do
if ListView1.Items[i].Caption = Edit1.Text then
begin
ListView1.Items.Item[i].Delete(); //删除当前选中行
end;
//选中一行
if ListView1.Selected <> nil then
Edit1.Text := ListView1.Selected.Caption;
// listview1.Items[Listview1.Items.Count -1].Selected := True;
// listview1.Items[Listview1.Items.Count -1].MakeVisible(True);
procere TForm1.Button2Click(Sender: TObject); // 选择第一条
begin
listview1.SetFocus;
listview1.Items[0].Selected := True;
end;
procere TForm1.Button1Click(Sender: TObject); // 选择最后一条
begin
listview1.SetFocus;
listview1.Items[Listview1.Items.Count -1].Selected := True;
end;
//这是个通用的过程
procere ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean);
var
DestItem : TListItem;
begin
if (Item = nil) or
((Item.Index - 1 < 0) and MoveUp) or
((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))
then Exit;
lv.Items.BeginUpdate;
try
if MoveUp then
DestItem := lv.Items.Insert(Item.Index - 1)
else
DestItem := lv.Items.Insert(Item.Index + 2);
DestItem.Assign(Item);
lv.Selected := DestItem;
Item.Free;
finally
lv.Items.EndUpdate;
end;
if SetFocus then lv.SetFocus;
DestItem.MakeVisible(False);
end;
//此为调用过程，可以任意指定要移动的Item，下面是当前(Selected)Item
ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//上移
ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//下移
TListView组件使用方法
引用CommCtrl单元
procere TForm1.Button1Click(Sender: TObject);
begin
ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始
end;
用LISTVIEW显示表中的信息：
procere viewchange(listv:tlistview;table:tcustomadodataset;var i:integer);
begin
tlistview(listv).Items.BeginUpdate; {listv:listview名}
try
tlistview(listv).Items.Clear;
with table do {table or query名}
begin
active:=true;
first;
while not eof do
begin
listitem:=tlistview(listv).Items.add;
listitem.Caption:=trim(table.fields[i].asstring);
// listitem.ImageIndex:=8;
next;
end;
end;
finally
tlistview(listv).Items.EndUpdate;
end;
end;
ListView使用中的一些要点。以下以一个两列的ListView为例。
→增加一行：
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:='第一列内容';
ListItem.SubItems.Add('第二列内容');
end;
→清空ListView1：
ListView1.Items.Clear;
→得到当前被选中行的行的行号以及删除当前行：
For i:=0 to ListView1.Items.Count-1 Do
If ListView1.Items[i].Selected then //i=ListView1.Selected.index
begin
ListView1.Items.Delete(i); //删除当前选中行
end;
当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。
→读某行某列的操作：
Edit1.Text := listview1.Items[i].Caption; //读第i行第1列
Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列
Edit3.Text := listview1.Items[i].SubItems.strings[1]; //读第i行第3列
以次类推，可以用循环读出整列。
→将焦点上移一行：
For i:=0 to ListView1.Items.Count-1 Do
If (ListView1.Items[i].Selected) and (i>0) then
begin
ListView1.SetFocus;
ListView1.Items.Item[i-1].Selected := True;
end;
不过在Delphi6中，ListView多了一个ItemIndex属性，所以只要
ListView1.SetFocus;
ListView1.ItemIndex:=3;
就能设定焦点了。
⑻ VB6.0 listview有关的几个用法
View设置或返回控件的视图类型
值 说明
1-LvwIcon 图标类型
2-LvwSmallIcon 小图标类型
3-LvwList 列表类型
4-LvwReport 报表类型
Arrange 设置后返回控件的图标排列方式(在图标视图下有效)
值 说明
1-LvwNone 不排列
2-LvwAutoLeft 自动靠右排列
3-LvwAutoTop 自动靠左排列
Icons、 SmallIcons、 ColumnHeaderIcons属性
Icons指定图标视图时的图标与ImageList的绑定
SmallIcons、 ColumnHeaderIcons指定列表视图时的图标与ImageList的绑定
PICTURE、PictureAlignment属性
分别指定ListView控件的背景图片和布局方式
ListItems(Index) 属性
ListItems 属性是ListView控件中列表项的集合。Index用于指定列表项集合中的一个对象，
我们可以把这个对象看作对一行的引用
ListItems集合的属性
1. Text 设置或返回显示文本
2. key 关键字
3. index 索引编号
4. icon , smallicon 不同视图时显示单元格的图标
5. checked 给checkboxes 打√
6. selected 使处于选定状态
7. ListSubitems（index） 集合 我们可以把这个集合看作对这行中单元格的引用
Text 设置或返回单元格显示的内容
Reporticon 设置单元格的图标
8． Subitems(index) 设置或返回单元格文本 == ListSubitems（index）.text
ColumnHeaders(index) 属性
ColumnHeaders 属性是ListView控件中列标头的集合
1. text 显示标题文本
2. key
3. index
4. icon 指定标题图标
5. alignment 指定index列的对齐方式 （注意：第一列也就是列表项不能指定）
6. position 返回当前列的索引
7. subitemindex 返回指定列的listsubitem索引
TextBackgroud 属性
决定text的背景是透明还是ListView的背景色
值 0 lvwTransparent 透明
1 lvw 不透明（用listview的背景色）
Ghosted 属性 logic
决定是否虚状
HideColumnHeaders 属性
隐藏表头
LabelWrap 属性
标签转行 View.LargeIcon 或 View.SmallIcon 时才使用该属性
FullRowSelect
整行显示
HotTracking
热点追踪 鼠标指针自动调整为手型
HoverSelection 属性
自动聚焦 鼠标指针自动调整为手型
AllowColumnReorder属性
值设置.t.时，用户可以用鼠标选中1列拖至其他地方进行重新排列
Sorted属性
看懂这些就行了。
⑼ VB中LISTVIEW的用法
数据库中的数据用ado取
dim rs as new adodb.recordset
rs.open sql,cnn
dim cols as integer ,col as integer
cols=rs.fields.count
do until rs.eof
dim itm as new listviewitem
itm.text=rs(0)
for col = 1 to cols-1
itm.subitems(col)=rs(col) & ""
next
listview1.items.add itm
rs.movenext
loop
rs.close
⑽ VB中关于listview控件的用法
Dim S as Integer
If ListView1.ListItems.Count > 0 Then '诺ListView1的行数多余0
For i = 1 to ListView1.ListItems.Count
S = S + ListView1.ListItems(i).ListSubItems(1).Text
Next i
End If
Msgbox S