用VB制作即时动态按钮

2016-02-19 21:46 123 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上运行通过。->

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

上一篇： Win10 Build 10134简体中文版曝光
下一篇：利用MS AJAX 扩展服务器端控件

看过《用VB制作即时动态按钮》的人还看了以下文章更多>>

VB实现按钮浮动效果

标签：编程语言网络编程

微软的VisualBasic确实是个好东西，编写应用程序快捷高效。但是入门容易，想玩转它可不简单。我个人学VB就深有体会：一个人在VB的殿堂里摸索是何等的辛苦啊！有时为了一个特技、一句代码甚至一个变量要反复调试运行几十遍，也未必能通过，真恨不得一枪崩了VB。所以，我连这一点点小技巧都不敢独品，拿出来与大家共享，也算抛砖引玉，引出更多、...

用PPT制作圆形水晶按钮

标签：电脑入门

看到图1中的水晶按钮，你可能以为是在Photoshop之类的专业图形软件中制作，然后再插入到这个演示文稿中的，其实我们可以利用PowerPoint的绘图功能来制作。这样不用处理插入图片的背景，而且非常简单，只需三步操作即可。启动PowerPoint 2002或2003，新建一个演示文稿。新建演示文稿步骤1：绘制圆形底图单击绘图工具栏的椭圆按钮，按...

用Director制作多状态按钮

标签：设计软件平面设计软件广告设计软件

在多媒体开发中，好的按钮往往会给创作的作品增色不少。不过，一个专业的多媒体按钮至少应具有四种状态：松开、按下、滑过和无效。对于这种多状态按钮，Director提供了极其简便的制作工具，以下就是这类按钮的具体制作步骤：素材的准备图1 启动Firework 4.0，新建一大小为100×70、背景为透明的文件，利用矩形...

用Delphi制作动态有声标签

标签： Delphi

电脑报社出品的《硬件大师》的安装界面见过吧，当你把鼠标移到安装提示上时会发出声音，在上面按下鼠标左键也会发出声音，而Delphi30安装界面的安装提示虽然有动感却没有声音，能不能二者兼得?答案是肯定的，用Delphi只须编写几句简单代码便可轻松实现上述功能。原理：通过标签和表单的OnMouseMove事件判断应何时改变、恢复标...

VB的显示/隐藏Start按钮

标签：编程语言网络编程

'*ModuleName:Start_Module '*ModuleFilename:Start.bas '********************************************************* '*Comments:Show/Hidethestartbutton '******************************************************** PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassN...

查看更多精彩>>