VB ListView VS GridView

hooi1983

VB6 和 VB2005 的 ListView & GridView 有什么分别？
什么场合下比较适合用 ListView (和 GridView)?

我在 VB6 都是用 ListView，因为觉得 VB6 的 ListView 和 GridView 没多大分别
不过在 VB2005 看到 GridView 可以像 Excel 般在  table 直接修改,做法比 VB6 简单很多
不懂 ListView 可以不可以？

在 VB6 的 ListView 我可以做到酱，不过是移动 textbox 到 ListView,要用到 API，比较多 coding
VB6 GridView 的做法也是一样，不过就比较简单一点，不用动用到 API
（可能有更简单的方法，只是我不会）

我比较喜欢用 ListView 因为可以 format data。
GridView 的 data 可以 format 的吗？

城之内

原帖由 hooi1983 于 2-1-2007 03:12 PM 发表
VB6 和 VB2005 的 ListView & GridView 有什么分别？
什么场合下比较适合用 ListView (和 GridView)?

我在 VB6 都是用 ListView，因为觉得 VB6 的 ListView 和 GridView 没多大分别
不过在 VB2005 看到 ...

可以教我怎样用listview吗？

hooi1983

原帖由 城之内 于 2-1-2007 08:36 PM 发表


可以教我怎样用listview吗？

你要用 VB6 还是 .Net?

城之内

原帖由 hooi1983 于 3-1-2007 01:41 PM 发表


你要用 VB6 还是 .Net?

VB6。我找了网上的sample可是看不懂。我想知道它是怎样从database放资料去listview,然后怎样加checkbox.

hooi1983

Step 1: 将 ListView component 加到 VB tools
去 Projects -> Components -> Controls 打勾 Microsoft Windows Conmmon Controls 6.0
接下来会看到在左边的 tools 有 ListView
把它放在你的 Form，然后取一个名字 lvwXXXX

Step 2: 设定 ListView
去 coding 那儿，在 form load event assign 你的 ListView

1. Private Sub Form_Load()
   
2. 
   
3.   With Me.lvwMain
   
4. 
   
5.     .MultiSelect = False
   
6. 
   
7.     .FullRowSelect = True
   
8. 
   
9.     .GridLines = True
   
10. 
    
11.     .LabelEdit = lvwManual
    
12. 
    
13.     .View = lvwReport
    
14. 
    
15.   End With
    
16. 
    
17. 
    
18.   BindListView
    
19.   LoadListView
    
20. 
    
21. End Sub

复制代码

如果要加 check box 就 set lvwMain.Checkboxes=True
BindListView 是设定 ListView 的 ColumnHeaders
LoadListView 是从 database 拿 data 放进 ListView

Step 3: 设定 ListView 的 ColumnHeaders

1. Private Sub BindListView()
   
2. 
   
3.   With Me.lvwMain
   
4. 
   
5.     .ColumnHeaders.Clear
   
6. 
   
7.     .ColumnHeaders.Add , , "No", 600
   
8. 
   
9.     .ColumnHeaders.Add , , "Code", 1000
   
10. 
    
11.     .ColumnHeaders.Add , , "Name", 2000
    
12. 
    
13.     .ColumnHeaders.Add , , "Tel", 1500
    
14. 
    
15.     .ColumnHeaders.Add , , "PV", 1000, 1
    
16. 
    
17.   End With
    
18. 
    
19. End Sub

复制代码

Step 4: 从 database 放 data 进 ListView

1. Private Sub LoadListView()
   
2. 
   
3.   Dim objListItem As ListItem '用这个会比较方便
   
4. 
   
5.   Dim i As Integer
   
6. 
   
7.   i = 1
   
8. 
   
9.   
   
10. 
    
11.   Me.lvwMain.ListItems.Clear
    
12. 
    
13. 
    
14. 
    
15.   RS.Open "usp_select_customers" '和 SELECT statement 一样，只不过这是用 stored procedure
    
16. 
    
17. 
    
18. 
    
19.   While Not RS.EOF
    
20. 
    
21.     Set objListItem = Me.lvwMain.ListItems.Add(, , i)
    
22. 
    
23.     objListItem.SubItems(1) = RS("customer_no")
    
24. 
    
25.     objListItem.SubItems(2) = RS("customer_name")
    
26. 
    
27.     objListItem.SubItems(3) = RS("customer_phone_no")
    
28. 
    
29.     objListItem.SubItems(4) = RS("customer_pv")
    
30. 
    
31.     objListItem.Tag = RS("customer_id")
    
32. 
    
33.     i = i + 1
    
34. 
    
35.     RS.MoveNext
    
36. 
    
37.   Wend
    
38. 
    
39. 
    
40. 
    
41.   Set objListItem = Nothing
    
42. 
    
43.   RS.Close
    
44. 
    
45. End Sub

复制代码

Step 5: 从 Double Click ListView event 拿到 ID

1. Private Sub lvwMain_DblClick()
   
2. 
   
3.   If Me.lvwMain.ListItems.Count < 1 Then Exit Sub
   
4. 
   
5.   Field_ID = Me.lvwMain.ListItems(Me.lvwMain.SelectedItem.Index).Tag
   
6. 
   
7. End Sub

复制代码

CheckBox 的 ListView 多了 ItemCheck 的 event。例如

1. Private Sub lvwMain_ItemCheck(ByVal Item As MSComctlLib.ListItem)
   
2. 
   
3.   'checked 后要 update 什么
   
4. 
   
5. End Sub

复制代码

ListView 如果当按 ColumnHeader 时要 sort data 就加

1. Private Sub lvwMain_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   
2. 
   
3.   With lvwMain
   
4. 
   
5.     .Sorted = True
   
6. 
   
7.     .SortKey = ColumnHeader.Index - 1
   
8. 
   
9.     .SortOrder = IIf(blnSort, lvwAscending, lvwDescending) 'blnSort 用来决定顺序和逆序
   
10. 
    
11.     blnSort = IIf(blnSort, 0, 1)
    
12. 
    
13.     .Sorted = False
    
14. 
    
15.   End With
    
16. 
    
17. End Sub

复制代码

* 此 Sort 法适合用在 string 而已。如果 sort integer/float 或 date 将会照着 string 的排法来 sort，所以如果 sort integer/float 或 date 就要写 procedure

* 如果要将 ColumnHeader 弄成不能 click 就要用到 API

城之内

原帖由 hooi1983 于 4-1-2007 12:16 PM 发表
Step 1: 将 ListView component 加到 VB tools
去 Projects -> Components -> Controls 打勾 Microsoft Windows Conmmon Controls 6.0
接下来会看到在左边的 tools 有 ListView
把它放在你的 Form，然 ...

谢谢你！如果有什么不明白我可以问你吗？对不起哦，你开的帖还要麻烦你。。。

hooi1983

原帖由 <i>城之内</i> 于 4-1-2007 08:20 PM 发表<br />

<br />

<br />
谢谢你！如果有什么不明白我可以问你吗？对不起哦，你开的帖还要麻烦你。。。

<br />

不用客气

城之内

请问 objListItem.Tag = RS("customer_id") 是要来做什么的?

有办法做一个一半checkbox一半没checkbox的吗?

怎样format data?

[ 本帖最后由 城之内 于 5-1-2007 11:35 AM 编辑 ]

hooi1983

我用 ListView 的 Tag 来收 record 的 ID
当我选 ListItem 的时候，拿它的 Tag 就可拿到 record 的 ID

如果你要 list 的 data 是 currency，就用 FormatNumber(rs("Price"),2)
那就会 show 1.00, 1.23, 56.78 ...后面会有两个小数点
我不懂这称为 Format Data 吗？

一半 checkbox 我就不会了

fxam

* 如果要将 ColumnHeader 弄成不能 click 就要用到 API

可以將 ListView.HeaderStyle 設成 NonClickable

GridView 的 data 可以 format 的吗？

用.NET 2.0新的DataGridView (不是DataGrid)，有多樣化的format選項。

[ 本帖最后由 fxam 于 6-1-2007 01:32 PM 编辑 ]

hooi1983

原帖由 fxam 于 6-1-2007 01:28 PM 发表

可以將 ListView.HeaderStyle 設成 NonClickable

以上那个 ListView 是 VB6 的，没有 ListView.HeaderStyle

原帖由 城之内 于 3-1-2007 09:21 PM 发表

[quote]原帖由 hooi1983 于 3-1-2007 01:41 PM 发表

你要用 VB6 还是 .Net?

VB6。我找了网上的sample可是看不懂。我想知道它是怎样从database放资料去listview,然后怎样加checkbox.
[/quote]