無法更改動態添加列表框的尺寸

我一直在尋找幾個小時，我希望有人能幫助我。無法更改動態添加列表框的尺寸

我在vba中創建一個表單，我想動態添加Listboxes。列表框被添加，所以按計劃進行。但是，我似乎無法改變列表框的寬度和高度。所有其他事情正在改變。這是我的代碼：

Dim lb As MSForms.ListBox 
Set lb = Me.controls.add("Forms.Listbox.1") 
With lb 
    .ColumnCount = 4 
    .Left = 180 
    .Top = 16 
    .MultiSelect = 1 
    .Height = 270 
    .Width = 665 
End with

我注意到的另一件事是Heigth和Width不在ListBox的屬性列表中。難道是我使用錯誤的ListBox類型？

編輯：它變得陌生。當我逐行瀏覽代碼時，它正常工作，ListBox的大小與我想要的一樣。

來源

2015-08-28 Alex de Jong

代碼看起來不錯。我創建了一個表單，它從幾個組合框中獲取高度和寬度，並將這些維度發送到編輯後的代碼副本。更新後，您是否嘗試添加Me.Repaint？ – MiguelH

Me.Repaint沒有工作，但是通過逐行代碼似乎工作。 –

ListBox創建後是否還有其他事情發生？ – MiguelH

嘗試，這可能是

Me.Controls（「Forms.Listbox.1」）。IntegralHeight =假或 lb.IntegralHeight =假

來源

2017-04-04 13:13:09 Gromit

無法更改動態添加列表框的尺寸

回答

相關問題