formmain.vb

Programming the .NET Compact Framework with vb 源代码

' -----------------------------------------------------------------------------
' Code from _Programming the .NET Compact Framework with VB_
' and _Programming the .NET Compact Framework with C#_
' (c) Copyright 2002-2004 Paul Yao and David Durant. 
' All rights reserved.
' -----------------------------------------------------------------------------

Imports System
Imports System.IO
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Threading

Public Class FormMain
   Inherits System.Windows.Forms.Form
   Friend WithEvents mnuMain As MainMenu

#Region " Windows Form Designer generated code "

   Public Sub New()
      MyBase.New()

      'This call is required by the Windows Form Designer.
      InitializeComponent()

      'Add any initialization after the InitializeComponent() call

   End Sub

   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      MyBase.Dispose(disposing)
   End Sub

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Me.mnuMain = New MainMenu
      '
      'FormMain
      '
      Me.Menu = Me.mnuMain
      Me.Text = "Life Game"

   End Sub

#End Region

#Region "Properties"
   '	The LifeMain object.  It contains,
   '		and runs, the Life Game; and it
   '		supplies the control needed to
   '		display the game.
   Private WithEvents refLifeMain As LifeMain

   '	"Game is running" indicator.
   Private boolRun As Boolean = False
#End Region

#Region "Controls"
   Private WithEvents panelCells As Panel
   Private WithEvents btnStartStop As Button
   Private WithEvents facadeLifeGame As LifeGame.LifeControl

   Private WithEvents mnuFile As MenuItem
   Private WithEvents mnuStartStop As MenuItem
   Private WithEvents mnuExit As MenuItem

   Private WithEvents mnuPattern As MenuItem
   Private WithEvents mnuEmpty As MenuItem
   Private WithEvents mnuReset As MenuItem
   Private WithEvents mnuManual As MenuItem

   Private WithEvents mnuCheckers As MenuItem
   Private WithEvents mnuBoard As MenuItem
   Private WithEvents mnuSelfFix As MenuItem
   Private WithEvents mnuSelfDestruct As MenuItem

   Private WithEvents mnuLines As MenuItem
   Private WithEvents mnuDiagonal As MenuItem
   Private WithEvents mnuVertical As MenuItem
   Private WithEvents mnuFlawedVertical As MenuItem

   Private WithEvents mnuGliders As MenuItem
   Private WithEvents mnuGlider As MenuItem
   Private WithEvents mnuGliderMate As MenuItem
   Private WithEvents mnuGliderPump As MenuItem

   Private WithEvents mnuSmalls As MenuItem
   Private WithEvents mnuFiveCell As MenuItem
   Private WithEvents mnuSixCell As MenuItem
   Private WithEvents mnuEightCell As MenuItem
   Private WithEvents mnuTenCell As MenuItem

   Private WithEvents mnuSpeed As MenuItem
   Private WithEvents mnuFastest As MenuItem
   Private WithEvents mnuFast As MenuItem
   Private WithEvents mnuFaster As MenuItem
   Private WithEvents mnuSpeedNormal As MenuItem
   Private WithEvents mnuSlower As MenuItem
   Private WithEvents mnuSlow As MenuItem
   Private WithEvents mnuSlowest As MenuItem

   Private WithEvents mnuZoom As MenuItem
   Private WithEvents mnuInnest As MenuItem
   Private WithEvents mnuIn As MenuItem
   Private WithEvents mnuSizeNormal As MenuItem
   Private WithEvents mnuOut As MenuItem
   Private WithEvents mnuOutest As MenuItem

   Private WithEvents mnuAbout As MenuItem
#End Region

#Region " Initialization "
   Private Sub FormMain_Load(ByVal sender As Object, _
                             ByVal e As System.EventArgs _
                             ) _
                             Handles MyBase.Load
      InitLifeGame()
      InitMenus()
      WindowState = FormWindowState.Maximized
      PositionControls()
   End Sub


   Private Sub InitLifeGame()
      '	Create a new LifeMain object.
      refLifeMain = New LifeMain

      '	Get the display control from the LifeGame 
      '		object.  Make it visible.  Specify a
      '		click event for it.  Add it to the form.
      facadeLifeGame = refLifeMain.refFacade
      facadeLifeGame.Visible = True
      Me.Controls.Add(Me.facadeLifeGame)
   End Sub


   Private Sub PositionControls()
      '	Postion controls on form.
      facadeLifeGame.BackColor = Color.Tan
      utilGUI.SetBounds(facadeLifeGame, ClientRectangle.Left, ClientRectangle.Top, IIf(ClientRectangle.Width < ClientRectangle.Height, ClientRectangle.Width, ClientRectangle.Height), IIf(ClientRectangle.Width < ClientRectangle.Height, ClientRectangle.Width, ClientRectangle.Height))
      '      utilGUI.SetBounds(panelCells, facadeLifeGame.Width, ClientRectangle.Height / 4 * 2, ClientRectangle.Width - facadeLifeGame.Width, ClientRectangle.Height / 4)
      btnStartStop.Enabled = False
      mnuStartStop.Enabled = False
   End Sub

#End Region

#Region "Menu Initialization"
   Private Sub InitMenus()
      Me.btnStartStop = New Button
      Me.mnuFile = New MenuItem
      Me.mnuStartStop = New MenuItem
      Me.mnuExit = New MenuItem
      Me.mnuPattern = New MenuItem
      Me.mnuEmpty = New MenuItem
      Me.mnuReset = New MenuItem
      Me.mnuManual = New MenuItem
      Me.mnuSmalls = New MenuItem
      Me.mnuFiveCell = New MenuItem
      Me.mnuSixCell = New MenuItem
      Me.mnuEightCell = New MenuItem
      Me.mnuTenCell = New MenuItem
      Me.mnuSpeed = New MenuItem
      Me.mnuFastest = New MenuItem
      Me.mnuFast = New MenuItem
      Me.mnuFaster = New MenuItem
      Me.mnuSpeedNormal = New MenuItem
      Me.mnuSlower = New MenuItem
      Me.mnuSlow = New MenuItem
      Me.mnuSlowest = New MenuItem
      Me.mnuZoom = New MenuItem
      Me.mnuInnest = New MenuItem
      Me.mnuIn = New MenuItem
      Me.mnuSizeNormal = New MenuItem
      Me.mnuOut = New MenuItem
      Me.mnuOutest = New MenuItem
      Me.mnuLines = New MenuItem
      Me.mnuDiagonal = New MenuItem
      Me.mnuVertical = New MenuItem
      Me.mnuFlawedVertical = New MenuItem
      Me.mnuCheckers = New MenuItem
      Me.mnuBoard = New MenuItem
      Me.mnuSelfFix = New MenuItem
      Me.mnuSelfDestruct = New MenuItem
      Me.mnuGliders = New MenuItem
      Me.mnuGlider = New MenuItem
      Me.mnuGliderMate = New MenuItem
      Me.mnuGliderPump = New MenuItem
      Me.mnuAbout = New MenuItem
      ' 
      ' mnuMain
      ' 
      Me.mnuMain.MenuItems.Add(Me.mnuFile)
      Me.mnuMain.MenuItems.Add(Me.mnuPattern)
      Me.mnuMain.MenuItems.Add(Me.mnuSpeed)
      Me.mnuMain.MenuItems.Add(Me.mnuZoom)
      ' 
      ' mnuFile
      ' 
      Me.mnuFile.MenuItems.Add(Me.mnuStartStop)
      Me.mnuFile.MenuItems.Add(Me.mnuExit)
      Me.mnuFile.Text = "File"
      ' 
      ' mnuStartStop
      ' 
      Me.mnuStartStop.Text = "S&tart"
      ' 
      ' mnuExit
      ' 
      Me.mnuExit.Text = "E&xit"
      ' 
      ' mnuPattern
      ' 
      Me.mnuPattern.MenuItems.Add(Me.mnuEmpty)
      Me.mnuPattern.MenuItems.Add(Me.mnuReset)
      Me.mnuPattern.MenuItems.Add(Me.mnuManual)
      Me.mnuPattern.MenuItems.Add(Me.mnuSmalls)
      Me.mnuPattern.MenuItems.Add(Me.mnuLines)
      Me.mnuPattern.MenuItems.Add(Me.mnuCheckers)
      Me.mnuPattern.MenuItems.Add(Me.mnuGliders)
      Me.mnuPattern.Text = "Pattern"
      ' 
      ' mnuEmpty
      ' 
      Me.mnuEmpty.Text = "Empty"
      ' 
      ' mnuReset
      ' 
      Me.mnuReset.Text = "Reset"
      ' 
      ' mnuManual
      ' 
      Me.mnuManual.Text = "Manual"
      ' 
      ' mnuSmalls
      ' 
      Me.mnuSmalls.MenuItems.Add(Me.mnuFiveCell)
      Me.mnuSmalls.MenuItems.Add(Me.mnuSixCell)
      Me.mnuSmalls.MenuItems.Add(Me.mnuEightCell)
      Me.mnuSmalls.MenuItems.Add(Me.mnuTenCell)
      Me.mnuSmalls.Text = "Smalls"
      ' 
      ' mnuFiveCell
      ' 
      Me.mnuFiveCell.Text = "Five Cell"
      ' 
      ' mnuSixCell
      ' 
      Me.mnuSixCell.Text = "Six Cell"
      ' 
      ' mnuEightCell
      ' 
      Me.mnuEightCell.Text = "Eight Cell"
      ' 
      ' mnuTenCell
      ' 
      Me.mnuTenCell.Text = "Ten Cell"
      ' 
      ' mnuSpeed
      ' 
      Me.mnuSpeed.MenuItems.Add(Me.mnuFastest)
      Me.mnuSpeed.MenuItems.Add(Me.mnuFast)
      Me.mnuSpeed.MenuItems.Add(Me.mnuFaster)
      Me.mnuSpeed.MenuItems.Add(Me.mnuSpeedNormal)
      Me.mnuSpeed.MenuItems.Add(Me.mnuSlower)
      Me.mnuSpeed.MenuItems.Add(Me.mnuSlow)
      Me.mnuSpeed.MenuItems.Add(Me.mnuSlowest)
      Me.mnuSpeed.Text = "Speed"
      ' 
      ' mnuFastest
      ' 
      Me.mnuFastest.Text = "Fastest"
      ' 
      ' mnuFast
      ' 
      Me.mnuFast.Text = "Fast"
      ' 
      ' mnuFaster
      ' 
      Me.mnuFaster.Text = "Faster"
      ' 
      ' mnuSpeedNormal
      ' 
      Me.mnuSpeedNormal.Text = "Normal"
      ' 
      ' mnuSlower
      ' 
      Me.mnuSlower.Text = "Slower"
      ' 
      ' mnuSlow
      ' 
      Me.mnuSlow.Text = "Slow"
      ' 
      ' mnuSlowest
      ' 
      Me.mnuSlowest.Text = "Slowest"
      ' 
      ' mnuZoom
      ' 
      Me.mnuZoom.MenuItems.Add(Me.mnuInnest)
      Me.mnuZoom.MenuItems.Add(Me.mnuIn)
      Me.mnuZoom.MenuItems.Add(Me.mnuSizeNormal)
      Me.mnuZoom.MenuItems.Add(Me.mnuOut)
      Me.mnuZoom.MenuItems.Add(Me.mnuOutest)
      Me.mnuZoom.Text = "Zoom"
      ' 
      ' mnuInnest
      ' 
      Me.mnuInnest.Text = "Innest"
      ' 
      ' mnuIn
      ' 
      Me.mnuIn.Text = "In"
      ' 
      ' mnuSizeNormal
      ' 
      Me.mnuSizeNormal.Text = "Normal"
      ' 
      ' mnuOut
      ' 
      Me.mnuOut.Text = "Out"
      ' 
      ' mnuOutest
      ' 
      Me.mnuOutest.Text = "Outest"
      ' 
      ' mnuLines
      ' 
      Me.mnuLines.MenuItems.Add(Me.mnuDiagonal)
      Me.mnuLines.MenuItems.Add(Me.mnuVertical)
      Me.mnuLines.MenuItems.Add(Me.mnuFlawedVertical)
      Me.mnuLines.Text = "Lines"
      '