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

用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环境下运行通过。
□江苏 蔡可训
Android游戏开发之旅14 游戏开发实战一 Android游戏开发之旅13 Sensor感应示例 Android游戏开发之旅12 Sensor重力感应 Android游戏开发之旅11 View中手势识别 Android游戏开发之旅十 位图旋转 Android游戏开发之旅九 VideoView类剖析 Android游戏开发之旅八 SurfaceView类实例 Android游戏开发之旅七 自定义SurfaceView Android游戏开发之旅六 自定义View Android游戏开发之旅五 Path和Typeface Android游戏开发之旅四 Canvas和Paint实例 Android游戏开发之旅三 View类详解 Android游戏开发之旅二 View和SurfaceView Android游戏开发之旅一 长按Button原理 Android程序内存管理必读 Android按键事件映射表和转义符对照 Android Intent大全更新到API Level8 Android中Intent对应的category列表大全 Android中内嵌字体实现个性化 TextView多行本文滚动轻松实现 获取和设置ListView的选择项 EditText中显示隐藏Android输入法窗口 自定义ListView行间的分割线 Android程序完全退出的三种方法 WebView使用技巧和介绍 EditText仅允许特定类型数据输入 自定义Android应用的访问权限 android.text.format文件大小和日期解析类 Android Rootkit相关揭秘 androidmanifest.xml高级属性解析 根据packageName构造Context COM组件安装! PB 的新问题,有性趣请进!!!! 新手,键值问题 这样的问题没人会????? 大家帮忙看个程序 ACCESS数据库的小问题。 怎样使自己的问题成为热点问题的绝招! 关于c++builder中scanline的应用 跨数据库查询,请教各位高手! 这样的问题也没人会????????????????? 如何使用QuickRep制作简单报表?不牵涉任何DataSet的 关于Transaction的问题 请问 ListCtrl Item里的 Checkbox 被点击时对应的消息是什么? 100分~~100分~~高分求购。。。我也‘倾家荡产求购优秀系统分析案例’(paste from yyzh)。。。100分~~ 全中文的用Rose做的实际项目的UML模型! 救命!!我的机器不能下载东西了,怎么回事?? 求教邮件编程问题,邮件客户端如何实现“在服务器端保留备份的功能“? ciscoworks 各位大哥大虾,VC下如何用ADO连SQL SERVER?(急) ShellExecute和CreateProcess有什么区别? 关于海量数据、最有效率的排序、硬盘缓冲与映射、专业数据库的讨论 如何用VB编启动是可以带参数的程序呢?(例如:我自定义了一种文件,双击用我的程序打开,程序自动会打开这个文档 昨天我过生日,今天分蛋糕给大家 请问哪有《java图形设计2Swing篇》可以下? 我要用一个数据库去实时访问另一个据库,我该怎么办 URLghj1976@csdn.net----别吓我,有请您老人家! 谁给我介绍一下sql server7.0教材的比较好的下载网站,我给他20分。 我都急死了,到搜索引擎里搜到的好几个站点都不能用,到底哪儿可以当到3DMAX? 谁有写的比较好的邮件收发程序? 一个微软证书的私钥问题 微软证书的私钥问题 求助,简单问题 男人最快乐的十个瞬间! solaris下装oracle8.1.6遇到jre环境问题 怎抹加分?我准备给别人加40分,可我最多只能加20,请问另外20分怎末加分,为此我可能已得罪了一些人了。 请教下载的问题 如何在运行时动态修改Quick Report的打印机设置? 怎样做一个接受拽拖的LISTBOS(例如,把资源管理器里的文件拖到上面,就自动增加一项 ,就是拖的文件名) 怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊 用C写DLL 请问:airhorse(编程至尊宝),infopower3000的注册码可以用于商业目的吗? 结构化异常处理 linux下如何配置内置Mondem? red hat linux7.0下安装oracle8.1.6遇到问题 我是菜鸟,问一个关于类的问题 问题:TWebbrower中,InnerHtml和OuterHtml以及InnerText和OuterText之间的区别 (加急)我要傻了,快救命啊!高分求救!!(回答正确者尽管开口要分!) ==============VC中怎样调试控制台程序=============? 再问:MS SQL6.5 的.DAT文件怎么恢复,请高手帮忙,(100分绝对对线) 白桦林 我需要自定义一个鼠标按下的事件,可我不知道该去那个参数?有人能告诉我吗? 若根号2x+1+[y-2]²+ |z-1|=0,求代数式(xy)²的值 若代数式根号(2-a)的平方+根号(a-4)的平方的值是常数2则a的取值范围 已知a为实数,求代数式根号a+1减根号4-4a加根号-a²的值 设x=1/根号3-2,y=1/根号3+2,求代数式X²﹢XY﹢y²/x﹢y的值 无论x取任何实数,代数式根号x的平方减6x加m都有意义,则m的取值范围是多少? 已知x=2-根号3,y=2+根号3,求代数式x平方+y平方的值 我在百度查到了你写的这道题的答案.x+y=4、xy=(2-√3)×(2+√3)=2²-(√3)²=1请问这个步骤怎么来的 已知x=2+根号3,y=2-根号3,求代数式[(x+y):(x-y)-(x-y):(x+y)]*(1:x²)-(1:y²) 的值代数式图片 已知x=二分之一(根号7+根号5),y=二分之一(根号7-根号5),求X的平方-XY+Y的平方的值 当x=7时,求代数式根号x+5+根号x-4-根号4x-1的值 当x=根号2007-1时,求代数式x²+2x+3 已知y=二分之一+根号下2x-1+根号下1-2x,求x的平方+xy+y的平方的值 当x=( )时0,代数式根号(4x+5)有最小的值,其最小值是( ). 当X=根号5-1时候求代数式X²+2x-5的值 已知实数xy满足|x-根号2|+根号(y+根号2/2)=0,求代数式x^100·y^101的值 已知x=1+根号5,求代数式x3-2x2-4x-5的值 已知a-b=3,a+b=根号7.求代数式a²+b²及ab的值 【内有图片】 已知x=根号2+1,y=根号2-1,求代数式x-根号xy分之x-2倍根号xy+y的值.不是很清晰哈,破手机. 若根号下x加1乘2减x等于根号下x加1乘根号下2减x成立化简x加3的绝对值加根号下x*x减4x加4等于 当x=4-根号3时代数式x²-8x+19的值为 已知实数x,y满足关系式│x+y-3│+根号(xy-6)=0,求代数式(x+2y)/y-x的值 化简:根号6减根号2的绝对值加根号2减1的绝对值减3减根号6的绝对值. 已知根号X加根号X分之一=3,求代数式X分之X平方+1 当x=(1+根号2011)/2,求代数式4x^3-2014x-2010的值 若实数xy满足x^2+6x+根号(x-y+1)+9=0 求代数式((根号1/x-y)+(根号1/x+y))÷x/x^2-y^2 若代数式x-1分之根号x有意义,则实数x的取值范围是如题 已知x∧2-4x+1=0,则代数式根号下x+1/x+3的值为? xy是实数,且y=根号x-4+根号4-x+1/3,求代数式9y*2-6y+1的值. 若代数式3次根号下x分之1在实数范围内有意义,则x的取值范围为—— 当X=根号3-1时 求代数式X²+2X-3的值 设x=根号三减2分之一,y=根号三加二分之一,求代数式x+y分之x2+xy+y的值好的 设x=1/√3-2,y=1/√3+2 求代数式x2+xy+y2/x+y看的懂吗 若代数式根号x-3有意义,则实数x的取值范围是如题. 已知a=根号3+1,b=根号3-1求代数式a²b-ab²的值 先化简在求值;(x=2)平方—(2x—1)(2X—1)+4x(x—1),其中x=—2的根号下 求使代数式根号1-x+根号1-2x分之1+2+x分之1有意义的条件 已知:a=3倍的根号2+2倍的根号3,b=3倍的根号2-2倍的根号3,求代数式a²b-ab²的值. 已知1 当x=根号2013-1时,求代数式x的平方+2x+2的值 已知x-1=根号3,求代数式(x+1)²-4(x+1)+4的值 已知xy小于0 ,则根号x平方y 化简后 已知代数式x的平方+y的平方+2根号2x-4y+根号42,这个代数式是否存在最大值或最小值 已知a=-根号7+3分之2,求代数式a³+5a²-4a-6的值 已知0 已知x=(根号5-1)/2,求代数式x³+2x²-1的值 已知x-2=-根号3,求代数式(x+1)²-6(x+1)+9的值. 先化简再求值:(3x+2)(3x-2)-4x(x+1)-(2x-1)的平方,其中x=根号3 已知mn是方程x²+2√2+1=0的两根,则代数式根号下(m² +n²+3mn)的值为为什么答案不能得-3根号9不等于±3吗 已知x=根号5+根号2,y=根号5-根号2,求代数式x²-xy+y²的值 根号((X+根号2)平方+1/4)减根号((X-根号2)平方+1/4)=2,求X根号((X+5)平方+Y平方)+根号((X-5)平方+Y平方)=10,求X 若m为根号下2的小数部分,求代数式m²+m+根号下2的值. 求详细过程 若a,b分别表示6减根号5的整数部分和小数部分,求代数式2ab减b的平方的差要求有过程. 已知x=根号2减1分之根号2加1,y=根号3加1分之根号3减1,求x的平方减y的平方 已知m,n是有理数,关于x的方程x²+mx+n=0有一个根是根号5-2求m+n 已知x,y分别为8-根号11的整数部分和小数部分,求2xy-y的平方的值 已知x=2减根号3分之1,y=2加根号3分之一,求3x平方+5xy+3y平方 已知x=根号下2011根号外再-1,求代数式x²+2x+5的值、 已知y=根号(x-8)+根号(8-x)+18,求代数式[(x+y)/(根号x+根号y)]-2xy/(x根号y-y根号x)的值 已知y=x+2分之根号x的平方减4加根号4减x的平方加2012成立,求x的平方加y减3的值 已知x=根号2015-1,求代数式x²+2x-2015的值 已知Y=根号X-8+根号8-X在加18,求代数式X-Y/根号X-根号y再减去2xy/x倍根号y-y倍的根号x的值. 若a为实数,求代数式√a+2-√8-4a+根号下负a的2次的值
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn