Ẩn cột trên Listview ( Listview những cột không liền nhau).

[thanhnhanubnd]

Mình có 1 listview gồm 6 cột ( A-->F),

Mình xin hỏi có code nào làm ẩn/hiện cột D,E - tương ứng cột 4,5 trên listview .

Tức là, lúc cần chi tiết thì hiện cả 6 cột, lúc không cần chỉ hiện thị 4 cột A,B,C, F không liền nhau ,

Thank.

 

[sealand]

Đơn giản nhất bạn viết Code cho độ rộng các cột cần ẩn bằng 0 là nó biến liền.

 

[thuyyeu99]

Mình có 1 listview gồm 6 cột ( A-->F),

Mình xin hỏi có code nào làm ẩn/hiện cột D,E - tương ứng cột 4,5 trên listview .

Tức là, lúc cần chi tiết thì hiện cả 6 cột, lúc không cần chỉ hiện thị 4 cột A,B,C, F không liền nhau ,

Thank.

bạn làm theo cách của anh seland là đơn giản nhe nhàng nhất.

còn không bạn tham khảo.
http://www.giaiphapexcel.com/forum/showthread.php?t=18927

 

[thanhnhanubnd]

Vào custom của litsview thì ok. Còn code thì...bạn gợi y dùm vài đoạn code nhé, thank.

 

[tedaynui]

Vào custom của litsview thì ok. Còn code thì...bạn gợi y dùm vài đoạn code nhé, thank.

Ví dụ bạn muốn ẩn cột 4 và 7

With frmMain.ListView
        .ColumnHeaders(4).Width = 0
        .ColumnHeaders(7).Width = 0
End With

Bạn thử xem
TDN

 

[thanhnhanubnd]

Mình dùm checkbox để resize, tuy nhiên khi không chọn thì nó không trở lại ban đầu
Private Sub CheckBox1_Change()
With UserForm1.ListView1
.ColumnHeaders(4).Width = 0 ' 110
.ColumnHeaders(5).Width = 0 ' 110
End With

 

[thuyyeu99]

Mình dùm checkbox để resize, tuy nhiên khi không chọn thì nó không trở lại ban đầu
Private Sub CheckBox1_Change()
With UserForm1.ListView1
.ColumnHeaders(4).Width = 0 ' 110
.ColumnHeaders(5).Width = 0 ' 110
End With

thì bạn dùng thêm sự kiện change của CheckBox2 hay có thể bạn dùng control khac cũng được cho nó mặc định như cũ.

 

[tedaynui]

Mình dùm checkbox để resize, tuy nhiên khi không chọn thì nó không trở lại ban đầu
Private Sub CheckBox1_Change()
With UserForm1.ListView1
.ColumnHeaders(4).Width = 0 ' 110
.ColumnHeaders(5).Width = 0 ' 110
End With

Bạn thử thế này xem

Private Sub CheckBox1_Change()
if Checkbox1 then
    With UserForm1.ListView1
        .ColumnHeaders(4).Width = 0 
        .ColumnHeaders(5).Width = 0 
End With
else
    With UserForm1.ListView1
         .ColumnHeaders(4).Width =  110
         .ColumnHeaders(5).Width =  110
 End With
End If
End Sub

 

[thanhnhanubnd]

Tuyệt vời.Thank nhiều lắm..