Trong VBA có lệnh tạo listview không?

[manhhung12]

Khi tạo form trong hộp Toolbox không có Listview (mặc dù có class listview trong object browser) do đó không kéo thả control này vào form được. Vậy các bạn cho hỏi có lệnh nào để tạo 1 listview cho form không.
Chẳng hạn

Dim lsDsach as ....
lsDsach = creatlistview
'Sau đó gán các thuộc tính và phương thức cho nó như sau:
lsDsach.caption="Dây là listview"
lsDsach.additem
.....

Các bạn giúp đỡ.

 

[sealand]

Không được rồi, trong VBA sử dụng phương thức Add . Chỉ Add các Control sau

CheckBox ; ComboBox; CommandButton ; Frame ; Image ; Label ; ListBox ; MultiPage;OptionButton ; ScrollBar ; SpinButton ; TabStrip ; TextBox ; ToggleButton

 

[binhht79]

Cho mình hỏi tý.
Muốn tạo listview trong VBA thì mình tạo bằng cách nào?
Có sẵn một listview rồi; mình muốn sửa nội dung thì sửa bằng cách nào?

 

[sealand]

Thêm Listview vào Form có 2 trường hợp:
1/Thêm khi thiết kế Form:
-Dùng công cụ Toolbox: Đây là cách dễ và thường dùng nhất.
-Dùng câu lệnh như phần Runtime.
2/Thêm khi Form đang hoạt động (Runtime) .Mình đã kiểm tra mặc dù phương thức Add không liệt kê Listview nhưng vẫn Add được.

Dùng câu lệnh như sau

Dim Lv As ListView
Set Lv = Me.Controls.Add("MSComctlLib.ListViewCtrl.2", "LVSea")

Trong đó, "LVSea" là tên của Listview tuỳ theo ý bạn. Sau đó căn cứ thuộc tính và phương thức mà tuỳ chỉnh theo ý mình.


Nếu trên Form đã có Listview thì dựa vào Properties và Method của nó để sửa.