文件名称：VB课程设计.doc
文件大小：101KB
文件格式：DOC
更新时间：2011-12-09 07:00:20
VB课程设计
VB课程设计,试验题目: 常用控件 Public Class Form1 Inherits System.Windows.Forms.Form Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AxShockwaveFlash1.Movie = "E:\实验运行场\VB.NET程序设计\系统\image\登陆界面.swf" AxShockwaveFlash1.Play() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim frm4 As New Form4 frm4.Show() Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim frm6 As New Form6 frm6.Show() Me.Hide() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim frm9 As New Form9 frm9.Show() Me.Hide() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim exitform As New Form7 If exitform.ShowDialog = DialogResult.OK Then exitform.Close() Me.Close() Application.Exit() End If End Sub End Class