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

处理 Dropdown List型 Combo的录入问题-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
处理 Dropdown List型 Combo的录入问题-VB资料

当 Combo 的 Style 属性设置为 '2 - Dropdown List' 时,是只读的。这就意味着象 MyCombo.Text = "列表内容外" 这样的语句将可能导致一个错误。如果出现这样的情况时,能自动把 ListIndex 属性设置为 -1,而不是出错就好了。下面的代码完成这样的工作:

Function SetComboText(MyCombo as ComboBox, MyItem as String) as Integer
Dim I as Integer

For I = 0 to MyCombo.ListCount - 1
If MyCombo.List(I) = MyItem Then
SetComboText = I
Exit Function
End If
Next I

SetComboText = - 1
End Function

使用该函数:
AnyCombo.ListIndex = SetComboText(AnyCombo, "Any String")
如果 "Any String" 在列表中, ListIndex 将到正确的位置, 如果不在,自动把 ListIndex 属性设置为 -1。在 SetComboText = - 1 这行里,你可以增加你任何自己的处理代码。

自定义Text的pop-up菜单
在 Windows 95, 右击 Textbox 将出现基本的编辑菜单。如果你想改变该菜单,可将以下的代码放到 Textbox 的 MouseDown 事件中。

If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
PopUpMenu Menu1
End If
苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 解读DuckDuckGo搜索 百万点击也敢叫板Google 开发者成功学:扔掉你那些很sexy的想法 VMware严控ESXi API 引发用户和ISV被绑架担忧 布局O2O Facebook推出实物礼品卡 iSuppli:微软Surface RT实际销量远低于出货量 业界前三甲:App Store两个刷榜者,站了出来 极客无极限 一行HTML5代码引发的创意大爆炸 将服务器“弃”之荒野? 微软玩转露天数据中心 Dropbox:我们现在关注“内容” 而不仅仅是文件存储 访Teradata Aster Mayank Bawa:抛弃无效数据,让分析走向大众化 谷歌Chrome或新增通知中心 与Google Now整合 传言称HBO节目将登陆苹果Apple TV? Crashlytics被收购,应用崩溃报告服务要火了? 微软公布WP7.8完整功能 诺基亚率先升级 BlackBerry 10或许不仅仅是一剂强心针 一周消息树:专访蒋彪:JavaEE是企业级开发首选 移动周报:从封闭到开放,iOS生态系统要变天? 游戏平台上:Win7已跌破70% Ubuntu突破1% 不能启动sqlagent.exe,出现“找不到Ordinal”的提示?? 一个排列组合的问题,有点难度!!! 在程序中如何得到连接网络的带宽和实际的传输速度? 为什么程序员跳槽频繁? 不知是不是将记录锁住了 关于Win32编程时的位图问题 ' ;&+"vHE' ;&+" col-md-6" href="/code/show/2062301">想找一個單論壇的asp論壇 不知道還能不能找到 字符串乱码&gt 和 &lt 我想在Shape控件中增加一个右键和一个双击功能,应该什么实现啊?? 菜鸟问问题:SQL的简单问题,在线等 那为神仙,做过画电路图的画图软件?里面的电路分析是怎么做的?帮忙指点一下 这个要如何安装呀Microsoft SQL Server 2000 Desktop Engine 小问题,能不能停止响应当前进程去进行别的工作?需要语句! 到小公司求职应该注意什么问题? gethostbyaddr()怎麼用的啊?我這樣用怎麼不行啊? 向大家请教一个简单的问题,见笑了 难题难题,怎么在j2me里面实现在一个java程序里面启动另外一个java程序? 请教oracle的jdbc驱动程序的类路径如何设置? 显示器不停的开关,进不了图形界面了,急。 打开水晶报表时显示“未将对象引用设置到对象的实例”,只有10分,全部送出 矩形坐标 【那个活活的,玩不玩了?】 怎么判断dbgrid中某个单元格的值是否符合要求 急,在线等,英文作业等着交,就剩160分了全给了!(只能放100分,气死我了) 请问大虾:在那里可下载installshield Professional 7及其东方语言包 怎么样把exe的C#项目文件转换成dll的呀?? 今天Broland来我们公司查盗版软件了,散糞 一个女孩问"你帅吗?" , 你想如何说? 向大家请教一个简单的问题,见笑了 卖书! 请高手来看这里的错误!! 怎么判断窗口移出屏幕了? 我树型的事件脚本不执行?还有几个其它问题。请大家帮帮忙! 我们部门原创的顺口溜 如何判断处理事件和委托 在线等待:寻Delphi7中调用Excel表格打印的源程序 大家好,在线调查 原来asp中的recordset 在.net中还能用吗 “参数不足,期待是1”是什么意思? 如何读取一个文本文件的最后一行 将一表中的所有A列和B列的值(varchar型)合并后,添加到C列中。这个SQL语句怎么写? 请教用公式urlopen如何在“另一窗口“打开一页面。 win2000下如何给程序指定program ID 急,急,在VC中如何.sql文件(ORACLE) 我的DW不能启动了,问题解决马上给分100! 高手请进,在线等待! 下了一个手机游戏(JAR、JAD),想在计算机上模拟运行一下,该怎么做? 使用 应用程序组装工具 创建.ear,创建.war 在WAS中安装出现错误 !!! 立即给分 怎样改变由 javaw 打开的*.jar文件的图标? 纯粹好奇~水园、昨天晚上发生了什么? 为什么修改httpd.conf后,APACHE服务不能启动? “喀拉斯”是蒙古语“美丽富饶而神秘”的意思,其水源是阿尔泰山主峰——中俄蒙边境的友谊峰.喀拉斯湖的水色靓丽而神奇,它会随着季节的更替、气候的变化而呈现出不同的色彩.晴天,它 22题第三个问~ 英语好的给我点指导吧,怎么分析下面的句子?The furniture,with its modern style andbright colors,suits modern houses and their gardens,but looks out of place in the garden of a traditional为什么suit用suits而不是suiting 或to sui 一次函数,第20小题求解答 一腔热血勤珍重,洒去尤能化碧涛 什么意思 Do not say that b____you look at the picture. 通过观看视频《明海大和尚柏林禅寺开示》,请谈谈自己对当前佛教的认识和对现代出家人的看法. 美丽富饶是什么意思?解释 求问第三个题 美丽富饶的 14题第三个问 四川盘江大桥垮塌事故存违规问题 7名成都环保局:重污染天气限行 公车无特四川盘江大桥垮塌事故:已有13名责任美国福特号航母电磁弹射器真容【高清组英皇室全家福照片惨遭恶搞 小乔治露坏美情报高官供出欧洲“队友”美元对主要货币汇率30日上涨中国网事:中欧深化经贸合作助力全球经温州5岁男孩遭持刀砍伤 鼻子被削去1视频:骗子长得像金城武 3姑娘甘心为多名俄罗斯高官因瞒报收入被免职马夏尔传射鲁尼破门,曼联2-1战胜斯斯科拉里:恒大是个非常上进的俱乐部国奥队员谈傅博战术:共有四套不同阵型【巴媒凭什么说中国足球是一个垃圾桶?党员干部必看:习近平2015的打老虎顶级Hifi芯 vivo X6Plu深扒当红鲜肉背后的影坛势力十分钟带你看完2016年四大卫视跨年世界最贵豪宅什么样?请看巴黎路易十四哀悼!前门兴球员被发现离奇死亡曼联连续9个主场未能上半场进球穿越异界当恶魔女神爱上我御香记嫡妃佑仙无限之电影尖兵园香我是王启年造化之王不灭金丹半仙文明清华大学旅游王府井步行街旅游北海公园旅游漠河九曲十八弯旅游中俄友谊大桥旅游室韦俄罗斯民族乡旅游金帐汗旅游国门旅游国家博物馆旅游古窑民俗博览区旅游神龙谷旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘