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

用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环境下运行通过。
□江苏 蔡可训
动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 利用VB5开发ActiveX控件 利用VB三维面板控件设计流动条 浅谈用VB6.0编写BO程序 巧用Visual Basic的TIMER控件 VB取得控件绝对Top值 VB如何解决VB中的Grid 控件的打印问题 VB如果自定义 MsgBox 的按钮,标题等 VB如何创建数据绑定控件。 VB如何解决VB中的Grid控件的打印问题 VB如何强制文件对话框再次读取正确的磁盘? VB如何取得RichTextBox控件中光标所在行的值? VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭? VB如何使用VB控件Commom Dialog VB如何用VB6写COM组件(二) VB如何用VB6写COM组件(一) VB如何在VB中使用Delphi的控件 VB如何在运行时动态增加控件 显示和隐藏鼠标-VB资料 VB用ActiveX Control Pad VB用API函数改进ListView 控件的显示效果 用VB6.0中文版进行DHTML程序开发 用VB编写标准CGI程序 不重新分区可以吗? 如何改变桌面快捷图标,如果调出.ICO这个作为程序的快捷图标 一个难题 vb 高手们,能加我为你们的好友吗,我是初学者? 判断合法的email? 一个关于游标的问题 强烈推荐:rh linux 8.0 投票选举:谁为水源脸皮第一厚之人。 如何在dehpi中调出本地计算机的IP地址? 推荐一本书!!! 直连SQL SERVER2000怎么写代码?SQLCA.DBMS= "MSS microsoft sql server 2000" SDK实例的书有没有买的,请各位前辈推荐几本,谢谢了! 谁知道免费starcraft站网地址 一个程序开始端像dehpi会有一张图片以便缓冲,问这张图片怎么在程序中设制? 论坛全新开张,欢迎捧场 怎么将asf文件转换成avi文件 存储过程的问题? 如何在PictureBox控件中显示数据库中存储的图象 地址栏不见了!!! @@@@@@@@ TreeView 的问题 @@@@@@@@@@@@@@ 请教:哪里可以下载工具栏控件 怎样不用Delphi6的那个qtintf.dll啊? 对多语言问题的总结,集各位CSDN的智慧,让大家共享之 怎样将string类转化为其他类型,例如... 请问在哪里可以下在IIS 5.0 for Windows NT 4.0? 今天我才明白,我不是那么绝情,那个女孩竟然在我的心里留下了一份震撼 如何检测和修正ghost文件? Friecin(雪客)进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) 想做程序员,考研如何选择 AnsiCompareStr和CompareStr? Behard进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) CDatabase类里获取数据库名的函数是哪个啊? 请问RichEdit中如何在代码中修改选中字符的字体和颜色? 安装 WebSphere应用服务器问题 我发现我怀孕了,不知道是谁的!:( 中国电信 为什么我的打印机打印时会出现重影?? 我怎么把他们一一显示出来在listbox里?代码写出来! 请问BOOT扇区中各个数据的意义。。 有没有一次搞定具体时间的控件 tomcat配置简单的问题 问题:十六大代表需不需要办暂住证? 求教COOKIE的用法! JBuilder 7中如何安装一个Server ### 升级内核 ### 还有一个问题(树型列表) 哪里有Visual InetDev 6.0 下载? "分"到哪里去了? 有关于赋值的问题 技术的挑战,在线等待 有关csdn的一个小的问题? 英语翻译In this study,an adaptive direct slicing method spreading melted polymer or resin on top of hardenedcomplete with the algorithm for calculating the thickness of layers.Laminated object manufacturing (LOM) uses lasereach layer is proposed. The Smiths____on vacation in China at the moment.A.isB.amC.areD.was选哪道以及原因谢谢了 The word have't the perfect person.what do you think about it? 英语翻译内容如下:今年的5月1日至10月31日,中国成功的举办了世界博览会,它对于整个中国经济有很强的推动力.上海,因为成功的承办而获得可观的经济效益,加速了城市基础建设,扩大了旅游 翻译:to tell the truth,many mistakes we made could have been avoided Who do you think is the right person for the english monitor of your class Gina or Ann?Write down yhe reasons.翻译 Please come a little next time. 中翻译英We made love have been too comfortable, He is like his father__ __ __ (在He is like his father__ __ __ (在许多方面) 猜成语!1.思想一致,共同努力.2.理由正确充分,说话的气势很盛.3.只顾眼前,得过且过. l also learned that one can only go three days without water.怎样翻译成中文? 某同学在做“验证凸透镜成像规律”试验时,光屏上有教室窗子的像.这像是如何形成的? don't be late next time ,Tom.如果回答是:是的,我不会迟到.用yes 还是no? 英语翻译另外请问,“我永远不会令你们失望的”翻译为"I will never make you disappointed"对吗? 整理器材时,光屏上有教室窗户的像,这像是怎样形成的 Tom won`t be late next time 改为反义疑问句 Tom wom`t be late mext time,______ _______?2Lily knew me.改为反义疑问句Lily knew me ,____ ______?3The computer coer her $800 last Sunday 改为同义句She______$800 ______the computer last Sun 求翻译Levos./Only Lou,that can for these we will stay in the hotel for two days 保持原句意思不变 Don't be late next time. 英语翻译感动!史上最强的父亲今天看完这个视频,我都哭死了,太感人了!歌曲配的特别好,是美国的mercy me 唱的〔I Can Only Imagine〕我现在想知道这个歌曲的中文翻译歌词, 同义句转换:what kind of language is that? --------- ----------- ---------- --------- is that?同义句转换:what kind of language is that? --------- ----------- ---------- --------- is that? Tom,you should try ______ late for class next time!A.not to be B.not be C.not be 房屋的建造,意味着人们实现了定居生活.定居生活给远古居民的生活带来了什么变化? We will stay __the end if next weekA.untilB.onC.inD.at ____ in the mountains for a week,the student were____ in the mountains for a week,the student were finally saved by the police A.Having been lost B Lost C Being lost D Losing 用唯物史观知识分析,为什么说我国经济体制改革是社会主义制度的自我完善 what kind of name is that 翻译? in the mountains for a week ,the two students were finally saved by the local policeA Having lost B lost C being lost D losing有几种大家回答的比较多的答案,having been lost ,lost,having lost ,还有,为什么不可以用being lost? This is the only way I can think of _____(solve) the problem.Whose is the car ______(park) at the school gate?The is the best novel of its kind ______(ever write).If you are ______(succeed) ,you must persevere.The bell indicating the end of the class ——the hotel___we will stay in is right on the beach ——really?It's perfectA.what B.that C which D.who The sport meeting we are looking forward to (come)soon适当形式 This is the way in which they solve the problem.这里的in which可否换where?they solve the problem in the way是从句,主谓宾都有了,那就是缺副词了,定语从句里,关系副词只有where,when ,why,而且where = in which,那里这里 We will stay at the best hotels .中“hotel"为什么要用复数?最好的.不是只有一个?但又好像the后要加复数的... 一个英语小作文You and your partner are visiting a friend in the mountains for a week.Write a packing list.Include all the things you want to take.8到10句就行了 英语翻译是不是have prove 这 有错误? Hi,next week I will come to Malaysia Kuala Lumpur for four days,I will stay at one world hotel.Could u please give me some advice that park shopping where I should have a look...thanks. 嫉妒和妒忌那里不同? 6._____ in the mountains for a week,the two students were finally saved by the local police.A.Having lost B.Lost C.Being lost D.Losing为什么不选c 这个是不是属于省略句的原因 因为 省了 after the two students were lost 所以因为 英译汉we may have proved great adventurers,we may have proved great adventurers,but we have done te greatest march ever made in the past ten years.应该是we may not have proved …… 嫉妒和妒忌的区别是什么? that or this The sign on the wall means we should ______(smoking)here.适当形式填空.用no smoking还是not smoke?老师说notsmoke,没讲原因,说一下原因.不能用标志名:No smoking,应为有should(应该). 读了 得过且过 这个成语故事 你从中明白了什么/ only in this way _____ cross the river at that time.a.will he b.he can c.could he d.he could 为什么 the sign on the wall means "No----".We shouldn't ----here.a.smoking,smoke b.smoke,smokeing c.smo 读了 得过且过 这个成语故事后 你弄懂了哪些问题? 嫉妒还是忌妒? No smoking means we mustn't smoke here为何是NO smoking 不能是Not smoke ,No smoking,Not smoking 你还知道哪些成语故事?选择一个成语故事写下来,你们帮我写一个好不好 忌妒和妒嫉有什么区别? the sign means “no smoking”对no smoking提问 哪位大哥大姐帮我用英语翻译一段话,急求~~~~不要求百分之百翻译,是那个意思也行...拜托了~~~下午就要拿走哩!正文如下:今天能来参加这个活动我感到非常荣幸,因为我坚信"生命在于参与",尽 乡村人口涌入城市对城市发展带来的影响 英语翻译风景如画的乡村将有助于你忘记所有的烦恼 英语翻译XXX为我单位员工,于2011年11月29日在我单位工作.他的女儿(护照号为XXX)在2013年1月16日到2013年1月28日赴欧洲旅游,他的女儿旅游期间费用由我单位员工XXX自行承担.希望您能给与签证! The Smiths will leave for China in the spring of 2012.这句话的spring前为什么要加the. 小六英语( ).Did you have milk and bread ____ breakfast?A.of B.for C.to D.about 英语翻译低速轴零件的加工表面由圆柱面、螺纹孔、键槽等组成,键槽面、圆柱面对加工精度要求较高,零件材料为45钢,需经调质处理,零件的加工一般先根据图纸进行工艺分析,然后选择合适的 The smiths have been_______China for two years already.A.in B.to C.at D.forWould you please make _____for this old man?A.a room B.space C.place D.spaces which person or event do you think had the greatest influence on shaping British culture?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘