如何在listbox控件中产生水平滚动条

leonzhou 2000-07-21 05:53:00
由于在listbox中一些item过长,而不能在listbox中显示完整,如何在listbox控件中产生水平滚动条,这样就能拉动滚动条显示完整item
...全文
187 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
FBStudio 2000-07-21
  • 打赏
  • 举报
回复
首先listbox要有WS_HSCROLL风格,如VB中没有相应的设置,可调用WIN32API SetWindowLong设置风格,然后按Un1所说的方法做就可以了。
const GWL_STYLE as long=-16
const WS_HSCROLL as long=&h100000
dim lstyle as long
dim t as long
lstyle=GetWindowLong(list1.hwnd,GWL_STYLE)
t=lstyle/WS_HSCROLL
if t/2*2=t then SetWindowLong list1.hwnd,GWL_STYLE,lstyle+WS_HSCROLL

Un1例子中的300是item的宽度(单位是像素),如list1.Width(假设单位也是像素)<300,将产生水平滚动条,反之将隐藏水平滚动条.
Un1 2000-07-21
  • 打赏
  • 举报
回复
const LB_SETHORIZONTALEXTENT as long = &h194
sendmessage list1.hwnd, LB_SETHORIZONTALEXTENT, 300, byval 0
  • 打赏
  • 举报
回复
关注!
alphafox 2000-07-21
  • 打赏
  • 举报
回复
用WIN32API中的SENDMESSAGE函数给该LISTBOX发消息即可。

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧