main.vb

潜艇大战游戏源程序

Option Strict Off
Option Explicit On
Friend Class Form1
	Inherits System.Windows.Forms.Form
#Region "Windows 窗体设计器生成的代码"
	Public Sub New()
		MyBase.New()
		If m_vb6FormDefInstance Is Nothing Then
			If m_InitializingDefInstance Then
				m_vb6FormDefInstance = Me
			Else
				Try 
					'对于启动窗体，所创建的第一个实例为默认实例。
					If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
						m_vb6FormDefInstance = Me
					End If
				Catch
				End Try
			End If
		End If
		'此调用是 Windows 窗体设计器所必需的。
		InitializeComponent()
	End Sub
	'窗体重写处置，以清理组件列表。
	Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
		If Disposing Then
			If Not components Is Nothing Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(Disposing)
	End Sub
	'Windows 窗体设计器所必需的
	Private components As System.ComponentModel.IContainer
	Public ToolTip1 As System.Windows.Forms.ToolTip
	Public WithEvents _PicExpM_3 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExpM_2 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExpM_1 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExpM_0 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExp_3 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExp_2 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExp_1 As System.Windows.Forms.PictureBox
	Public WithEvents _PicExp_0 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElvM_2 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElvM_1 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElvM_0 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElv_2 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElv_1 As System.Windows.Forms.PictureBox
	Public WithEvents _PicElv_0 As System.Windows.Forms.PictureBox
	Public WithEvents PicPlane2 As System.Windows.Forms.PictureBox
	Public WithEvents PicPlane2M As System.Windows.Forms.PictureBox
	Public WithEvents PicPlane1 As System.Windows.Forms.PictureBox
	Public WithEvents PicPlane1M As System.Windows.Forms.PictureBox
	Public WithEvents PicExit As System.Windows.Forms.PictureBox
	Public WithEvents PicCrash2M As System.Windows.Forms.PictureBox
	Public WithEvents PicCrash2 As System.Windows.Forms.PictureBox
	Public WithEvents PicCrash1M As System.Windows.Forms.PictureBox
	Public WithEvents PicCrash1 As System.Windows.Forms.PictureBox
	Public WithEvents Pic3 As System.Windows.Forms.PictureBox
	Public WithEvents Pic2 As System.Windows.Forms.PictureBox
	Public WithEvents Pic1 As System.Windows.Forms.PictureBox
	Public WithEvents PicSub2 As System.Windows.Forms.PictureBox
	Public WithEvents PicSub2M As System.Windows.Forms.PictureBox
	Public WithEvents PicSub1M As System.Windows.Forms.PictureBox
	Public WithEvents PicSub1 As System.Windows.Forms.PictureBox
	Public WithEvents PicShip2 As System.Windows.Forms.PictureBox
	Public WithEvents PicShip2M As System.Windows.Forms.PictureBox
	Public WithEvents PicMineM As System.Windows.Forms.PictureBox
	Public WithEvents PicMine As System.Windows.Forms.PictureBox
	Public WithEvents PicShipM As System.Windows.Forms.PictureBox
	Public WithEvents PicShip As System.Windows.Forms.PictureBox
	Public WithEvents Timer1 As System.Windows.Forms.Timer
	Public WithEvents MainBoard As System.Windows.Forms.PictureBox
	Public WithEvents Label2 As System.Windows.Forms.Label
	Public WithEvents lblCredits As System.Windows.Forms.Label
	Public WithEvents PicElv As Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray
	Public WithEvents PicElvM As Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray
	Public WithEvents PicExp As Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray
	Public WithEvents PicExpM As Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray
	'注意: 以下过程是 Windows 窗体设计器所必需的
	'可以使用 Windows 窗体设计器来修改它。
	'不要使用代码编辑器修改它。
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
		Me.components = New System.ComponentModel.Container()
		Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
		Me.ToolTip1.Active = True
		Me._PicExpM_3 = New System.Windows.Forms.PictureBox
		Me._PicExpM_2 = New System.Windows.Forms.PictureBox
		Me._PicExpM_1 = New System.Windows.Forms.PictureBox
		Me._PicExpM_0 = New System.Windows.Forms.PictureBox
		Me._PicExp_3 = New System.Windows.Forms.PictureBox
		Me._PicExp_2 = New System.Windows.Forms.PictureBox
		Me._PicExp_1 = New System.Windows.Forms.PictureBox
		Me._PicExp_0 = New System.Windows.Forms.PictureBox
		Me._PicElvM_2 = New System.Windows.Forms.PictureBox
		Me._PicElvM_1 = New System.Windows.Forms.PictureBox
		Me._PicElvM_0 = New System.Windows.Forms.PictureBox
		Me._PicElv_2 = New System.Windows.Forms.PictureBox
		Me._PicElv_1 = New System.Windows.Forms.PictureBox
		Me._PicElv_0 = New System.Windows.Forms.PictureBox
		Me.PicPlane2 = New System.Windows.Forms.PictureBox
		Me.PicPlane2M = New System.Windows.Forms.PictureBox
		Me.PicPlane1 = New System.Windows.Forms.PictureBox
		Me.PicPlane1M = New System.Windows.Forms.PictureBox
		Me.PicExit = New System.Windows.Forms.PictureBox
		Me.PicCrash2M = New System.Windows.Forms.PictureBox
		Me.PicCrash2 = New System.Windows.Forms.PictureBox
		Me.PicCrash1M = New System.Windows.Forms.PictureBox
		Me.PicCrash1 = New System.Windows.Forms.PictureBox
		Me.Pic3 = New System.Windows.Forms.PictureBox
		Me.Pic2 = New System.Windows.Forms.PictureBox
		Me.Pic1 = New System.Windows.Forms.PictureBox
		Me.PicSub2 = New System.Windows.Forms.PictureBox
		Me.PicSub2M = New System.Windows.Forms.PictureBox
		Me.PicSub1M = New System.Windows.Forms.PictureBox
		Me.PicSub1 = New System.Windows.Forms.PictureBox
		Me.PicShip2 = New System.Windows.Forms.PictureBox
		Me.PicShip2M = New System.Windows.Forms.PictureBox
		Me.PicMineM = New System.Windows.Forms.PictureBox
		Me.PicMine = New System.Windows.Forms.PictureBox
		Me.PicShipM = New System.Windows.Forms.PictureBox
		Me.PicShip = New System.Windows.Forms.PictureBox
		Me.Timer1 = New System.Windows.Forms.Timer(components)
		Me.MainBoard = New System.Windows.Forms.PictureBox
		Me.Label2 = New System.Windows.Forms.Label
		Me.lblCredits = New System.Windows.Forms.Label
		Me.PicElv = New Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray(components)
		Me.PicElvM = New Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray(components)
		Me.PicExp = New Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray(components)
		Me.PicExpM = New Microsoft.VisualBasic.Compatibility.VB6.PictureBoxArray(components)
		CType(Me.PicElv, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.PicElvM, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.PicExp, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.PicExpM, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.Text = "Submarine Hunter v. 1.5"
		Me.ClientSize = New System.Drawing.Size(496, 377)
		Me.Location = New System.Drawing.Point(4, 23)
		Me.ControlBox = False
		Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Icon = CType(resources.GetObject("Form1.Icon"), System.Drawing.Icon)
		Me.KeyPreview = True
		Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
		Me.BackColor = System.Drawing.SystemColors.Control
		Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
		Me.Enabled = True
		Me.MaximizeBox = True
		Me.MinimizeBox = True
		Me.Cursor = System.Windows.Forms.Cursors.Default
		Me.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me.ShowInTaskbar = True
		Me.HelpButton = False
		Me.WindowState = System.Windows.Forms.FormWindowState.Normal
		Me.Name = "Form1"
		Me._PicExpM_3.Size = New System.Drawing.Size(67, 60)
		Me._PicExpM_3.Location = New System.Drawing.Point(652, 168)
		Me._PicExpM_3.Image = CType(resources.GetObject("_PicExpM_3.Image"), System.Drawing.Image)
		Me._PicExpM_3.TabIndex = 38
		Me._PicExpM_3.Visible = False
		Me._PicExpM_3.Dock = System.Windows.Forms.DockStyle.None
		Me._PicExpM_3.BackColor = System.Drawing.SystemColors.Control
		Me._PicExpM_3.CausesValidation = True
		Me._PicExpM_3.Enabled = True
		Me._PicExpM_3.ForeColor = System.Drawing.SystemColors.ControlText
		Me._PicExpM_3.Cursor = System.Windows.Forms.Cursors.Default
		Me._PicExpM_3.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._PicExpM_3.TabStop = True
		Me._PicExpM_3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me._PicExpM_3.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._PicExpM_3.Name = "_PicExpM_3"
		Me._PicExpM_2.Size = New System.Drawing.Size(67, 60)
		Me._PicExpM_2.Location = New System.Drawing.Point(648, 160)
		Me._PicExpM_2.Image = CType(resources.GetObject("_PicExpM_2.Image"), System.Drawing.Image)
		Me._PicExpM_2.TabIndex = 37
		Me._PicExpM_2.Visible = False
		Me._PicExpM_2.Dock = System.Windows.Forms.DockStyle.None
		Me._PicExpM_2.BackColor = System.Drawing.SystemColors.Control
		Me._PicExpM_2.CausesValidation = True
		Me._PicExpM_2.Enabled = True
		Me._PicExpM_2.ForeColor = System.Drawing.SystemColors.ControlText
		Me._PicExpM_2.Cursor = System.Windows.Forms.Cursors.Default
		Me._PicExpM_2.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._PicExpM_2.TabStop = True
		Me._PicExpM_2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me._PicExpM_2.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._PicExpM_2.Name = "_PicExpM_2"
		Me._PicExpM_1.Size = New System.Drawing.Size(67, 60)
		Me._PicExpM_1.Location = New System.Drawing.Point(640, 152)
		Me._PicExpM_1.Image = CType(resources.GetObject("_PicExpM_1.Image"), System.Drawing.Image)
		Me._PicExpM_1.TabIndex = 36
		Me._PicExpM_1.Visible = False
		Me._PicExpM_1.Dock = System.Windows.Forms.DockStyle.None
		Me._PicExpM_1.BackColor = System.Drawing.SystemColors.Control
		Me._PicExpM_1.CausesValidation = True
		Me._PicExpM_1.Enabled = True
		Me._PicExpM_1.ForeColor = System.Drawing.SystemColors.ControlText
		Me._PicExpM_1.Cursor = System.Windows.Forms.Cursors.Default
		Me._PicExpM_1.RightToLeft = System.Windows.Forms.RightToLeft.No
		Me._PicExpM_1.TabStop = True
		Me._PicExpM_1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
		Me._PicExpM_1.BorderStyle = System.Windows.Forms.BorderStyle.None
		Me._PicExpM_1.Name = "_PicExpM_1"
		Me._PicExpM_0.Size = New System.Drawing.Size(67, 60)
		Me._PicExpM_0.Location = New System.Drawing.Point(632, 144)
		Me._PicExpM_0.Image = CType(resources.GetObject("_PicExpM_0.Image"), System.Drawing.Image)
		Me._PicExpM_0.TabIndex = 35
		Me._PicExpM_0.Visible = False
		Me._PicExpM_0.Dock = System.Windows.Forms.DockStyle.None
		Me._PicExpM_0.BackColor = System.Drawing.SystemColors.Control
		Me._PicExpM_0.CausesValidation = True