以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]LISTBOX控件某条内容有点长，看不到怎么办？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106901)
--  作者：小美菜
--  发布时间：2017/9/17 22:45:00
--  [求助]LISTBOX控件某条内容有点长，看不到怎么办？
如题
--  作者：有点甜
--  发布时间：2017/9/17 23:28:00
--  

加上横向滚动条

 

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

\'修改

o.HorizontalExtent = 1000

[此贴子已经被作者于2017/9/20 11:50:12编辑过]
--  作者：小美菜
--  发布时间：2017/9/19 19:49:00
--  语句是否有错,我按此法,无作用
语句是否有错,我按此法,无作用
--  作者：有点蓝
--  发布时间：2017/9/19 20:46:00
--  
测试了一下，确实不行。
--  作者：小美菜
--  发布时间：2017/9/19 22:17:00
--  怎么办?老师
怎么办?老师,说明文档也无相关说明
--  作者：有点蓝
--  发布时间：2017/9/19 22:26:00
--  
没有找到办法
--  作者：有点甜
--  发布时间：2017/9/20 11:38:00
--  

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

[此贴子已经被作者于2017/9/20 11:38:15编辑过]