Hỏi về listbox trong vb6

[MỹHạnhCB]

Em xin chào các anh chị diễn đàn GPE
Như trong Vba thì em trả từ mảng ra listbox thì em dùng : lst_1.list = kq. Thì được.
Nhưng trong VB6 em dùng thì lại báo lỗi ảnh 1.
Em sử dụng additem vào thì nó chỉ vào 1 cột chứ không dàn ngang ra 6 cột như mong muốn ảnh 2
Mục đích em muốn listbox sẽ hiển thị theo thứ tự tên tỉnh, mã tỉnh, tên huyện, mã huyện....
Mong anh chị giúp đỡ ạ. Em xin cám ơn nhiều.

 

[truongvu317]

Listbox trong vba và vb nó khác nhau đó bạn, chuyển listview trong vb có nhiều cái hay hơn trong vb,

 

[Kiều Mạnh]

1/ List của VB6 không hổ trợ Unicode ... muốn dùng thì viết thêm cho nó

2/ Add cái FM20.dll vào mà dùng lisbox của VBA

3/ xem hình đoán chơi chút vậy ... thử hỏi con ChatGPT xem sao ???

 

[ongke0711]

Em xin chào các anh chị diễn đàn GPE
Như trong Vba thì em trả từ mảng ra listbox thì em dùng : lst_1.list = kq. Thì được.
Nhưng trong VB6 em dùng thì lại báo lỗi ảnh 1.
Em sử dụng additem vào thì nó chỉ vào 1 cột chứ không dàn ngang ra 6 cột như mong muốn ảnh 2
Mục đích em muốn listbox sẽ hiển thị theo thứ tự tên tỉnh, mã tỉnh, tên huyện, mã huyện....
Mong anh chị giúp đỡ ạ. Em xin cám ơn nhiều.

Tới thời điểm này thì tại sao bạn không học dùng VB.net luôn đi, nó cũng gần gũi với VBA và hỗ trợ nhiều hơn thay vì cũng mất thời gian nhiêu đó để học VB6.

Dim data As Variant
data = Array(Array("Thanh pho Can Tho", "92", "Huyen Co Do", "925"), Array("Thanh pho Can Tho", "92", "Huyen Cai Rang", "926"))

Dim i As Long
For i = 0 To UBound(data)
    List1.AddItem data(i)(0) & vbTab & data(i)(1) & vbTab & data(i)(2) & vbTab & data(i)(3)
Next i

 

[MỹHạnhCB]

Listbox trong vba và vb nó khác nhau đó bạn, chuyển listview trong vb có nhiều cái hay hơn trong vb,

Vâng em cảm ơn chị nhiều.

Bài đã được tự động gộp: 14/2/23

1/ List của VB6 không hổ trợ Unicode ... muốn dùng thì viết thêm cho nó

2/ Add cái FM20.dll vào mà dùng lisbox của VBA

3/ xem hình đoán chơi chút vậy ... thử hỏi con ChatGPT xem sao ???

vâng em cám ơn anh ạ

Bài đã được tự động gộp: 14/2/23

Tới thời điểm này thì tại sao bạn không học dùng VB.net luôn đi, nó cũng gần gũi với VBA và hỗ trợ nhiều hơn thay vì cũng mất thời gian nhiêu đó để học VB6.

Dim data As Variant
data = Array(Array("Thanh pho Can Tho", "92", "Huyen Co Do", "925"), Array("Thanh pho Can Tho", "92", "Huyen Cai Rang", "926"))

Dim i As Long
For i = 0 To UBound(data)
    List1.AddItem data(i)(0) & vbTab & data(i)(1) & vbTab & data(i)(2) & vbTab & data(i)(3)
Next i

Vâng em cám ơn anh nhiều. Theo chị truongvu317 thì em sử dụng listview được rồi ạ, nhưng thiệt là vb6 không hổ trợ Tiếng Việt. Phải dùng qua bảng mã Vni_windows hơi bất tiện. hihi

 

[Kiều Mạnh]

Vâng em cảm ơn chị nhiều.

Bài đã được tự động gộp: 14/2/23

vâng em cám ơn anh ạ

Bài đã được tự động gộp: 14/2/23

Vâng em cám ơn anh nhiều. Theo chị truongvu317 thì em sử dụng listview được rồi ạ, nhưng thiệt là vb6 không hổ trợ Tiếng Việt. Phải dùng qua bảng mã Vni_windows hơi bất tiện. hihi

Add FM20.dll vào mà dùng như trên VBA vì nó là của Office



Tôi vẫn đang dùng VB6 để học code ... Tuy nhiên nó quá Ọp ẹp các kiểu ... Từng bước bỏ nó được rồi

Vừa rồi Tôi viết cái TaskPane phải quay lại VB6 để tìm ra nguyên lý và phương thức hoạt động của nó

Vì lý do trên nên tôi vẫn duy trì nó khi cần sẽ làm lại như thế

 

[MỹHạnhCB]

Add FM20.dll vào mà dùng như trên VBA vì nó là của Office

View attachment 286494

Tôi vẫn đang dùng VB6 để học code ... Tuy nhiên nó quá Ọp ẹp các kiểu ... Từng bước bỏ nó được rồi

Vừa rồi Tôi viết cái TaskPane phải quay lại VB6 để tìm ra nguyên lý và phương thức hoạt động của nó

Vì lý do trên nên tôi vẫn duy trì nó khi cần sẽ làm lại như thế

Vâng em cám ơn anh.