vb.net Listbox控件橫軸的進度條問題

RT，直接上内容：

網絡上查找了很久，還是MSDN比較給力，感謝大牛的指引，以下方式挺好用的；

Listbox.HorizontalScrollbar = "True"
Listbox.IntegralHeight = True
for i=0 to listbox.items.count-1
    Dim len As Integer=Val(Listbox.CreateGraphics().MeasureString(Listbox.Items(i).ToString(), .Font).ToString)
next
If neirongchangdu < len Then
   neirongchangdu = len
End If
Listbox.HorizontalExtent = neirongchangdu + 20
           

這樣就可以加載橫軸坐标了；

微軟的介紹網址如下，大家也可以參考原文：

https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.listbox.horizontalextent?redirectedfrom=MSDN&view=netframework-4.8#System_Windows_Forms_ListBox_HorizontalExtent

效果如圖：

OK，完美；