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

用VB作浮动式图标提示按钮

HTML文档下载 WORD文档下载 PDF文档下载
用VB作浮动式图标提示按钮
作者:蔡可训
凡是用过WINDOWS OFFICE的用户,都非常熟悉这种情况,把鼠标移到这个图标的按钮上,不一会儿在这图标的下方会显示一些简短的文字,说明这个图标按钮的作用。笔者在工作实践中,用VB实现了上述功能,同时为了使图标按钮更具动感,笔者将图标按钮设计成浮动式图标按钮,即当鼠标移到图标按钮上方时,按钮会自动下沉;鼠标一离开按钮上方时,按钮又会自动浮起来。
1.建立含有如下控件的窗体:
控件 NAME
CAPTION VISIBLE BEVELWIDTH
窗体 BOTTON-DEMO浮动式图标按钮演示程序 ’程序窗口
3D命令按钮 COMMAND3D1 1’作为按钮的阴影,大小与按钮一致
3D命令按钮 COMMAND3D2 3’该按钮与阴影稍微错位叠加
标签 LABEL1
FALSE ’显示图标按钮作用的文字
2.定义两个整型变量,用来存储按钮左上角坐标。
(1)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS(声明),系统进入窗体级代码的定义窗口中。
输入下列定义:
Dim comm2-x,comm2-y As Integer
(2)双击窗体,进入窗体装入事件代码窗口:
SUB FORM-LOAD ()
COMM2-X=COMMAND3D2.LEFT
COMM2-Y=COMMAND3D2.TOP
COMMAND3D2.Picture=LoadPicture("C:\FPW26\FOX.BMP)'装入图片
END SUB
3.当鼠标移到按钮上方时,使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影,所以在视觉上就有按钮往下沉的感觉,同时激活标签显示该图标按钮作用的文字。
双击图标按钮,进入命令按钮MOUSEMOVE事件代码窗口:
Sub Command3D2-MouseMove (Button As Integer,Shift As Integer,X As Single,Y As Single)
command3D2.Move comm2-x+9,comm2-y+9
LABEL1.BorderStyle=1
LABEL1.BACKCOLOR=&H0000FFFF& ' 显示文字的标签框底色为黄色
LABEL1.Visible=True
LABEL1.CAPTION=“演示”
End Sub
4.当鼠标一离开按钮时,就将按钮固定在其原来位置上,就可造成按钮上浮的视觉效果,同时关闭标签变量的显示。
双击窗体,进入窗体MOUSEMOVE事件代码窗口:
Sub Form-MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
command3D2.Move comm2-x,comm2-y
LEABEL1.Visible=False
End Sub
以上程序在AST PIII+4/66D上,中文WINDOWS 3.2,VISUAL BASIC 3.0 FOR WINDOWS环境下运行通过。
□江苏 蔡可训
开源的ResearchKit:苹果将如何颠覆未来医疗? CocoaPods 0.36正式发布,实现Swift和iOS 8动态框架支持 C++入门学习书籍推荐 GitHub是如何征服Google、微软和其它公司的 约见越狱大神!2015 MSS移动安全峰会议程披露 Spark 1.3更新概述:176个贡献者,1000+ patches 从游戏设计到星际探险,微软HoloLens全息技术将改变什么? 触摸屏技术未来?详解Apple新手段Force Touch 专访云适配CEO陈本峰:紧跟HTML5热潮,Web组件化知多少? QQ音乐5.0全新设计过程要点解析 GDC 2015感悟:从0到1,VR投入手游开发路漫漫 TestBird发布手游真人众测平台——附中国手游兼容性测试白皮书 与用户的再一次连接,微软的免费升级计划背后 颠覆App!LayaBox用Flash开发重度HTML5游戏 WinHEC:微软小娜与小冰正式登陆Windows 10平台 Coursera工程师董飞:典型硅谷公司大数据实战分析 微软开源Visual Studio构建工具MSBuild 死而复生!下架6月,Launcher重回App Store 虚拟投影、高保真耳机!新型可穿戴家庭影院Dashbon Mask 【程序员电子刊精选】躺枪的互联网思维 Algolia的分布式搜索网络架构 对抗苹果?豪雅联合Google、Intel开发智能奢表 VR产品技术解析之三星Gear VR 雅虎北研即将关闭 人才抢夺战迅速拉响 移动应用中的AR开发,5款最受欢迎工具推荐! 中国黑客Pwn2Own再创佳绩 Keen Team三年五夺魁 星环CTO孙元浩:技术解析Transwarp Inceptor是怎样炼成的 第七届中国云计算大会将于6月3-5日在北京召开 两大设计模式 塑造高可读性的网页布局 IP争夺战:任天堂与DeNA联手意味着什么? UNITE 2015干货不断,三天日程抢先看! 有关界面设计的两个问题? drawString时怎样规定一个区域,在这个区域内的文字显示,超出的不显示 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? 什么是核辐射?核辐射的定义? KHS,NaCl,NaHSO4,Na2CO3,分别属于什么.钠盐:酸式盐:无氧酸盐:含氧酸盐:用以上四种物质填空 为什么断路器处于合位时地刀必须分开 地刀可以遥控吗 核辐射的现象的影响以及含义 1脱脂乳2白砂糖3乳酸亚铁4维生素A5维生素D第一题,属于营养素的有哪些?填序号.第二题,以上什么物质可以补充铁原素?填序号 断路器的N极为什么要设计成先合后分? 风( )( ),马( )( )的三子词语()里是叠词 三个完全相同的玻璃缸装满水,其中A只有水,B里漂浮这一只小鸭子,C水中漂浮着一只大鸭子,求它们的质量若把他们放到台秤上称量,可知他们的质量( )A (a)最大 B (b)最大 C (c)最大 D 一 模仿《一只贝》的作文 400字作文 用唐维波三子写诗句? 河里有4只大鸭子,5只小鸭子.后来走了5只鸭子,走的鸭子中至少有几只小鸭子? 擦过干了的油漆的抹布,油漆没擦下来,抹布还能在擦桌子吗,会不会通过皮肤吸入苯,抹布还能再用吗? 用唐微波三子写诗句? 若大鸭子5元1只,中鸭子3元一只,小鸭子1元3只.用100元能分别买大、中、小鸭子各多少只(要求每种至少买一只)的方案. 湿的抹布擦桌子为什麽比干的擦得乾净? 一个西瓜,切3刀(必须切透),切完是4块,吃完剩五块皮,问如何下刀?西瓜皮也算一块 宇宙大爆炸主要的依据是什么 该怎么引诱老鼠我们宿舍出现了老鼠,该怎么引出来?又该怎么毒它? 怎么切一个西瓜?切三刀,有四块,吃完有五块皮? 请问宇宙大爆炸的三个科学事实是什么啊 《一只贝》是谁写的急急急 怎样用一把尖刀将一个西瓜切成4块,吃完西瓜后还剩5块西瓜皮. 红色海绵球魔术怎么变的就是用手在桌上把一个红色海绵球在中间撵几下,变成两个,两个变三个,手里握出一大把来,十多个,怎么回事 单位让自己确定企业年金的缴费比例,最高10%,请问一下企业年金缴费比例越高越合适吗?如果辞职以后怎么办 高压大电解电容负负相串做无极性电容高压大电解电容器负负相串做无极性电容用会出现什么问题吗? 僵组什么词 企业年金缴费比例是多少? 脱氨基和转氨基过程在那个细胞器或哪些细胞器里进行? 我想知道到,我在此先感谢你们了2K 仿写 一只贝 钳形表怎么查电流 用下面的字组词 勉( )( )( )( )( ) 僵( )( )( )( )( ) 谁知道一只贝是谁写的 丽丽和佳佳做游戏,在一个边长为1dm的正方形地上画地盘丽丽先画去正方形的1/3,佳佳画去剩下的1/2,然后丽丽又画去剩下的1/3,佳佳又画去剩下的1/2 ,这样两个分别画3次,整个正方形还剩下 2K+ 中2的意思 给下列字换偏旁组成字,再组词:僵、例. 芳芳和丽丽有两条都是2米的彩带,芳芳减去三分之二米,丽丽减去三分之二,余下的彩带,那条长? 怎样可以减少静电 加偏旁,组成新字,并组两个词.僵 感 既 干旱受受什么天气系统影响? 两质点间只有内力,角动量是否改变 我想买个iPhone5s.现在iPhone6要出来了.您会降的.我到底现在买还是等iPhone6出来再买. 三防服等防核辐射的服装能防多大的核辐射呢? 既然相对质心静止的参考系是零动量参考系,那么对于这样的参考系,角动量是否也恒为零(或者恒不变)? 我是买iphone5S呢?还是等iphone6出来买iphone6有没有人能告诉我啊最好分析的详细一点!我现在很郁闷啊! 椰子落入海水中会下沉吗? 零动量参考系是什么 山寨什么意思嘛 金汤湾海水温泉怎么样 初动量为0的系统质心位置变化吗?初动量不为零的系统质心运动情况如何? 山寨意思 写不同的词并造句 瓷器形容人是什么意思? 英语翻译 :总之世界上没有任何东西比光的传播速度更快 建筑施工为什么要设护坡道?你怎样建筑施工? 形容人像瓷娃娃是什么意思 僵怎么组词 狄丽丽丽丽丽丽丽是哪首歌 哪里能下载《探索发现之宇宙大爆炸》 花王纸尿裤区分?1、日本本土花王;2、在中国销售的日本原装进口花王(包装侧面贴有中文的一张标签,其他地方均日文);3、台湾版花王、4、香港版的花王;以上几种花王,都有什么区别?产地 纽约股市三大股指24日上涨报收埃及又一次缩短宵禁时间人民币即期汇率连破四关口 逼近“5时七部委9负责人“应考”科技经费使用北京地铁10号线一个月故障五回 官方南宁:警方在拆违现场遇暴力抗法被迫用美“杀死中国人”节目被删 万人在白宫北京脖颈卡护栏女子恢复呼吸 丈夫否认印度少女回家途中遭轮奸 事后遭歹徒焚沈阳“土豪别墅”未批先建 系村委会主部分赣南脐橙由青果催熟 染色打蜡后上星巴克CEO对中国媒体抱怨咖啡售价高四川平江县一粮站站长组织公款旅游被撤“神医”胡万林医死人细节:每天喝汤后院士揭露伪大师治病行骗:治疗效果系心法国之后是德国 媒体调侃下一个愤怒盟美遭盟友“愤怒围城” 昔日帝国实力大土硬顶别买中国导弹警告 已用中方导弹默克尔手机或遭监听 愤怒质问奥巴马连美国13岁少年持玩具AK-47 遭两北京两居室价格够买塞浦路斯别墅及永居昨日之最偷挖10多米地下室致北京一路面塌陷开封高档小区5户居民家中遭贼 被盗春节后周口增开至广州临客 正月初五开解读河南两会政府报告 城镇参保居民得郑州交运集团250辆大巴设WIFI 河南进入“四铁”联运新时代 “米字形郑开城铁宋城路站今年扩建 购票、乘车郑州市暖冬行动组给外来务工人员安置点解堵河医立交搬走郑大医学院 这民间“探访河南省政府工作报告起草组成员 揭河南市民订两份刊名不同杂志 内容一模中东部持续大范围雨雪天气 安徽江苏局F 35B经历极端冷冻测试立威廉当爸 女儿与\"小贝\"爱女同解放军审计82名军职以上干部 21名淡化GDP成地方两会“新常态” 26公益广告:中华有福 孝老是福住房公积金支付房租条件放宽 无需提供大雪造成路滑发生多起剐蹭事故 交警:郑开城铁昨日正式运营\"满月\" 客
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘