Imports System.ComponentModel
 
Class SpielfeldControl
  Inherits Control
 
  Event Gewonnen(schritte As Integer)
 
  Private Class Feld
    Friend Sub New()
      Belegt = True
    End Sub
    Friend Quadrat As Rectangle
    Friend Index As Integer
    Friend Nummer As Integer
    Friend Belegt As Boolean
    Friend Sub KopieIn(zf As Feld)
      zf.Nummer = Nummer
      zf.Belegt = True
      Nummer = 0
      Belegt = False
    End Sub
  End Class
 
  Dim Felder() As Feld
  Dim Quads() As Rectangle
  Dim Gestartet As Boolean
  Dim Zähler As Integer
  Dim ÜberFeld As Feld
  Dim AktFeld As Feld
 
  Public Sub New()
    SetStyle(ControlStyles.ResizeRedraw, True)
    Me.DoubleBuffered = True
    Me.ForeColor = Color.Black
    Me.BackColor = Color.Gray
    Me.Font = New Font(Me.Font.FontFamily, 20, FontStyle.Bold)
    ErstelleSpielfeld()
  End Sub
 
  Private Sub ErstelleSpielfeld()
    Gestartet = False
    ReDim Felder(pFelderX * pFelderY - 1)
    For i = 0 To Felder.Length - 1
      Felder(i) = New Feld
      Felder(i).Index = i
      Felder(i).Nummer = i + 1
      Felder(i).Quadrat = New Rectangle((i Mod pFelderX) * pFeldgröße, (i \ _
        pFelderX) * pFeldgröße, pFeldgröße, pFeldgröße)
    Next
    Felder.Last.Belegt = False
    Quads = Felder.Select(Function(x) x.Quadrat).ToArray
  End Sub
 
  Private Sub Größenanpassung()
    If Me.IsHandleCreated Then
      Me.Width = pFelderX * pFeldgröße + 1
      Me.Height = pFelderY * pFeldgröße + 1
    End If
  End Sub
 
  Protected Overrides Sub OnResize(e As EventArgs)
    Größenanpassung()
  End Sub
 
  Dim pFelderX As Integer = 6
  Dim pFelderY As Integer = 6
  Dim pFeldgröße As Integer = 70
  Dim pFeldFarbe As Color = Color.Silver
 
  <Description("Anzahl der waagerechten Felder.")>
  <Category("Darstellung"), DefaultValue(6)>
  Property FelderX As Integer
    Get
      Return pFelderX
    End Get
    Set(value As Integer)
      pFelderX = value
      ErstelleSpielfeld()
      Größenanpassung()
    End Set
  End Property
 
  <Description("Anzahl der senkrechten Felder.")>
  <Category("Darstellung"), DefaultValue(6)>
  Property FelderY As Integer
    Get
      Return pFelderY
    End Get
    Set(value As Integer)
      pFelderY = value
      ErstelleSpielfeld()
      Größenanpassung()
    End Set
  End Property
 
  <Description("Die Größe eines Feldes in Pixel.")>
  <Category("Darstellung"), DefaultValue(70)>
  Property FeldGröße As Integer
    Get
      Return pFeldgröße
    End Get
    Set(value As Integer)
      pFeldgröße = value
      ErstelleSpielfeld()
      Größenanpassung()
    End Set
  End Property
 
  <Description("Die Farbe eines Feldes.")>
  <Category("Darstellung")>
  Property FeldFarbe As Color
    Get
      Return pFeldFarbe
    End Get
    Set(value As Color)
      pFeldFarbe = value
      Me.Refresh()
    End Set
  End Property
 
  Sub Spielstart()
    ErstelleSpielfeld()
    Dim l = Felder.Length - 1
    Dim fn = Enumerable.Range(1, l).ToArray
    Dim zu = New Random
    For i = 1 To 1000
      Dim z1 = zu.Next(l)
      Dim z2 = zu.Next(l)
      Dim zw = fn(z1)
      fn(z1) = fn(z2)
      fn(z2) = zw
    Next
    For i = 0 To l - 1
      Felder(i).Nummer = fn(i)
    Next
    Zähler = 0
    Gestartet = True
    Me.Refresh()
  End Sub
 
End Class