tempad
ReadyGo!技术成就梦想 >>VB教程 >> 用VB制作即时动态按钮

用VB制作即时动态按钮

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:40
首先，在主窗体上生成两个大小一样的按钮Command1和Command2，将它们的Style属性都设成1－Graphical，将Command1的Picture属性设为d:\vb\ico\mail01a.ico(变化前的图案，一个关闭的信封)，将Command2的Picture属性设为d:\vb\ico\mail101b.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上运行通过。->

责任编辑: efish 参与评论 查找更多：
相关文章
用VB实现象Windows记事本的一些功能 用VB实现象Windows记事本的一些功能
FLIC动画文件的播放程序设计 FLIC动画文件的播放程序设计
用Winsock制作一套聊天室和对话系统 用Winsock制作一套聊天室和对话系统
在程序中打开Internet拨号连接窗口 在程序中打开Internet拨号连接窗口
在WindowsNT网络中广播消息 在WindowsNT网络中广播消息
在VB中用Outlook发电子邮件 在VB中用Outlook发电子邮件
在VB中实现文件上传 在VB中实现文件上传
在VB中使用UDP协议 在VB中使用UDP协议
在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？ 在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？
VB邮件检查程序（二） VB邮件检查程序（二）
2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航
ReadyGo!技术成就梦想