说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在ListBox适当设定水平滚动条的宽度-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
在ListBox适当设定水平滚动条的宽度-VB资料
作者:李志东
Option Explicit
Private Const LB_SETHORIZONTALEXTENT = &H194
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
Dim max As Long, f As Font, i As Integer

Me.ScaleMode = vbPixels
Set f = Me.Font
Set Me.Font = List1.Font

With List1
For i = 0 To .ListCount
If Me.TextWidth(.List(i)) > max Then
max = Me.TextWidth(.List(i))
End If
Next
End With
max = max + 10

Set Me.Font = f

SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, max, ByVal 0&
End Sub

Private Sub Form_Load()
List1.AddItem "VB编程乐园"
List1.AddItem "http://vbboshi.126.com"
List1.AddItem "这是一个特别特别长的选项,长到超过ListBox的范围"
End Sub
OCP黑客马拉松冠军:24小时头脑风暴背后 新时代应用程序设计及MongoDB的十个深入理解 借助“开源”东风 英特尔打造卓越“软实力” 深圳综合交通设计研究院张鹍鹏:智能交通设备领域已成红海 信息化是发展趋势 25个可遇不可求的jQuery插件 Web设计中对视差设计的误区 直接拿来用,九个超实用的PHP代码片段(二) 一周消息树:小米染指平板电脑凶多吉少 移动周报:Xcode 5.1更新、CarPlay揭秘,Apple很忙 可穿戴领域,创业公司的掘金点?还是滑铁卢? 搜狐SendCloud2014运维技术沙龙拉开帷幕 一周热点:选择Go语言的12个理由,九头蛇与大象之争 中国云计算大会PPT集萃(二):十位技术大牛分享平台打造技术 延迟250毫秒损失数百万美元,Hadoop系统该如何应对实时任务 IBM成立展示中心扩展大型主机的Linux开放生态系统 SDN解决方案总结:OpenFlow、虚拟机、OpenStack和VXLAN/NVGRE 第六届中国云计算大会将于5月20-23日在京隆重召开 大数据实战:站在JMP分析平台上的FIT足迹识别技术 首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 买Windows平板而非iPad或Android的十大理由 Framework7:不会Objective-C,也能开发iOS7应用 CocoaChina开发者大会 全新引擎Cocos 3d-x开源 Oracle和微软的抱团,以及对抗Amazon霸主的5个可用点 Agile已死 Agility长存? 论程序员的自我修炼 Github女员工因遭性别歧视离职 继七年iPhone、四年iPad后,苹果的下一城:Healthbook 普元CTO焦烈焱:专注于基础软件 在Spark上的深入实践 关于PatIndex 请教:有关分页的问题 Web Services汉字参数传递的问题 如何自动发送email? asp+sql存储过程变量赋值的问题 急! 请问在 MS-SQL Server下 如何 把getdate() 转换成为yyyy-mm-dd 恭喜两位新MVP!其他人继续努力,不经历风雨那见彩虹! 请问谁知道在哪里下在一个vss6.0?急着用!下载完成以后才让吃午饭..... 拜托了 我想做一种像身份牌的名片,我做了一个,但总觉得不真实,请高手改改 读取cookies的奇怪问题 请给出一个判断email输入是否合法的例子。 请教COM+编程问题 求用weblogic做虚拟目录,可以解析多个工程的方案 关于CHM的问题 散分!!!! 今天早上做公车丢手机,郁闷呀. 如何使一字符串变量进行计算? 调用dll函数问题,急啊!苦恼中!请赐教! 如何动态改变listview里面的图标 主线程外的另一个线程弹出的对话框怎么不是模态的? 热情讨论MySQL的全文搜索 请问DataGrid中如何确认输入的内容? 关于push模式的mpeg1播放,十万火急!!!!!!!!! j2me怎样显示从servlet传来的图片(字节数组)?? 怎样对网页 中某一部分进行更新? 一个简单但是让我无法理解的问题,请教各位! j2me怎样显示从servlet传来的图片(字节数组)?? 在客户端可以通过jsp写二进制文件嘛? winrunner的自动运行程序问题。 和桌面通信的问题!!!!!!! 谁Dephi方面的入门电子书籍?谢谢了 【道歉】请hellosun和flyever进来领分! ???上传大文件??? 请问如何控制asp.net客户端(IE)的用户数 关于触发器的问题! 谁知道如何获得MSHFLexGrid被选中的记录(前提:按住shift键选择了多条记录)? 求助,有关Oracle控制文件的警告信息 查询记录数多与某数值的记录。 对了,问个弱问题 想实现一个功能 当选择表单select0里边的“产品分类“,然后自动探出另外一个select1表单,选择select1表单里边的分类信息搜索,选择表单 MSSQL server 的 Function 是个烂东西 数据录入问题 InstallShield的两个基本问题。 敬请指点谜经!万分感谢! 动态配置ODBC连接问题 做个调查,你买彩票吗? 我怎么打不开本版精华区的帖子了 急!如何在datagrid控件运行后显示的表格中加一列,用来表明现在的状态 关于窗口分割 CSDN的这个BBS,回复时老是提示超时已过期,来看看是不是这个原因 过点P(2,1)且与两坐标轴所围成的三角形是等腰三角形的直线方程是()A.x+y=3 B.x-y=1 C.x+y=3或x-y=1 D.不存在 ..勾股定理...如图,强大的台风使得一根旗杆在离地面3M处折断倒下,旗杆部落在刊底部4M处.旗杆这折断之前有多高?求完整的过程 图画的不太清楚求完整的过程 若整数x、y满足等式x²+y²+2xy+7=2x+2y,则x+y= 合肥话搞的不丑什么意思 装高冷的逗比可以比喻成什么 怎么装冷 装高冷是为了掩饰什么 脑筋急转弯,小明和她妈妈一起去市场,下雨了,为什么妈妈淋湿而他没有淋湿 绝句 志南中'杏花雨' '杨柳风'的写作特点 等差数列;求满足下列条件的(An)的通项公式An1.(An)各项均为正数,且满足a(n+1)=an+2根号an+1,a1=2数列(an)中a1=1 a(n+1)=an +2分之2an 从A地到B地,甲要行2小时,乙要行1小时40分.如果甲比乙现行6分钟.那么乙在出发多少分钟后,才能追上甲?555555, 叙政府称:日内瓦会议旨在让总统下台则16秒26 温州17岁高二女生单手玩斯诺登谴责美英情报机构为“最恶劣的侵韩总统朴槿惠对朝言论引猜测 称可与金宁波轨道交通:逃票将纳入个人信用信息印度雄心勃勃探火星 英媒议论“与中国中印时隔5年再次联合军演 更多表达政浙医二院对抗菌药动真格 去年有医生被杭州正研究建设“城市风道” 引风进城李克强看望黑龙江受灾群众:不让一个群哥伦比亚一辆巴士坠崖 致13人死亡6香港第六届立法会举行首次会议 梁君彦泉州市政协召开常委会 通过一批人事任日本乒联主席:4年后东京希望颠覆中国图解理论:一张图读懂西方民主的四个问台股13日收盘跌33点 为9219点万达获得国际羽毛球赛事经营权在中国到处都是火箭主场这次输了 以后我们要赢回来“沸雪”11月鸟巢上演淄博高新区群众艺术馆 全民健身 舞动淄博:这些天“升温” 天气回暖 当心轮回修仙传复转军神法相金身虚空镜沉沦夜斗黑暗地球时代枪焰数字猎人暗黑之我是亚马逊巡行葬仙之域红石峡旅游起义门旅游南昌起义纪念馆旅游御窑厂旅游永宁桥旅游烧香港旅游花明楼旅游北京欢乐谷旅游清西陵旅游太昊陵旅游永福寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘