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

拷贝或移动列表框或组合框中的内容-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
拷贝或移动列表框或组合框中的内容-VB资料

在做数据据库程序时,通常会要求用户将数据从一个列表框移动到别一个列表框中。下面的子程序可以让你轻松实现这一功能。同时还提供参数,指定操作是移动数据(不保留原数据),还是拷贝数据(保留数据的副本在原列表框或组合框中);并且还可以选择是全部移动或拷贝数据,还是只移动或拷贝用户选定的部分。

参数 值 说明
FromCtl 源列表框或组合框名 源列表框或组合框
ToCtl 目的列表框或组合框名 目的列表框或组合框
strMode 可选参数,默认情况下只拷贝选中的项目
- 移动选中的项目
ALL 拷贝所有的项目,不需选中
-ALL 移动所有的项目,不需选中

源程序如下:

Public Sub CopyComboList(FromCtl As Control, ToCtl As Control, Optional strMode As String)

On Error Resume Next

Dim intN As Integer

Screen.MousePointer = vbHourglass

If strMode <> "" Then
strMode = UCase(strMode)
End If

With FromCtl

If TypeName(FromCtl) = "ListBox" Then
For intN = .ListCount - 1 To 0 Step -1
If .Selected(intN) Or InStr(strMode, "ALL") Then
ToCtl.AddItem .List(intN)
ToCtl.ItemData(ToCtl.NewIndex) = .ItemData(intN)
If InStr(strMode, "-") = 1 Then
.RemoveItem (intN)
End If
Next
Else
For intN = .ListCount - 1 To 0 Step -1
ToCtl.AddItem .List(intN)
ToCtl.ItemData(ToCtl.NewIndex) = .ItemData(intN)
If InStr(strMode, "-") = 1 Then
.RemoveItem (intN)
Next
End If
End With

Screen.MousePointer = vbDefault

End Sub

帮助开发者轻松管理项目的8款在线工具 现代Web应用开发者必备的六大技能 JavaScript异步编程好助手:Promise模式 功能解析:Red语言推出0.3.3新版本 可穿戴?可吞咽!UI和UX的悄然转变 华为刘成:讲述开发者联盟的故事 出尔反尔,Amazon咬文嚼字玩转私有云 创业公司SOASTA:曾帮助伦敦奥运会官网进行云负载测试 金山云进一步聚焦云存储 Facebook公布用户数据:美国移动用户占比78% Zynga开源服务器监控工具zPerfmon 上海海事大学王洁:打造物流教学科研应用云平台生态系统 15个步骤创立技术公司,并收获千万用户(二) HTML5发展慢热 开发者热情不减 NimbleBit孪生兄弟创始人:最后悔没有专注和扩大品牌 将对Windows形成挑战:谷歌在Chrome OS中默认支持Office 微软的企业社交大动作:Yammer发布移动SDK 谷歌开源Gumbo:纯C语言实现的HTML5解析库 AMD发布APPML源码,构建clMath库 【观察】3个月,每天增加52台,又一家云企业跻身十万台服务器俱乐部 感受华为IT业务的实力 小米雷军:我为什么做红米? GitHub上线Trending功能,帮你轻松找到有潜力的开源项目 如私人秘书:谷歌搜索将变得更加个性化 微软将于10月17日正式发布Windows 8.1 Google推出在线教育C2C平台Helpouts 技术人员组团参加SDCC 2013的十个理由 继BAT之后 第四大巨头是谁 如果传统IT部门真的消亡,你该何去何从? 闪存突袭,混合储存是否已步入黄昏 Cloudera发布Hadoop开源组件Sentry:提供细粒度基于角色的安全控制 自制控件问题 静态链接库中的资源 Xml的查询定位问题? 小高求助! 关于JAVA文件执行时出现的错误 如何在Datagrid中取得当前记录的某字段值? 如何取得下拉菜单项? 目录树记忆属性实现的讨论 我想去中国网通申请域名,他们是不是很吊,有没人用过啊 Help 删除一条记录?? 在研究软件加密 “咱们把最好的粮食给城里人吃,又进城帮助他们盖起了高楼大厦,他们为什么还瞧不起我们呢?” 老板今天叫我签合同 有关于TImage的图像显示速度 怎样让 Title 的显示时间延长????????? !!!!!!!!!格式化数据列 怎么这么慢啊 请问:如何在打印之前设定该次打印纸张的大小(很急,老板催货了,帮忙顶一下,谢谢)? 有什么办法可以把class文件反编译回java文件? 如何写到文件? 自己写一个函数,把2,3,4加到1,2,3中去,不重复 Netscape打印中文网页为什么不成功? 英文XP中装了东亚语言包,能显示中文了,如何输入汉字呢。。。。 接到一个电话 哪位大哥大姐教教我啊? Dll如何同控制台程序通信 RedHat Linux7.2下如何挂上RealTek8139网卡驱动????高分相送哦!在线等待!!! TreeView问题 求register_globals = On和register_globals = Off的不同用法(原代码) 斑竹,我是因为升级才散分的,有个穿红裤衩的支持俺了…… 一个新手的加急求救!谁先回答,就先给谁份,希望大家说的详细点! 写xml文件的不完整的问题 关于esqlc的unload 的问题。 关于方法覆盖,在线等候 一个实际开发中经常令人头痛的问题 在线,急,谁有3D MAX的下载地址?高分! 推荐IT公司调查 监测表记录字段变化情况 如何能够得知table中的字段是什么类形?(如字符,数字,浮点等) SUN认证是不是“纯”English的? 在windows 2000下,如何在perl脚本中,执行另外一个perl脚本文件?? JPEG图片压缩 新工程收尾,请提宝贵意见!!! 钱是什么??钱是王八蛋,没了在去赚!!!!!!! 我用Jet把java编译成本地可执行的程序了,可是换一台机子又不可以运行了,说是需要有jet的运行坏环境,那还不如安装JVM呢。求高手教我怎 这个数据窗体怎么做!!? 静态链接库中的资源 请教,十万火急,请各位大虾救我 字符串问题 怎么样导出 计算机拔掉插头后计算机卡住了,强制关机没用,我直接拔的插头,现在按开机键没反应,插头插上会有接通电源的声音.我回家后,电脑恢复正常了,感谢各位亲们的解答! 人体心肌的核呈现什么形状?1.柱状;2.菱状;3.卵圆形 酶对人体有哪些作用 无线路由器平时应该拔掉插头吗?我们晚上睡觉拔掉,白天又插上(每次拔都是拔路由器那边接口,不是墙上插座那),2个月以后发现路由器不怎么好使了,.我不知道是不是我们经常拔插头的原因 人体在什么情况下卵细胞会分裂成两个或三个? 交流发电机旋转的问题.旋转线圈式发电机和旋转磁极式发电机,同样是旋转,为什么后者能发出比前者高得多的电压?如果线圈和磁极都旋转,只是方向不同,这样会不会更有效率呢? 怎么办 精卵刚结合身体有什么症状吗? 旋转电枢式交流发电机来看看这张图是不是有问题 各位初二上物理难吗 把一个磁铁做成球型,它还有没有磁性?如果有,那N-S极怎么确定? 交流发电机是什么让线圈转动的? 初二的物理难吗.我马上初二了 网络工程师分类多少种? 如何让交流发电机产生正旋交流电 请问初二的物理难吗?应该怎样学呢?应该用什么辅导书呢? 语言不丰富用什么词来形容 SOS!求哀怨如泣的意思?! 初二的物理难吗? 什么样的酶对人体血管细胞有好处? 哀怨什么意思? 我现在初二了,那又如何去学物理呢?有什么好方法呢? 青年人当如何践行中国梦 什么是哀怨? 边长是200米得正方形的面积是()公顷 青年人的梦与中国梦有何关系? 打雷时要拔掉冰箱等电器的插头吗 一道化学题目(关于离子)某无色溶液中能最大共存的离子组是A.Na+ H+ Cl- Cu2+ B.OH- K+ SO4 2-C.NO3- Mg2+ Cl- K+ D.Na+ OH- NO3- H+要理由啊, 你的梦,他的梦,青年人的梦,与中国梦有什么关系? 怎样理解极尽哀怨能事这句话能字是怎么解释呢`` 创星过滤桶at与cf有什么区别创星过滤桶有不少系列!ef cf at df都有什么区别呢! 郡县和郡县制的区别郡县和郡县制有什么区别 打雷时要把电器的插头拔了吗 火线与大地之间为什么没有电压搞错了,是火线与大地之间有没有有电压 工程师怎么分级 打雷插头不拔掉会不会是的电器损坏? 读新单词时,要不要把中文意思读出来?说说清楚一点为什么 豆在釜中泣中的釜是什么意思,泣是什么意思 打雷时候要把电源的插头拔掉吗? 有没有什么好的英语学习软件,能先读英文然后读英文单词的中文意思 《七步诗》萁在釜下然,豆在釜中泣. 人体的最佳温度是32度么?如果是 为什么是32度?是因为有一种酶适应32度?它在人体中有什么作用?尽量说清楚点 谢谢 在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小…………在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小,P越大,P越大,热量就越大,为什么电炉要用电阻小的 “萁在釜下然,豆在釜中泣” 其中“然”是什么意思,“泣”是什么意思;这句话是什么意思?详细 每个人体细胞中含多少个基因人体含3到3.5万个基因 每个细胞也含那么多吗还是平均多少个 有表扬意思的四字词语 “萁在釜中然,豆在釜中泣”中的“然”和“泣”分别是什么意思? 人体细胞中的DNA主要分布在? 关于设定行政许可,下列说法正确的是a.较大市政府规章可以设定行政许可b.省政府规章设定行政许可最长期限为2年c.国务院部门规章不可以设定行政许可d.省政府规章不可以设定行政许可答案 家用电器长期使插头插在插座上不拔会有什么不好的影响吗?火灾?电器线路损坏? 人体细胞内有几对DNA 关于规章设定行政许可,下列说法正确的是()A、有规章制定权的机关就有权设定行政许可B、规章可以增设前置性行政许可C、上海市人民政府可以设定临时性行政许可D、国家部委可以设定 电器不拔插头费电吗用电器不工作,插头还插着, 一国两制中保持资本主义制度长期不变是永远么 形容龙的词语,不要四字词语. 家用电器关闭后如果不拔插头,对电器有没有影响,会不会有危险 资本主义维新派和资本主义革命派是指他们本身是资本主义还是指他们向往资本主义 百科、复制看不懂.焦距是镜头长度的意思、还是镜头到成像孔的距离、还是能把被摄物体放大多少距离的意思?(或者是什么)还有通常我们说的什么120相机 35mm相机又是指什么?是指镜头到 哪种拔罐器好 磁铁磁性最弱的地方磁铁磁性最强的地方 网传“倒输银行卡密码可报警” 银行否德国政府表示愿与斯诺登直接对话纽交所黄金期货市场1日交投最活跃的1洛杉矶机场枪击案1人死亡多人受伤 航纽约油价1日下跌北京一周三发重污染预警 13省市雾霾北京将迎冷空气救场驱雾霾 北风吹出蓝洛杉矶机场枪击案1人死亡多人受伤 航巴基斯坦塔利班首领在美军无人机空袭中美国洛杉矶国际机场发生枪击事件洛杉矶国际机场发生枪击事件 嫌犯被执墨西哥对垃圾食品征税8%英拟对外国购房者增税补赤字美贩毒隧道铺轻轨尼加拉瓜发布 登革热红色预警泰下院争议中 通过特赦法案洛杉矶国际机场发生枪击事件 嫌犯被执广西岑溪炮竹厂爆炸已致11死17伤斯诺登密会德议员 称愿为NSA窃听事广西炮竹厂爆炸死亡人数升至11人 责俄总理:美国窃听外国领导人的行为“无丰瑞公司被罚2.5亿 董事长被判无期泰国反贪委将审讯英拉OLED电视性能优势明显中国黄金储备居世界第六云南信息报颠倒话语为救人7个监测点无污染萨科齐嘲讽奥朗德戴头盔约会很可笑国美开启新春感恩回馈40寸LED电视中科院发布自主知识产权操作系统张家川发帖被拘少年申请刑事赔偿被驳回美国会法案收入“慰安妇”议题学院保安抓多名窃贼被奖励1000元右踝胫腓骨双骨折王濛伤别冬奥会?集市买肉最划算 便宜10元沿龙泉探梅寻宜居所在云南信息报红星国际广场 举办业主答谢会云南信息报看这电影,绝对忍不住想@我的前任是极雅虎COO昨日离职
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘