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

使用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\中。
□山东 张嵘
10个最热JavaScript开源框架的社区活跃度对比 2013福布斯中国富豪榜:李彦宏第三、马化腾第五、马云第八 Storm又获东风,Hortonworks计划将其整合到Hadoop企业版 IBM CEO:预测高新技术 五个我最喜欢的方式 我伙呆,硅谷高级工程师年薪16.5万美金起 羡煞旁人的Supercell:Clash of Clans卫冕营收榜冠军 谷歌第三财季利润增36.5% 但摩托罗拉业务继续亏损2.48亿 针对应用开发者的几点建议:注意特征蔓延、加大用户评审…… Ubuntu中文衍生版UbuntuKylin 13.10正式发布 Web设计师和Web开发者之间的区别是什么? 在政府退出后,Google的量子计算机项目面临危机 SQL on Hadoop的最新进展及7项相关技术分享 联想:欲收购黑莓,还能在智能手机领域创造PC神话吗? 谁说Android开发者的收入依然不行? 代码可维护性的神秘面纱 MDCC 2013首批演讲嘉宾名单出炉 议题即将披露 MDCC2013:公开征集讲师和演讲主题 移动周报:IT人必看!9大最火移动开发技能 OpenStack H版发布 盘点2013:21个最火的云初创公司 从摩尔定律到原子计算,2013诺贝尔物理学奖背后的计算机技术 黄峻:从自制纸板键盘的孩子到Adobe技术经理的故事 Web开发正被颠覆 开发者需认清五大新现实 最发人深省的亚马逊面试题,你会如何作答? 所见即所得:8款实用HTML5开发框架 Groovy最受欢迎 Java系开发者更偏爱其他JVM类语言?(图) [开源专访]iNews创始人赵戈戈:36小时开发的PHP版HackerNews 使用Spring框架的12个开源项目 甲骨文仍旧“憎恨”开源软件 开发者应该避免使用的6个Java功能 不可小觑的Web开发编码规范 vj中如何连接sqlserver???(直连接不是jdbc-odbc) 请问四川的怎么查软考成绩啊 如何安装40G的硬盘?(急!!!!!!) 公告:XMLBBS项目暂停一个月 关于weblgic下jsp编程的问题!!! about Release?? 在非控制台中,怎么取得运行者给的参数。 高难问题:Delphi 程序如何向CBuilder编写的DLL传递窗体指针,在DLL中如何用 关于实现头像跳动的问题!!!???? 请问我们平时用的电话机,传输的是数据信号还是模拟信号? outlook express有毒? 哪位大下指点一下:html 带参数访问 servlet 小小调查,向有识之士请教~~~ 谢谢~~~~ 有没有一种线程安全的方法来取得一张表的元组个数? listview排序的,过来看看。。 有一获国家专利的中文输入法软件急于开发 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 如果教室里的温度是零上16°C而教室外的温度是零下16°C,那么室内外相差( )℃ 高中长期提问用户,标准状况下32G某气体的分子数目与22co2的分子数目相同,则气体的摩尔质量 钢的密度是多少?怎么计算他的重量?直径40mm,L200,密度是不是0.787是不是这样计算:2*2(半径)*3.14(π)*20(长)*0.787(密度)/1000(倍),或错在哪里?我既然把这个计算方法忘记了 锰粉和电解锰的区别及用途 现有32g某气体,该气体分子由三个原子构成,它的摩尔质量为64g/moL.若阿伏加德罗常数NA≈6.02x10的23次方moL的-1次方表示,则该气体的物理的量为 moL 标准状况下,气体的摩尔体积一定是22.4L/mol吗答案不是这个选项,能帮我举出一个反例吗 448mL某气体在标准状况下的质量为1.28g,该气体的摩尔质量约为多少? Q235B、Q345B钢板的最新价格是多少? 在标准状况下1mol任何气体所占的体积都约是22.4L 还是22.4L/mol? 这两个单位的区别? 标准状况下,112ml某气体的质量是0.14g,该气体可能是 (N2 WHY?) 标准状况下,5.6L某气体的质量为11g,其摩尔质量是_____ 任何气体在标准状况下气体摩尔体积都为22.4L/mol吗 标准状况下,0.112某气体的质量为0.14g,求某气体的摩尔质量及相对分子质量(写出过程) 标准状况下,8.5g某气体占有体积为5.6L,则此气体摩尔质量和相对分子质量是多少? 只有在标准状况下,气体的摩尔体积才是22.4L·mol-1 为什么错了 玻璃管的和筷子一样长的那种温度计可以当室内温度计测量室温用吗 在标准状况吓,5.6L某气体的质量为10克.则该气体的摩尔质量为?给我说说, 一块长方体钢板长2米宽1.5米它的重量是51.48吨已知每立方米钢材中7.8吨这块钢板厚多少米 在实验室里使用稀盐酸跟锌起反应,在标准状况时生成3.36L氢气,计算需要多少摩尔的Hcl和Zn 小明将冰块放入易拉罐中加盐.用筷子搅拌大约半分钟,用温度计测量罐中冰和盐水混合物的温度,可以看到混合物的温度低于0℃.这时他观察易拉罐下部和底部有白霜.关于该现象说法正确的是( 低合金高强度结构钢钢板 460C 10*2000*8000是什么意思主要是10*2000*8000 重晶石有没有硅成份,重晶石的价值比石英石高吗 小明将冰块放入易拉罐中加盐.用筷子搅拌大约半分钟,用温度计测量罐中冰和盐水混合物的温度,可以看到混合物的温度低于0℃.这时他观察易拉罐下部和底部有白霜.关于该现象说法正确的是( 低合金高强度结构钢的牌号主要有 哪三个部分组成 硫酸钡及白度都90以上,密度4.4的重晶石现在市场价是多少啊? 将冰块放于易拉罐中并加入适量的盐.用筷子搅拌要用手拿着吗可以放在桌子上吗?快. 请问低合金高强度结构钢Q345能与碳素结构钢Q235焊接吗?焊接以后会漏水, 重晶石,重晶石粉在防辐射中的运用重晶石砂浆和重晶石混凝土,用 以代替金属铅板屏蔽核反应堆和建造科研、医院防X射线的建筑物. 标准状况下,112mL某气体的质量为0.14g,则其摩尔质量为?相对分子质量为? 为什么说“无论外界气温如何,冰水混合物的温度始终是0℃”?请不要复制哦,给我很详细明了的答案好吗~外界气温升高冰水混合物不吸热吗?外界气温降低冰水混合物为什么不会结冰呢?谢谢 重晶石选矿设备哪个厂的好?重晶石选矿设备的型号有哪些?重晶石选矿设备的市场价是多少? 16锰钢板 6mm厚的 价格 在标准状况下 ,体积为8.96L的CO和CO2的混和气体共14.4g,混合气体中碳原子的个数是 请问谁知道锰过量对人体有什么危害? 35#钢板可以用什么材质代替,Q235、Q345、16Mn? 已知有4.4g二氧化碳,有—— 个摩尔原子 有——个碳原子 锰粉和铝粉的储存和对人体有什么危害请问各位专家,锰粉和铝粉的储存用什么来包装能有效的降低氧化程度,尽可能的保存时间长点,另外请问锰粉和铝粉对人体有什么危害,在粉尘不厉害的情 45#钢板和Q345钢板有什么区别 14.4g的co与co2的混合气体在标状下体积为8.96L,为什么平均摩尔质量为36g/mol,怎么算得 锰对人体有害吗 请问,用保温杯装冰块是否会损坏保温杯? 16Mn可以用什么材料替代 请问锰超标对身体有什么害处? 保温杯 冰块 温度因为要从江西带一种药到浙江,把药放在保温杯里再装满冰块`我想问,冰块在保温杯里是零下多少度? 16Mn材质,以下几种符号分别代表什么意思? 现在温度都零下了 怎么我电脑刚开机就65度 过5分左右就15度左右了?用鲁大师检测的今年十一配的机器 CPU 速龙3核 440 主板微星880GM-E41 说的是CPU温度刚开机过高 5分钟后就15度左右了 保温杯装冰水会影响保温效果吗 为什么在标准状况下,1摩尔的任何气体的体积相同 氨氮锰对身体有什么危害? 将冰箱中刚取出的温度为-8'C的小冰块放入盛有冰水混合物的保温杯中,过一会看到的现象是A小冰块补熔化,保温杯中冰水混合物的水,冰数量不变B.小冰块补熔化,保温杯中的冰水混合物有部分 1摩尔气体的体积为22.4L时、该气体一定处于标准状况吗?要有几句的理由 标准状况下,用1体积的水吸收_____体积的氨气后可以制得浓度为10.0mol每升、密度为0.920g每摩尔的氨水急 保温杯内冰水混合物的温度是否处处为0度? 同温同压下相同体积的某气体与H2的质量之比为22,则该气体的摩尔质量为 判断对错:零下10°C比零下5°C的温度高是对是错? 0.04mol某气体在标准状况下的质量为1.28g则该气体的摩尔质量为 A 64g B 32g C 64g/mol D 32g/mol 在同温同压的情况下,知道CO2,H2,CO三种气体的混合气体的摩尔质量为28,怎么求三种气体的体积比 零下5℃比零下4℃的温度()?A、一样B高C低 已知1.505×10²³个A分子的质量为8g,则A的摩尔质量是?A.8g B.32g C.32g/mol D.64g/mol -10摄氏度的冰块放在0摄氏度的水中,冰块会融化吗?-10摄氏度的冰块放在0摄氏度的水中,冰块会融?下列操作不会使汽水中已经溶解的二氧化碳逃逸出来的是 A.打开汽水瓶盖 B.搅拌汽水 C.加热汽
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn