首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试
MPA考试 | 中科院
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT
新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证
华为认证 | Java认证
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格
报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师
人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平
驾驶员 | 网络编辑
卫生资格 | 执业医师 | 执业药师 | 执业护士
会计从业资格考试会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师
注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师
质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师
设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师
城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏
您现在的位置: 考试吧(Exam8.com) > 计算机等级考试 > 计算机二级 > VB > 复习资料 > 正文

计算机等级考试二级VB:作浮动式图标提示按钮

来源:考试吧Exam8.com) 2010-8-19 16:36:46 考试吧:中国教育培训第一门户 模拟考场
计算机等级考试二级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 琕ISUAL BASIC 3.0 FOR WINDOWS环境下运行通过。

  相关推荐:2010年9月计算机等级考试精华备考资料汇总
       2010年计算机等级考试二级公共基础知识教程
       考试吧:2010年计算机等考二级VB预测题汇总
       2010年全国计算机等级考试全攻略(一至四级)
文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。