用VB作浮动式图标提示按钮
2006-02-27 21:08:33 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鐐劤缂嶅﹪寮婚悢鍏尖拻閻庨潧澹婂Σ顔剧磼閻愵剙鍔ょ紓宥咃躬瀵鎮㈤崗灏栨嫽闁诲酣娼ф竟濠偽i鍓х<闁诡垎鍐f寖闂佺娅曢幑鍥灳閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡欏嚬缂併劎绮妵鍕箳鐎n亞浠鹃梺闈涙搐鐎氫即鐛崶顒夋晬婵絾瀵ч幑鍥蓟閻斿摜鐟归柛顭戝枛椤牆顪冮妶搴′簼缂侇喗鎸搁悾鐑藉础閻愬秵妫冮崺鈧い鎺戝瀹撲礁鈹戦悩鎻掝伀缁惧彞绮欓弻娑氫沪閹规劕顥濋梺閫炲苯澧伴柟铏崌閿濈偛鈹戠€n€晠鏌嶆潪鎷屽厡闁汇倕鎳愮槐鎾存媴閸撴彃鍓卞銈嗗灦閻熲晛鐣烽妷褉鍋撻敐搴℃灍闁绘挻娲橀妵鍕箛闂堟稐绨肩紓浣藉煐濮樸劎妲愰幘璇茬闁冲搫鍊婚ˇ鏉库攽椤旂》宸ユい顓炲槻閻g兘骞掗幋鏃€鐎婚梺瑙勬儗閸樺€熲叺婵犵數濮烽弫鍛婃叏椤撱垹纾婚柟鍓х帛閳锋垶銇勯幒鍡椾壕缂備礁顦遍弫濠氱嵁閸℃稒鍊烽柛婵嗗椤旀劕鈹戦悜鍥╃У闁告挻鐟︽穱濠囨嚃閳哄啰锛滈梺褰掑亰閸欏骸鈻撳⿰鍫熺厸閻忕偟纭堕崑鎾诲箛娴e憡鍊梺纭呭亹鐞涖儵鍩€椤掑啫鐨洪柡浣圭墪閳规垿鎮欓弶鎴犱桓闂佸湱枪閹芥粎鍒掗弮鍫熷仺缂佸顕抽敃鍌涚厱闁哄洢鍔岄悘鐘绘煕閹般劌浜惧┑锛勫亼閸婃牠宕濋敃鈧…鍧楀焵椤掍胶绠剧€光偓婵犱線鍋楀┑顔硷龚濞咃絿妲愰幒鎳崇喓鎷犻懠鑸垫毐闂傚倷鑳舵灙婵炲鍏樺顐ゆ嫚瀹割喖娈ㄦ繝鐢靛У绾板秹寮查幓鎺濈唵閻犺櫣灏ㄥ銉р偓瑙勬尭濡繂顫忛搹鍦<婵☆垰鎼~宥囩磽娴i鍔嶉柟绋垮暱閻g兘骞嬮敃鈧粻濠氭偣閸パ冪骇鐎规挸绉撮—鍐Χ閸℃ê闉嶇紓浣割儐閸ㄥ墎绮嬪澶嬪€锋い鎺嶇瀵灝鈹戦埥鍡楃仯闁告鍕洸濡わ絽鍟崐鍨叏濡厧浜鹃悗姘炬嫹

核心提示:凡是用过WINDOWSOFFICE的用户,都非常熟悉这种情况,用VB作浮动式图标提示按钮,把鼠标移到这个图标的按钮上,不一会儿在这图标的下方会显示一些简短的文字,comm2-yLEABEL1.Visible=FalseEndSub以上程序在ASTPIII+4/66D上,中文WINDOWS3.2,说明这个图标按钮的作用,
凡是用过WINDOWSOFFICE的用户,都非常熟悉这种情况,把鼠标移到这个图标的按钮上,不一会儿在这图标的下方会显示一些简短的文字,说明这个图标按钮的作用。笔者在工作实践中,用VB实现了上述功能,同时为了使图标按钮更具动感,笔者将图标按钮设计成浮动式图标按钮,即当鼠标移到图标按钮上方时,按钮会自动下沉;鼠标一离开按钮上方时,按钮又会自动浮起来。
1.建立含有如下控件的窗体:
控件NAME
CAPTIONVISIBLEBEVELWIDTH
窗体BOTTON-DEMO浮动式图标按钮演示程序'程序窗口
3D命令按钮COMMAND3D11'作为按钮的阴影,大小与按钮一致
3D命令按钮COMMAND3D23'该按钮与阴影稍微错位叠加
标签LABEL1
FALSE'显示图标按钮作用的文字
2.定义两个整型变量,用来存储按钮左上角坐标。
(1)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS(声明),系统进入窗体级代码的定义窗口中。
输入下列定义:
Dimcomm2-x,comm2-yAsInteger
(2)双击窗体,进入窗体装入事件代码窗口:
SUBFORM-LOAD()
COMM2-X=COMMAND3D2.LEFT
COMM2-Y=COMMAND3D2.TOP
COMMAND3D2.Picture=LoadPicture("C:\FPW26\FOX.BMP)'装入图片
ENDSUB
3.当鼠标移到按钮上方时,使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影,所以在视觉上就有按钮往下沉的感觉,同时激活标签显示该图标按钮作用的文字。
双击图标按钮,进入命令按钮MOUSEMOVE事件代码窗口:
SubCommand3D2-MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
command3D2.Movecomm2-x+9,comm2-y+9
LABEL1.BorderStyle=1
LABEL1.BACKCOLOR=&H0000FFFF&'显示文字的标签框底色为黄色
LABEL1.Visible=True
LABEL1.CAPTION=“演示”
EndSub
4.当鼠标一离开按钮时,就将按钮固定在其原来位置上,就可造成按钮上浮的视觉效果,同时关闭标签变量的显示。
双击窗体,进入窗体MOUSEMOVE事件代码窗口:
SubForm-MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
command3D2.Movecomm2-x,comm2-y
LEABEL1.Visible=False
EndSub
以上程序在ASTPIII+4/66D上,中文WINDOWS3.2,VISUALBASIC3.0FORWINDOWS环境下运行通过。->
1.建立含有如下控件的窗体:
控件NAME
CAPTIONVISIBLEBEVELWIDTH
窗体BOTTON-DEMO浮动式图标按钮演示程序'程序窗口
3D命令按钮COMMAND3D11'作为按钮的阴影,大小与按钮一致
3D命令按钮COMMAND3D23'该按钮与阴影稍微错位叠加
标签LABEL1
FALSE'显示图标按钮作用的文字
2.定义两个整型变量,用来存储按钮左上角坐标。
(1)在目标文件列表(OBJECT)中选择GENERAL,在过程列表(PROC)中选择DECLARATIONS(声明),系统进入窗体级代码的定义窗口中。
输入下列定义:
Dimcomm2-x,comm2-yAsInteger
(2)双击窗体,进入窗体装入事件代码窗口:
SUBFORM-LOAD()
COMM2-X=COMMAND3D2.LEFT
COMM2-Y=COMMAND3D2.TOP
COMMAND3D2.Picture=LoadPicture("C:\FPW26\FOX.BMP)'装入图片
ENDSUB
3.当鼠标移到按钮上方时,使用MOVE将按钮固定放在其原来位置的右下方。由于事先已绘制好按钮的阴影,所以在视觉上就有按钮往下沉的感觉,同时激活标签显示该图标按钮作用的文字。
双击图标按钮,进入命令按钮MOUSEMOVE事件代码窗口:
SubCommand3D2-MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
command3D2.Movecomm2-x+9,comm2-y+9
LABEL1.BorderStyle=1
LABEL1.BACKCOLOR=&H0000FFFF&'显示文字的标签框底色为黄色
LABEL1.Visible=True
LABEL1.CAPTION=“演示”
EndSub
4.当鼠标一离开按钮时,就将按钮固定在其原来位置上,就可造成按钮上浮的视觉效果,同时关闭标签变量的显示。
双击窗体,进入窗体MOUSEMOVE事件代码窗口:
SubForm-MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
command3D2.Movecomm2-x,comm2-y
LEABEL1.Visible=False
EndSub
以上程序在ASTPIII+4/66D上,中文WINDOWS3.2,VISUALBASIC3.0FORWINDOWS环境下运行通过。->
赞助商链接