用VB制作即时动态按钮

2016-02-19 21:46 92 1 收藏

今天图老师小编给大家展示的是用VB制作即时动态按钮,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

【 tulaoshi.com - 编程语言 】

首先,在主窗体上生成两个大小一样的按钮Command1和Command2,将它们的Style属性都设成1-Graphical,将Command1的Picture属性设为d:vbicomail01a.ico(变化前的图案,一个关闭的信封),将Command2的Picture属性设为d:vbicomail101b.ico(变化后的图案,一个打开的信封)。
  其次,在主窗体的PrivateSubForm-load()中加入以下代码:
  Form1.Command1.Top=Form1.Height-7000
  Form1.Command1.Left=Form1.Width-1300
  Form1.Command2.Top=Form1.Height-7000
  Form1.Command2.Left=Form1.Width-1300′使这两个按钮重合并放置在窗体的右上角
  Form1.Command1.Visible=TrueForm1.Command2.Visible=False
  ′隐藏Command2按钮,显示Command1按钮
  再次,在Command1-MouseMove事件里加入以下代码:
  IfForm1.Command1.Visible=TrueThen
  Form1.Command1.Visible=False
  Form1.Command2.Visible=True
  EndIf
  ′如果鼠标移到按钮上就显示打开信封的图案
  最后,在Form-MouseMove事件里加入如下代码:(如果按钮放置在图件框上,就在Picture1-MouseMove事件里加入代码)
  IfForm1.Command1.Visible=FalseThen
  Form1.Command2.Visible=False
  Form1.Command1.Visible=True
  EndIf
  ′如果鼠标移到按钮外就显示关闭信封的图案
  经过以上几步后,你的窗体上就有了一个即时的动态按钮,这个按钮的Click事件为Command2-Click。本程序在P100、32MRAM、中文版WIN95上运行通过。->

来源:https://www.tulaoshi.com/n/20160219/1627135.html

延伸阅读
标签: Delphi
  电脑报社出品的《硬件大师》的安装界面见过吧,当你把鼠标移到安装提示上时会发出声音,在上面按下鼠标左键也会发出声音,而Delphi30安装界面的安装提示虽然有动感却没有声音,能不能二者兼得?答案是肯定的,用Delphi只须编写几句简单代码便可轻松实现上述功能。 原理:通过标签和表单的OnMouseMove事件判断应何时改变、恢复标...
微软的VisualBasic确实是个好东西,编写应用程序快捷高效。但是入门容易,想玩转它可不简单。我个人学VB就深有体会:一个人在VB的殿堂里摸索是何等的辛苦啊!有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍,也未必能通过,真恨不得一枪崩了VB。所以,我连这一点点小技巧都不敢独品,拿出来与大家共享,也算抛砖引玉,引出更多、...
标签: 电脑入门
看到图1中的水晶按钮,你可能以为是在Photoshop之类的专业图形软件中制作,然后再插入到这个演示文稿中的,其实我们可以利用PowerPoint的绘图功能来制作。这样不用处理插入图片的背景,而且非常简单,只需三步操作即可。 启动PowerPoint 2002或2003,新建一个演示文稿。 新建演示文稿 步骤1:绘制圆形底图 单击绘图工具栏的椭圆按钮,按...
在多媒体开发中,好的按钮往往会给创作的作品增色不少。不过,一个专业的多媒体按钮至少应具有四种状态:松开、按下、滑过和无效。对于这种多状态按钮,Director提供了极其简便的制作工具,以下就是这类按钮的具体制作步骤: 素材的准备 图1     启动Firework 4.0,新建一大小为100×70、背景为透明的文件,利用矩形...
对于下雪的景象大家可能都不陌生,我们还是用VB来制作一个下雪的景象吧。其实制作这样一个下雪的景象并不复杂,它的原理是首先在底色为黑色的屏幕上随机画出许多白点(雪花),然后使这些雪花不断地向下移动(重画),反复循环,就成功地模拟了下雪的景象。下面是这个小程序,你可以修改其中的一些数据调整雪花的密度和雪花落下的快慢。 双...

经验教程

760

收藏

45
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部