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

ListBox项的控制-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
ListBox项的控制-VB资料
ListView和TreeView可以通过HitTest来实现对各项的控制,那么ListBox有没 有方法方法实现对其项的控制呢?答案上肯定的。
下面的例子实现的ListBox各项的自动选择,就象弹出ComboBox的下拉框,然后 移动鼠标时,光条跟着移动。
>>步骤1----建立新工程,在窗体上放置ListBox控件。
>>步骤2----编写如下代码:

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 Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
With List1
.AddItem "程序编制:小马哥"
.AddItem "Mailto:Schunte@sina.com"
.AddItem "Http://MaJiFeng.Top263.net"
End With
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)

Dim lXPoint As Long
Dim lYPoint As Long
Dim lIndex As Long
lXPoint = CLng(X / Screen.TwipsPerPixelX)
lYPoint = CLng(Y / Screen.TwipsPerPixelY)
With List1
lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, _
ByVal ((lYPoint * 65536) + lXPoint))
If (lIndex >= 0) And (lIndex <= .ListCount) Then
.Selected(lIndex) = True
Else
.Selected(lIndex) = False
End If
End With
End Sub

>>步骤3----编译运行,鼠标在ListBox上移动,看看是不是自动选择。
微软IE10与HIT FM 携手打造全新HTML5官网 专访GenMyModel CTO:一款全新在线建模工具背后的故事 【直击美国云计算】Jason Hoffman:数据和计算的融合将破坏全球利润 【直击美国云计算】如何做Hadoop、流处理框架等技术的采用选择 【直击美国云计算】细数云技术领域成王败寇:从SaaS到SDN 【直击美国云计算】谷歌Jeff Dean:成功的关键是专注 致远V5发布:强调大协同,企业移动化真来了 Mailbox:六星期实现从零到百万用户及日处理亿条消息 代码审查,也要天时地利人和 Clash of Clans产品总监:游戏中的商品定价一开始就要高 移动互联网最核心的竞争是:设计的竞争 【直击美国云计算】面对AWS,VMware不会畏缩 美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 专访阿里前端工程师:淘宝移动Web开发那些事儿 【直击美国云计算】为什么eBay用燃料电池来驱动他的犹他州数据中心 【直击美国云计算】6周发布新产品,LinkedIn的trunk-based开发 移动周报:疯狂吐槽还是更得欢心?细数iOS 7的是与非 国内最受欢迎的开源项目集锦 开始3D编程前需注意的十件事 [CTO俱乐部第100期]软件平台的新思维及2345技术团队管理经验分享 失败怪圈:今天的移动App在重蹈1999年的覆辙 极客编程必备的五大PHP开发应用 Oracle或将宣布与Salesforce.com,NetSuite以及微软结盟 【专访间】神州数码谢耘:智慧城市需要以“融合平台”为特征的沃尔玛模式 对话OW2 CEO:开源≠安全隐患,免费≠无利可图 不断抄袭的Facebook正逐步沦为一家普通的公司 Windows 8.1会不会把Windows 8的“Modern”开发者踢到路边 任志鹏:FusionCloud是华为二十年技术积累的精华 机器学习典范?iOS7中的Siri能主动学习如何发音 三星宣布关闭PC业务 主推便携设备和一体机 偶尔找不到硬盘 寻求对,围棋,乒乓球,台球,本人在深圳大冲 请教` 请问我要在邮局汇款单上打印.... 怎么样用语句把ACCESS数据库里的数据导入DATAGIRD 红色!!!!!你过来!我要和你打架!我是淡蓝色!~!!!! 有需要函数库的!superruntimerlibary包含258个函数。图标菜单。。。。。 WindowsMediaPlayer怎么用? 请问我下载的fastreport v2.5中的fr_class.pas怎么用,在哪里可找到fr v2.5的注册版? 初学者又问 dxImageEdit的问题(DevExpress) 问一个关于richtext控件的简单问题,有分 在线求:光纤网络方案,最好有价格! 大家快帮帮忙,急!!分不够可以再加 当选中datagrid的某行时,怎样让这一行获得焦点(改变颜色)? 多少钱可以把我们给买了! “WGE”团队诚邀英才 怎样将IPAddress类型转换成Int64整型? 只放frreport1到form上運行都會出現問題。 统计项目咨询? 能否在ASP中做个导出到EXCEL的 请问高手:document.all.item起什么作用啊??? 如何调试J2ME程序哟 ????????高分问题??????????? 请问在对话框的edit框输入完成后,输入回车键如何把回车处理成对应的按牛单击? 客户机程序怎么读取服务器上的SQL数据库呢? 求下拉列表联动的jsp源码 前辈请推荐几本关于Delphi数据库开发的好书 我要在wsda5.0下使用jdk1.4,怎么办? aspx页面滚动如何实现 第二届深圳Delphi爱好者聚会通知 我的InterBase7为何登录不了? 两个窗体问题,希望今晚能结贴。谢谢了!!! Microsoft.Web.UI.WebControls --- Treeview的应用(请大家帮帮忙) 请为一个界面问题 在9i中为什么提示这个表或视图不存在? 在线等…… 为何在邮箱定则中建了规则,还是收到满足该定则的垃圾邮件,急急! ASP如何调用进程外组件,在线等待,急!!! 帮个忙吧! html中 文本框失去焦点的事件 函数名是什么?? 谢谢 高分求助--关闭进程问题 关于在窗体上画线的问题。 大家讨论一下,做一个游戏修改器应该如何下手? 分不多,只是希望能解决问题!!!!还望各位帮助 一个简单的问题:无线网关是否要和无线网关配套? 问一个Swing做界面算是设计模式方面的问题,语言上应如何去实现 关于xslt的两个问题,各位高手帮忙。。。 怎样获得一个IP地址的整数值? 左连接(left join) 速度很慢,如何解决? “WGE”团队诚邀英才 UL标准 240/120V是什么意思 怎样区分真核生物原核生物,如果做一道题,给出来许多生物细胞,我有不了解,怎么判断!例:1.发菜 2.酵母菌 3.变形虫 4.光和细胞 5.根瘤菌6.草履虫 7.水绵 8.小麦 9.家兔 10.黑藻构成这些细胞在结 spt是什么技术?请问SPT是什么技术,是有关打印方面的技术, 在家发现的,谁知道这是什么生物?今天在家里的窗户窗纱上发现了两只奇怪的东西,它是白色透明的,身长7mm左右,有两只触角,四个爪子,还有一条长尾巴有20mm长,趴在窗纱上也不动,谁能告诉我这 甲,乙,丙三个盒子中各有一些小球,如果从甲中取三分之一放入乙盒,再取出乙盒中现有小球个数的四分之一放入丙盒,最后取出丙盒中现有小球个数的十分之一放入甲盒,这时三个盒子各有18个 将九个相同的小球放入三个不同的盒子,要求每个盒子中至少有一个小球,且每个盒子中的小球个数都不同,...将九个相同的小球放入三个不同的盒子,要求每个盒子中至少有一个小球,且每个盒 翻译in a sign of the urgency surrounding the package恩。。。这个是一篇报纸上对美国救市方案进展的报道。。那个package貌似是用来形容救市方案的。。我想知道,它在这里确切的意思。。。 英语翻译acres where Beaver Meadows Ranch makes its home.主要是 makes its 在20世纪用英语怎么说 有没有the啊 saturday单词怎么说, 世锦赛英语怎么说,要不要加the 英国首个“音乐试管婴儿”诞生 狂爱听探访朝鲜志愿军墓 中国老战士和烈士家我国海军三大舰队首次在西太平洋展开实新消法规定网购7日内可无理由退货两男子甬台温高速上拦路称搭顺风车趁机90后男子酒后加无证驾驶千黄高速上丧衢州一处通信基站屡屡爆表牵出电信诈骗温州一名电镀厂老板直排毒性很强的废水80后忧郁男杭州同时骗3名单身女子1丽水男子从废弃X光片中提炼白银10余故宫员工杀2名同事后自杀未遂 警方未新疆兵团公路里程超3万公里 职工出行我国原有的医疗保险制度与改革后社会经韩正:加强交流合作 共同推进长三角区石家庄7辆违规渣土车被查 司机:“就第13届艾伦 巴比利国际青少年锦标赛新疆战山西赛前迎噩耗:苏伟食物中毒发failed: 中国探月工程授权发行计划体制下我国医疗保险制度的主要内容假房产证作抵押诈骗六万元 两嫌犯被永专家析日本对华频挑衅:安倍推树敌外交广州十月份查处5名县处级以上干部失忆症之恋武动终点梦幻科技公司莲域战纹周问海的大学间谍生涯兴汉大风歌剑道武尊暗黑年轮梦里杀戮知多少藐视四界胡厢使桥旅游丁香巷旅游定慧寺旅游报国寺旅游灵岩塔旅游灵岩山寺旅游可园旅游苏州公园旅游曲园旅游五峰园旅游百万葵园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘