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

使用VB设计具有「动感」的命令图标栏

HTML文档下载 WORD文档下载 PDF文档下载
使用VB设计具有「动感」的命令图标栏
作者:张嵘
我们在使用Word、Excel等Windows应用程序时,经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时,程序就执行相应的操作。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令,供用户快速地取用,并且它设计时采用了“立体式”按钮,操作时会产生凹下去和凸出来的“动感”,笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。
使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时,图标显示为凹入状态的图像;当松开时,图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”,具体设计步骤如下:
1首先在窗体中创建一个图片框(Picture Box),将其Align属性置为1,使图片框固定在窗体上端,调节其宽度使其能安置图像或命令按钮。
2在图标框内创建若干个图像框(Image Control),设置其Autosize=True,Picture属性在程序运行中设置。
3编写程序代码。这里假设某个命令图标凸出状态的图像文件名为"zrup.bmp",凹入状态的图像文件名为"zrdown.bmp"。
窗体装入时:Sub form-load()
Imagel.picture=Loadpicture("zrup.bmp") ' 命令图标凸出
End sub
鼠标按下时:Sub Imagel-mousedown(Button As Integer Shift As Integer, X As single,Y As single)
Imagel.picture=Loadpicture("zrdown.bmp") ' 命令图标如下:
End sub
鼠标松开时:Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)Imagel.picture=Loadpicture("zrup.bmp") ' 命令图标凸出
End sub
以上只能使命令图标具备凹下去的功能,但当在按鼠标按钮不放,并拖曳鼠标使光标移到外头,原来图标仍然处于凹下状态。要使其自动凸起,就要编写如下代码:
Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)
Select Case Button
Case 1
If X<=0 or X>Imagel.Width or Y<=0 or Y>Imagel.Height then Imagel.picture=Loadpicture("zrup.bmp") '凸出
else
Imagel.picture=Loadpicture("zrdown.bmp") '凹入
End if
End select
End sub
通过以上三步骤就可以建立具有“动感”的命令图标,若具有多个命令图标时,可通过创建图像控制数组来实现。BMP是常见的一种图像格式,也可以使用VB提供的丰富的不同状态的命令图标位图文件,它在VB的子目录\bitmaps\中。
□山东 张嵘
Delphi中的INI文件编程 DELPHI中的消息处理机制 Delphi中对目录拷贝、删除和搬移的操作 Delphi中任务栏状态区的编程 Delphi中如何处理2000年问题 Delphi中如何实现系统权限的设置 Delphi中异常的截获及其个性化处理 Delphi自定义消息应用一例 Delphi5中资源文件的创建和使用 Delphi的Bug-Tthread Suspend方法 Email服务器的简单实现-Delphi资料 Hook的制作-Delphi资料 INI文件的应用-Delphi资料 NT中的关闭计算机,重新登陆的实现-Delphi资料 Windows 系统方面-Delphi资料 Windows外壳扩展编程-Delphi资料 避免二次运行-Delphi资料 编程实现文件关联-Delphi资料 编写定制的文件流实现文件读写加密-Delphi资料 采用多线程进行数据采集-Delphi资料 产生临时文件名-Delphi资料 程序不出现在任务栏-Delphi资料 程序缩小为任务条右下角的小图标-Delphi资料 得到 Windows 用户名和序列号-Delphi资料 得到windows临时路径-Delphi资料 得到Windows用户名和序列号-Delphi资料 得到计算机的名字和ip-Delphi资料 得到内存的 Status-Delphi资料 得到上一个激活的组件-Delphi资料 得到在内存中运行的所有应用程序的handle-Delphi资料 调用控制面板项目大全-Delphi资料 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 有创意的T恤~~ Transaction not connected! 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高手求救 aspnetnemu注册吗 陨落雕老弟昨日开始中考,祝福他,放分! installshield打包时可以加入密码吗? 救命! 怎么在WM_DRAWITEM自画LISTVIEW? 有关txt文件操作的问题? 一个很奇怪的问题,高手请看, 马上给分 那里有更多的skinengine换肤文件? 奇怪的问题,高手请看,马上给分! 怎样给一个OLE控件其内置的事件编写脚本? 请问各位能否将一个VF的数据库方便的转为ACCESS数据库 如何关联一个扩展名到我的程序? 我有一个备注memo的字段,想更新?如何进行? www.ipowerweb.com 的主机怎么样? 高数、线性代数与程序员!!! Sworddx,补分给你 怎么做定时 这个listctrl问题怎么老没有人回答我?????? TQuery为什么没有这个属性? 哥哥们 ,谁能帮我? 高分,谁有奇域外挂? 急急!!winsock 在网速特别慢的时候,发送与发送之间有一个等待时间,这个时间是不一样的!!! 关于表单的先后顺序 万分火急,关于authorware的? 关于用ASP调用SQL 数据库存储过程的问题!高手帮忙 提议:共同作个小项目 急需解决字符串中的千位分割符去除的问题?在线等 修改客户端资料 AUTOCAD2002的授权号在哪里弄呀?? 网站首页跳出一个小广告或者通知的网页大小 初来乍到 怎么才能让DATA控件支持ACCESS2000? 可否推荐几个对考系分有帮助的网站?先谢了。 初学者的问题 项目开发:select,insert,等要不要直接写在程序事件里面,还是要用DW做操作?? 翻一次页需要80秒,有什么好办法提高效率? 将灵魂出卖给Microsoft?还是选择Sun One? 昨天在公车上目睹……(亲身经历) 用什么样的报表、表格控件好呢? 如何插入一个memo备注字段的纪录 ole字段相互负值,该怎样写呢? 关于delphi局部结构变量,初始化问题。这事儿说起来很惭愧。。。。 中软的叫我去作软件外包,请问给为老大我该去吗 为什么不能访问http://www.apache.org/了? [高难问题]如何让asp启动的程序,显示在服务器端,而不光是个进程 迫切需求Dundas Chart FOR ASP.NET 3.1企业破解版 世界首付是谁啊 五年级趣味图形题要简便的 晚山连树一千重的意思是《题词》 用放,山,高,水,长,虎,归,论,大,篇,阔,海,功,心,悦,人,天,行,赏,目,空,山,人,无,中,这些字组成八个成语,并每一个字都不重复. 壶赛道不平的冰面有助于高水平的运动员打出________球 “只缘身在此山中”是谁的诗句﹖ 现在世界上谁是首付 《第一场雪》表达了作者对第一场雪得喜爱之情,为了表达这种情感,作者引用了一些俗语,如:俗话说:“_______________.”还有谚语:“___________________.” 运用古诗词不识庐山真面目,只缘身在此山中写一段话 hating your 英语影片简介翻译美国西部巴尔的摩,老牛仔Moss(Josh Brolin 饰)在猎杀羚羊时偶然发现几具尸体,一个深受重伤即将渴死的人,一车厢海洛因和高达200万的现金——很明显,这是黑帮火拼同归于 这是什么植物……是不是兰草的一种?叶子尖像韭菜圆的,不是尖尖的 关于民间艺术的作文 今天晚上十点才会知道结果的翻译 “SB”用汉语怎么说? 民间工艺作文300字民间工艺作文285字 韭王是怎么种的 韭王和韭菜有关系吗 甲乙丙丁 甲乙朋友 丙丁亲戚 丁乙外人 一晚甲去乙家发生争吵 丙拿小刀切鱼 丁拿飞镖 刻字 不久甲走了乙死了 第二天丙去买鱼 丁不在家 谁杀人了有几种情况 求写民间艺术的文章(多一点) today 怎么读,最好用中文翻译! SB的中文怎么写啊? 阕,诗词里指的是什么? 10月12日月全食现在出现了 囧丁乙.看看,这个象什么~ 9点到次日一点是什么意思 唐诗宋词元是啥 我的妈妈:也为自己抚平心灵上的伤口(伤口什么意思 第一场雪课后习题解答快 今晚就要 快急 3Q1.讨论:课文是怎样把这场雪的“大”写出来的?从哪些语句可以感受到作者的喜悦之情?2.抄写好的语句,并说说好在哪里.3.收集有关资料,结合课文内 我们应该怎样宋濂的学习态度和从师尊师方式 作文:心灵深处的创伤(紧急)要求600字左右 “少年别有赠,含笑看吴钩”这句的解释和含义出自杜甫《后出塞五首》 当代中学生怎么样看待宋濂的这种学习态度和从师尊师方式,从反面角度说 描写南丁格尔的句子今晚就要, 捕鱼机的断机时间是什么意思 宋濂和杨时都很尊重老师,两人尊师的表现有何共同之处? 五花马,千金裘 眼底吴钩看不休, 善意的谎言作文,记叙文,字数600字到700字! 五花马,千金裘的下面两句是什么? 放山高水长 虎归论大篇 阔海功心月 天人行赏目 空山人无中 从放开始,经过格子里所有字.竖着.要组8个成语 请问2013年有日全食吗? 五花马,千金裘,呼儿将出换美酒,与尔同消万古愁.简单点不要说的太烦琐! 山高水长是成语吗?它是表现人物品质的吗?是表现什么品质的? 作者在老师面前毕恭毕敬,不敢出言,你如何看待这种从师尊师方式 五花马千金裘是谁的是主人的还是李白的 I like your four words I hate 若个书生万户侯?改为陈述句 平面向量Am=(m,1),Bn=(2,n),其中m,n属于{1,2,3,4},请列出有序数组(m,n)的所有可能可能不用列了我想问这一问,使得向量am⊥(向量am-向量bm)成立的(m,n)记为事件A,求其发生的概率. 天下谁与付吴钩, 男儿何不带吴钩,若个书生万户侯若用陈述句表达应是什么 设平面向量Am=(m,1),Bn=(2,n),其中m,n属于{1,2,3,4},请列出有序数组(m,n)的所有可 放.山.高.水.长 虎.归.论.大.篇 阔.海.功.心.悦 天.人.行.赏.目 空.山.人.无.中放.山.高.水.长虎.归.论.大.篇阔.海.功.心.悦天.人.行.赏.目空.山.人.无.中组八个成语.不重复 请君暂上凌烟阁,若个书生万户侯 译文 设平面向量a=(m,1),b=(2,n),其中m,n属于{-2,-1,1,2} 记使得a垂直b成立的(m,n)为事件A,求事件A发第一问记“使得a垂直b成立的(m,n)”为事件A,求事件A发生的概率第二问 记“使得a平行(a-2b)成立的(m,n) 英语翻译将军谈笑弯弓,秦王一怒击缶.天下谁与付吴钩?遍示群雄束手.昔时寇,尽王侯,空弦断翎何所求?铁马秋风人去后,书剑寂寥枉凝眸.昔有朝歌夜弦之高楼,上有倾城倾国之舞袖,燕赵少年游 南园 【唐】李贺 男儿何不带吴钩,收取关山五十州.请君暂上凌烟阁,若个书生万户侯.的欣赏和解释,谢南园 【唐】李贺 男儿何不带吴钩,收取关山五十州.请君暂上凌烟阁,若个书生万户侯. 已知甲数是乙、丙、丁三个数之和的1/2,乙数是甲、丙、丁之和的1/3,丙数是甲、乙、丁三数之和的1/4,又知丁数是260,求四数之和 有谁知道放,山,高,水,长,虎,归,论,大,篇,阔,海,功,心,悦,天,人,行,赏,目,空,山,人,无,中这25个字怎么样能组成8组成语谢谢 男儿何不带吴钩,收取关山十五州,请君再上凌烟阁,若个书生万户侯修辞手法 晚山连树一千重的意思是什么 伊朗处死16名反政府组织囚犯 回应边奥巴马参观学校旁听课程 揶揄国会议员义乌26日清晨发生爆炸凶杀案 已有一安倍称担心中国加强军备 日本应领导亚墨糖果厂爆炸现场搜救结束确认两人遇难浙江首次采用新评价体系对1300余所我军少将:中国发展军力绝不针对日本伊朗东南部武装冲突致17名边防人员死国航增加三条国际航线香港影片《狂舞派》纽约放映获好评官员强奸幼女案双方民事和解 受害人获卡梅伦成英国将不改变与美国的情报合作秘鲁最高法院就藤森在家服刑举行听证会卡梅伦称英国将不改变与美国情报合作关秘鲁最高法院就藤森在家服刑举行听证会卡梅伦成英国将不改变与美国的情报合作向世界传播浙江声音 港澳新闻媒体聚焦浙江义乌一集装箱起火 消防成功排除唐家璇:中日关系深层次原因在于彼此认赵启正:中日关系令人担忧 面临政冷经中国古代绘画展在伦敦举行中国将推进普通院校向职业院校转型 提第二届广东省优质农产品展览采购对接会菲美今日起在南海举行“卡拉特”联合军BBC天气预报字幕再出差错 下雨变强怎么开口再要一本不讨好的父亲角色猴子生活新华社:夯实禁毒工作长久之基暑期出游高峰到 安全意识来护航缉毒英雄金炫:天下无毒是我的“中国梦云南昆明今年前5月立案查办131件贪重庆破获一特大家族式贩运毒品案 单次广东纪检、检察首次联合进行跨国追逃工北京警方启动“网上治安综合治理”专项沃尔玛常德店劳资纠纷员工仲裁请求被驳江西登记在册吸毒人员逾5万 人数平均北京一男子“杀熟”诈骗60余起涉案5驻摩洛哥大使孙树忠在首届中非投资论坛“桉树第一大省区”广西调整树种结构初体操世锦赛倒计时100天 赛事主题曲美国涉毒嫌犯双手被反绑 从身后掏枪射
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘