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

用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环境下运行通过。
□江苏 蔡可训
Visual Studio C#创建Windows服务(Windows Service) C#取得Windows服务列表 C#编程自动安装Windows服务 C#安装/删除 .NET Windows服务 C#启动、停止、重启Windows服务 jQuery实现Ajax提交form表单的简单方法 字符串String与枚举Enum之间的转换[C#] Javascript统计DOM元素里文字的行数 C#从Web网站下载文件 C#得到区域名称列表 C#合并多个PrintDocument WpWidgetLibrary - Windows Phone的HTML部件库(Widgets) 让你不再害怕C语言指针 C语言概述-C语言教程 Turbo C 2.0集成开发环境的使用(上)-C语言教程 Turbo C 2.0集成开发环境的使用(下)-C语言教程 程序的灵魂—算法-C语言教程 数据类型、运算符与表达式(上)-C语言教程 数据类型、运算符与表达式(下)-C语言教程 最简单的C语言顺序程序设计-C语言教程 分支结构程序-C语言教程 循环控制-C语言教程 数值数组-C语言教程 字符数组-C语言教程 函数(上)-C语言教程 函数(下)-C语言教程 预处理命令-C语言教程 C语言指针(上)-C语言教程 C语言指针(下)-C语言教程 结构体与共用体-C语言教程 位运算-C语言教程 jbuilder+ weblogic的一个报错 后退时弹出对话框的问题? 请问各位 Internet Explorer_TridentDlgFrame 这个控件是个什么控件阿? 双引号问题--->>> 执行Set docB = doc.CopyToDatabase( db )就报错:您没有权限,为什么 我在安装vc6.0的时候遇到的问题!大家帮帮忙了! 如何配置网卡! 简单问题 今天高兴,散分啦!! 读取服务器上文件的办法 简单问题 求简单木马代码(vc)来者有分 如何将CString类型的字符串转换成Char *型的 求Crystal Reports8.5版本下载(不要9) 请帮忙看一下!! 在vb里调用我动态库的一个函数,结果发现在动态库中的局部变量未被正确初始化,这是为什么呢?其它语言都正常。 如何动态生成弹出式菜单???有点急! 9.12 阅读理解 (Unit 8) 如何动态生成弹出式菜单???有点急! 十六进制数与二进制数如何互换 請問團隊開發同一個系統代碼該怎樣管理(包括開發中) 请问各位,SUN公司是怎么个盈利模式? 打包以后问题多多. 在sql中怎么不能插入毫秒级的数据啊 急!!!如何得到上一个页面的ID值 使用axis写web services,生成客户端出错 ejb不能执行的问题? 关于showModalDialog方法生成的窗口问题 关于网上邻居 在vb里调用我动态库的一个函数,结果发现在动态库中的局部变量未被正确初始化,这是为什么呢?其它语言都正常。 SQL Server的恢复(100分相送) 哪里有BoundsChecker下载!带注册码的!知道的进来!然后给100分!不知道的不要来! 如何在SQL 语句中加入参数? 如何统计服务器上面的session实例的个数 中病毒,症状:打开很多应用程序,系统无反应,运行金山毒霸,系统无反应;点击“开始”-“关机”-“重新启动”,死机! 这是scanf的漏洞吗? 哪一个网站可以很好地查图书资料? web service 及 net remoting中调用com组件问题 当老师了,教计算机,有哪个的小孩敢拿来让我教 当老师了,教计算机,有哪个的小孩敢拿来让我教 控件被其他控件覆盖 听说JFreeChart的文档都是收费的,哪位高人用的熟,整理一个说明拿来看看.小弟谢过了 那为师兄能详细的介绍以下javasmart怎么用吗? 想换心情! 求救,硬盘故障!!! 高手快来!!不知是什么错误!! 讨论架构 求救,硬盘故障!!! 从一个TQuery中的数据如何快速的存放到另一个表中? 创建临时表空间时出错了 VC6的命令行工具 成语什么头什么什么 我是海外的.想知道中国那儿的英语程度.照片 He served for the young lady well哪里错了 英语翻译 1 我对正在那进行的实验一无所知 2.在国外取得的经验对我们有重大的价值 鼻叹气的成语 The mechanical properties describe how material responds,求翻译 已知对角线互相垂直且面积为5的四边形,其顶点都在半径为3的圆上,设圆心到两对角线距离分别为d1,d2,则d1+d2的最大值为多少? 译汉Time is the camera lens with which we hold the dream. Since the aim is ahead,don't look at the deer beside the forest. 若a满足x+lgx=4,b满足x+10^x=4,当x>0时f(x)=2,当x I never go past my old school but I think of mr. li.咋翻译?顺便再解释一下 自强不息中的强是什么意思 IAEA称与伊朗会谈富有成果 将于1美驻吉尔吉斯使馆收到不明信封 内装白金砖国家共议“气候变化对粮食安全不利消息称美考虑停止对盟国领袖监听 未做快讯:俄罗斯一架武装直升机在莫斯科市中国游客成海外大买家 凸显国内免税业中非民兵与前叛军爆发冲突 造成近40英媒:养老金制度需考虑气候变化 否则格陵兰岛取消铀矿开采禁令恒天然调查:无肉毒杆菌风险 应改进生省委常委分赴教育实践活动联系点参加指欧洲足坛转会短波亚航空难 印尼发现黑匣子信号章子怡:真我“不犹豫不纠结”去年灰霾天数下降去趟厕所蒸发5万曲意逢迎就注定失败王学兵“倍投”赢得百万元宝树 丹霞梧桐 跑到南雄“传媒之星”为广雅足球队授课决战广州之“巅”外国小伙夺冠触目惊心零式韩娱之天团系统超级城堡文贼打个电话给大侠重阳回到宋朝当皇帝方寸山神仙日子炼阵天才修仙记赤柱天后古庙旅游阳平关旅游安家大院旅游吉鸿昌旧居旅游庄乐峰旧居旅游李吉甫旧居旅游张勋宅旅游甘巴卡布热山旅游麦积山植物园旅游极地体验馆旅游密印寺旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘