自动调整列表框的列宽

我使用下面的代码以编程方式将数据库中的元素添加到多列列表框中：

Do While (Not rs.EOF) ExistingSheetsListBox.AddItem ExistingSheetsListBox.List(i, 0) = rs.Fields(0) ExistingSheetsListBox.List(i, 1) = rs.Fields(1) ExistingSheetsListBox.List(i, 2) = rs.Fields(2) ExistingSheetsListBox.List(i, 3) = rs.Fields(3) ExistingSheetsListBox.List(i, 4) = rs.Fields(4) i = i + 1 rs.MoveNext Loop 

在列表框中的插入工作正常，但列宽并不总是适应插入其中的元素的长度，我想知道我可以这样做，使每列的列宽适应插入的文本它。

编辑 ：我使用@Excel Developers提出的解决scheme与@HarveyFrench给出的一段代码。

Answer 1

您可以使用ColumnWidths属性来设置列的大小。

例如`ExistingSheetsListBox.ColumnWidths =“60; 60; 160; 160; 60”

欲了解更多信息请点击这里

我还没有find自动设置宽度取决于每个列中的数据，我很确定这种方法不存在。