关闭

举报

  • 提交
    首页 > 编程开发 > 正文

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

    信息发布者:wch9210
    2018-01-04 18:25:50    来源:51自学网 http://www.51zixue.net    浏览:1    回复:0    点赞:0

    凡是用过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环境下运行通过。

    0
    !我要举报这篇文章

    用户评论
    声明 本文来源:鲁南新商企,转载请注明出处。本站转载的其他来源的文章不代表本站完全赞同其观点或对其真实性负责。本文如涉及侵权请及时联系我们,我们将在24小时内予以删除!