[VB.NET]旋转月亮
旋转月亮
实例说明 在本实例中,我们将制作一个具有"旋转月亮"功能的应用程序。程序运行后,单击"开始演示"按钮,即可开始旋转月亮。此时按钮标题会变为"停止演示"。再单击该按钮,则停止旋转月亮。程序运行结果如图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中没有了控件数组,因此我们只能分别隐藏和显示。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |