主题：[求助]LISTBOX控件某条内容有点长，看不到怎么办？

加上横向滚动条

Dim o = Forms("窗口1").Controls("ListBox1").basecontrol
o.HorizontalScrollbar =  True

'修改

o.HorizontalExtent = 1000

mark listbox横向滚动条

Dim o = Forms("窗口1").Controls("ListBox1").basecontrol
o.HorizontalScrollbar = True
o.HorizontalExtent = 1000

设置的数值可以这样计算

Dim o = Forms("窗口1").Controls("ListBox1").basecontrol
o.HorizontalScrollbar = True
Dim max As String = ""
For Each s As String In o.items
    If s.length > max.length Then
        max = s
    End If
Next
Dim gc As Graphics = BaseMainform.CreateGraphics()
Dim size As SizeF = gc.MeasureString(max, o.Font)
o.HorizontalExtent = size.width