【文件属性】:
文件名称: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