không hiện thanh cuộn ngang của combobox trên userform

[NguyenthiH]

Em có tạo combobox trên form nhập liệu, combobox có listwidth là 54, và list chỉ có hai dòng "N4:N5" thế mà sao khi forcus lại hiện thanh cuộn ngang, mong các anh chị giúp đỡ làm mất thanh cuộn ngang dùm em.

 

[NguyenthiH]

Ca này khó quá hả các anh chị?

 

[batman1]

Em có tạo combobox trên form nhập liệu, combobox có listwidth là 54, và list chỉ có hai dòng "N4:N5" thế mà sao khi forcus lại hiện thanh cuộn ngang,

Nếu tôi không lầm thì: Khi ListWidth < 72 (Width tùy ý) thì sẽ có thanh cuộn ngang. Khi ListWidth >= 72 thì không có thanh cuộn ngang.

 

[NguyenthiH]

Sao em có combobox có listwidth = "58" mà không có thanh cuộn ngang Thầy ơi!, mà em cũng xem trong properties của 2 combobox luôn, không thấy khác nhau.

 

[NguyenthiH]

cái combobox đó đây ạ.

 

[be_09]

Em có tạo combobox trên form nhập liệu, combobox có listwidth là 54, và list chỉ có hai dòng "N4:N5" thế mà sao khi forcus lại hiện thanh cuộn ngang, mong các anh chị giúp đỡ làm mất thanh cuộn ngang dùm em.View attachment 218734

Thử cho ListWidth =0

 

[batman1]

Thế thì thử thiết lập ComlumnWidths <= 54 (72 chắc là mặc định) xem.

Tức nếu không thiết lập ComlumnWidths thì ListWidth >= 72, nếu thiết lập ComlumnWidths thì thiết lập ComlumnWidths <= ListWidth.

Thử xem

 

[NguyenthiH]

nếu em chỉnh listwidth = 0, thì không có thanh cuộn ngang, nhưng xổ ra lại không vừa khít.

Bài đã được tự động gộp: 7/6/19

Oh! đúng rồi Thầy @batman1 ơi. Em chỉnh như Thầy chỉ thì đúng ý rồi ạ.

Private Sub UserForm_Initialize()
Dim hWnd As Long, dw As Long
  dw = &H84080080
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, dw
  Me.Height = Me.Height + 1: Me.Height = Me.Height - 18
With cb_DVT
        .ColumnCount = 1
        .ListWidth = "54"
        .ColumnWidths = "54"
        .List = Sheet2.[M4:M5].Value
End With
With cb_Nhom
        .ColumnCount = 1
        .ListWidth = "42"
        .ColumnWidths = "42"
        .List = Sheet2.[N4:N5].Value
End With
With ListBox1
        .ColumnCount = 8
        .ColumnWidths = "20;70;125;95;50;66;40;96"
End With
End Sub

 

[batman1]

Để đẹp tới từng li một thì thử: Width = 54, ColumnWidths = ListWidth = 51 (52?)