实例说明
在本实例中,我们将制作一个具有"旋转月亮"功能的应用程序。程序运行后,单击"开始演示"按钮,即可开始旋转月亮。此时按钮标题会变为"停止演示"。再单击该按钮,则停止旋转月亮。程序运行结果如图74-1所示。
图74-1 运行结果
技术要点
l Timer控件
l 显示/隐藏图片
实现过程
■ 新建项目
打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"SpinMoon",然后选择保存路径。单击"确认"。
■ 添加控件
向窗体上添加一个Button控件和九个Picture控件。
■ 设置属性
将Button控件的Text设置为"开始演示",将Picture控件的名称改为imgMoon1-imgMoon9,并装入相应的图片。
■ 添加代码
Dim i As Short
Private Sub Command1_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Command1.Click
If Command1.Text = "开始演示" Then
Command1.Text = "停止演示"
Timer1.Enabled = True
Else
Command1.Text = "开始演示"
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles MyBase.Load
i = 1
End Sub
Private Sub Timer1_Tick(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Select Case i
Case 1
imgMoon1.Visible = True
imgMoon3.Visible = False
imgMoon4.Visible = False
imgMoon5.Visible = False
imgMoon6.Visible = False
imgMoon7.Visible = False
imgMoon8.Visible = False
imgMoon9.Visible = False
Case 2
imgMoon1.Visible = False
imgMoon2.Visible = True
imgMoon3.Visible = False
imgMoon4.Visible = False
imgMoon5.Visible = False
imgMoon6.Visible = False
imgMoon7.Visible = False
imgMoon8.Visible = False
imgMoon9.Visible = False
Case 3
imgMoon1.Visible = False
imgMoon2.Visible = False
imgMoon3.Visible = True
imgMoon4.Visible = False
imgMoon5.Visible = False
imgMoon6.Visible = False
imgMoon7.Visible = False
imgMoon8.Visible = False
imgMoon9.Visible = False
………………中间代码省略……………………
Case 9
imgMoon1.Visible = False
imgMoon2.Visible = False
imgMoon3.Visible = False
imgMoon4.Visible = False
imgMoon5.Visible = False
imgMoon6.Visible = False
imgMoon7.Visible = False
imgMoon8.Visible = False
imgMoon9.Visible = True
Case Else
MsgBox("错误!")
End Select
i = i + 1
If i > 9 Then
i = 1
End If
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例是通过显示不同的图片来达到旋转月亮的效果。由于在VB.NET中没有了控件数组,因此我们只能分别隐藏和显示。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。