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，完美；