VB语言

本类阅读TOP10
·Visual Basic 安装程序的制作!!
·VB中使用EXCEL输出
·一个简单的MP3播放器
·VB程序实现WindowsXP效果的界面!!
·VB打造超酷个性化菜单（六）
·透明位图
·平铺与拉伸MDI窗口的背景图 ~!~
·对《VB程序实现WindowsXP效果的界面》一文的补遗
·从Windows资源管理器中拖动文件
·VB打造超酷个性化菜单（一）

→ 分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用VB制作即时动态按钮

作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站
用VB制作即时动态按钮
首先，在主窗体上生成两个大小一样的按钮Command1和Command2，将它们的Style属性都设成1－Graphical，将Command1的Picture属性设为d:\vb\ico\mail01a.ico(变化前的图案，一个关闭的信封)，将Command2的Picture属性设为d:\vb\ico\mail101b.ico(变化后的图案，一个打开的信封)。
其次，在主窗体的Private Sub Form－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事件里加入以下代码：
If Form1.Command1.Visible=True Then
Form1.Command1.Visible=False
Form1.Command2.Visible=True
End If

最后，在Form－MouseMove事件里加入如下代码：(如果按钮放置在图件框上，就在Picture1－MouseMove事件里加入代码)
If Form1.Command1.Visible=False Then
Form1.Command2.Visible=False
Form1.Command1.Visible=True
End If

相关文章：

相关软件：