⑴ 在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