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

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上移动,看看是不是自动选择。
友盟2015年Q1移动互联网报告:车联网App崛起 多面编程语言Scala NEC高可用集群软件EXPRESSCLUSTER X3.3面向中国市场正式发布 【探秘ES6】系列专栏:模版字符串 专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 Qualcomm拥抱创客文化:如何基于DragonBoard 410c创造和创业? 【探秘ES6】系列专栏:剩余参数和默认参数 专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联&#183;云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 2015 PHP框架调查结果出炉,Laravel最受欢迎! 【CTO会员专访】KEEN创始人兼CEO王琦:在GeekPwn,遇见一极棒的安全人才 创业公司都在使用的3款Python库 深入理解Objective-C的Runtime机制 你不知的Docker 创办人兼CTO游走美法的浪漫狂放 《近匠》环信CEO刘俊彦:移动客服的未来化场景 iOS UIView动画实践(三):Transition Animation 【CTO讲堂】无社交,不App!——为App加载强大的通讯社交引擎 【探秘ES6】系列专栏(七):箭头函数 【前端框架】Backbone.js在大型单页面应用中的应用实践 【探秘ES6】系列专栏(六):解构赋值 《近匠》TestBird,专注的手游自动化云测试平台 急:关于rich text小应用程序的问题,请高手指点!谢了! 女大学生的一天(转载) 200分问一个小问题, 在线等: JBuilder自带的ESite for weblogic部署出错... 请问 vb 怎么样让函数返回一个二维数组?能给你例子吗? 有人知道上海通方信息系统有限公司吗?我要去面式了?大家帮帮忙,做ejb程序员。 域问题 转分 介绍制作DLL专业书籍 有关image的函数问题 请教? TObject和integer之间的转换问题 数据库简单问题 文本文件的最后一行怎末去掉换行符,用程序实现。 善良的程序员,当心QQ骗子啊! 谁有Qamonitor,小弟急用! 不要笑偶 转分 有会打印对象编程的吗?printer对象怎样打印横线??怎样打印带风格的报表?? 表分区的数量有上限吗 ASP 0178 (0x80070005) 各位高人,请一定帮个忙吧 !! SetCellImage 利用C# 读取系统当前进程的出现问题,帮忙!! 请教高手:怎样在一个窗口里能够输入文本文件(按回车键) 另一个窗口显示出同样的文本 高手在何方 (大力请进)sql字符串处理的问题 上哪能下到exchange 2000,下到马上给分! ado问题? 数据迁移问题??? 怎么把列名选出来? [在线求助]:有什么好的方法可以使得鼠标放上有链接的地方状态栏不显示真实地址? 高手在哪!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 各位大哥﹐何為微创软件开发管理﹖﹖﹖﹖ 3com switch 3300 xm 有网管的功能吗? 关于窗口大小的问题,快来捡分~~~ 为什么2001年前的提问的问题、得分的问题、信誉分变化纪录都不见了。 无法在人才频道上提交简历。。。 请问:wsad4支持滚轮鼠标的插件哪里有下载??? 自动锁定计算机? 请问如何终止一个正在运行的应用程序 无法在人才频道上提交简历。。。 后面数据库为ms sql server2000的时间问题? DoEvents 怎么用?(不好意思,只有这么多分了!) CSDN真让我失望,大家都喜欢回答无聊的问题(不要回复) jdbc中LIKE条件如何使用prepareStatement? 请问,如果想报考系分的话,需要先过高程吗? 请问怎么把Excel形式的表结构导入到Oracle … 请问数据窗口中如何自动记录资料修改的帐户? 我倒要看看谁有本事让javac输出这样的信息? ADSL 可以直联吗? linfeng1216 (林枫) 请来领分。 家里蝴蝶灯管坏了原是2针的管,错买了4针管回来,请问两者通用吗?不敢乱安, 求问皇帝的新装中骇人听闻的潜台词是什么 求止战之殇的伴奏 一次演讲比赛设一、二、三等奖.一等奖的获奖人数是二、三等奖获奖人数的4分之1,二等奖的获奖人数是一、三等奖获奖人数的3分之2.一、二、三等奖的获奖人数各占获奖总人数的几分之几? 止战之殇是什么意思? 几个句子的发音困难!我在练口语,模仿磁带时就是听不出that怎么读,例如,It was generally supposed that it would not happen again.It is expected that the weather will be good soon.还有,We couldn't afford to keep our car,so we 一道有意思的推算题目!有兴趣速度来哈````58 26 16 14 ( ) 空格里的数字应该是多少啊`? 《皇帝的新装》“这可骇人听闻了”,此句中的“这”字指代什么? 什么是特征音程? 一道很有意思的经济计量题,请多多指教题目是这样的(翻译过来的,语言也许有不通顺的地方,见谅)你想推广一种产品,这种产品要么很受欢迎要么没有市场.你估计这种产品很受欢迎(获得 在《皇帝的新装》中“这可骇人听闻了”的“这”是什么意思?初一上册26课! 甲乙丙修一条公路,路程比是8比7比5,他们按所修路程派劳动力,丙没派,但需付1350元,这样甲派60人,乙接上文:40人,甲乙各分多少元 大兴安岭上主要分布着什么样的林带?这种林带的代表树种是什么? 谁能解释一下止战之殇这首歌 音程解决5 升1怎么解决?不是应该向外解决吗?是5 3还是3 3还是别的? 猜为什么是反犬旁 英文翻译,冯友兰的《中国哲学简史》里的一句话The first to do so was Ssu-ma T'an (died HO B.C.), father of Ssu-ma Ch'ien (I45~ca. 86 B.C.), and the author with him of China's first great dynastic history, the Shih Chi or 甲乙丙三村合修路三村修路比8:7:5三村按修路派劳动丙没派劳动付甲乙1350元甲派60人乙40人甲乙各分多少元 3Only____of them are interested in the exhibition.Afew B a few Ca little D little 现在还有大公无私的人吗? 甲乙丙三村修路程比是8:7:5因丙村无法派出劳动力,需要给甲乙两村1350元这样甲派了60人,乙派了40人,求甲乙两村各应分多少元? 世界上谁的垂直起跳高度最高垂直起跳高度是多少 人是大公无私的吗? 音程是什么? 反犬旁加贪是什么字, 数学题面积计算-小学题数学题面积计算 一个面积为70平方米的空间,使用一种280*80cm(厘米)面积的地砖铺设!请问有使用多少块呢? 音程的表现 意义 世界上垂直起跳最高是谁谢谢 鸿门宴中的 扬子江的介绍是什么, 世界上垂直起跳高度最高是多少?拜托各位了 3Q 哎 那我想问的是2013年全国大学生英语竞赛初赛的笔试是 包括单选,阅读理解,完形等等和平常一样吗 什么的扬子江 世界上垂直起跳最高距离是多少?人们再不断创造新的高度 鸿门宴中的问题刘邦亲赴鸿门宴的主要原因是什么?显示刘邦什么养的性格特点?鸿门宴上活跃着很多人,请概括分析一下作者是怎样表现这些人物的?效果怎样? 止战之殇描述的是什么? 请你举一例,说说某一化学产品的利与弊.越快越好、亲们 精英聚集的地方 用英语怎么说我要做一张关于培训的海报.需要加上这个短语的英文.不要百度翻译.求最地道的说法 求歌曲 女的唱的 非摇滚 歌词里边有you hope to find me i'm sorry but i can help you求歌曲 女的唱的 非摇滚 歌词里边有you hope to find me i'm sorry but i can help you 太阳直射南纬20度,昼长达到一年中的最大值的范围是多少? 鸿门宴 . 数学面积计算在下图中,平行四边形ABCD的边长BC长10cm,直角三角形ECB的直角边EC长8cm,已知阴影部分的总面积比三角形的面积大10平方厘米,求平行四边形ABCD的面积.对不起!是比三角形EFG的面积 当太阳直射20N时,20N地区昼长达一年最大值? 关于赞美大公无私精神的人的古诗 张家港扬子江石化有限公司,简称“扬子江石化”这个单位怎么样?如题:张家港扬子江石化有限公司,简称“扬子江石化”这个单位怎么样,待遇情况,越详细越好,要我下周去面试,应聘的是中控 太阳直射南半球,南半球各地昼长于夜,其中什么日夜长达到一年中的最大值太阳直射北半球,北半球各地昼长于夜,其中什么日夜长达到一年中的最大值,一共两个问. "中国国际女排精英赛"译成英文怎么说? 直译 在冯友兰先生《中国哲学简史》中,杨朱杨朱被称为先秦道家第一阶段的代表人.在其它的胡适啊、任继愈等学者的《中国哲学史》中有议论杨朱吗?杨朱又是什么地位呢? 修一条路甲修了全长的4分之1,正好修120米,乙修了百分之35圆形花坛的半径是8米,如果延花坛的边沿修2米的小路,小路面积是多少 独一无二的反义词是什么 中国哲学简史~冯友兰,有这样一句话不懂,哲学简史》有一句话:在我们对人生开始思想之前,我们必须首先“思想我们的思想”.这两个思想啥意思后边还有“思想思想的思想是反思的思想. 历史上跟祁黄羊一样大公无私的有哪些人 独一无二的反义词是什么啊 星体为什么会自转 有什么规律? 历史上大公无私的人被称为什么 独一无二的反义词是什么? 冯友兰人生经历? 大公无私的人有哪些? 独一无二的反义词?1.独一无二的反义词2.填字成词.心悦( )( ) 久负( )( ) 马尼拉市长将赴港道歉 评论称菲律宾一哈萨克斯坦时装周:黑白搭配永不过时美海军航母编队在中国南海训练演习奥巴马夫妇携女儿赴教堂做礼拜 一家服奥巴马医保网站问题频出 美卫生部长被法国前高官称经济危机下的恐慌导致排外约有40万杭州人的骨头不够硬叙问题特使将抵达叙利亚 筹备日内瓦国中国首支海军核潜艇部队 42年潜行百19岁坚强女孩爬行上大学:选择学医将女学生被抱养18年无户口 相关部门称瞭望:以宏大的高素质人才队伍托起中国香港不满马尼拉向华人筹募赔款 港媒骂浙江国企力邀民企加盟 推3244亿元宁波大学举办“国际文化日”国务院部署推进公司注册资本登记制度改《我是特种兵之火凤凰》演员拍摄搞笑花不留遗憾,5对老夫妻补拍婚纱照美对华钢铁产品发起贸易救济调查宁波市环境空气质量优良率在浙江省排名发改委官员:我国城市群交通存在三大问救市行动只是开始 小散们抓两点要领笑尿~12个投放最失败的广告,完全是石建勋:推进注册制任重道远京东去年亏50亿,奖励刘强东花了36虚拟现实设备发展迅猛 2020年出货避开“早七晚七”污染高峰 春天养生防中国制造需要创造新优势吃素到底有没有营养?大加索尔:为国效力不是任务而是荣誉注意!江浙沪开始“扫黄”了!传奇世界时光倒流新区首曝 三职业更平千万不要和乌克兰比美女,别问为啥,自未来9个月内Uber将在印度市场投资游戏机解禁姗姗来迟 索尼微软如何敲开互联网圈里的那些讨债闹剧社会办医为何眼盯医保?老股民、创业猪、小公务员、纠结死的买让医生成自由人不可怕为什么高价总是打败低价?非常有价值的到底有多少禁锢困住医生?微信6.1的神秘功能!不说你永远不知
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘