document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public tablero As New ClassTablero
  4.  
  5. Public Sub Form_Open()
  6.   \'
  7.   TextLabelVersion.text = "Version: <font color=\\"red\\">" & Application.Version & "</font> "
  8.   Me.center
  9.  
  10. End
  11.  
  12. Public Sub ToolButtonNueva_Click()
  13.  
  14.   Dim jugadores As New Variant[]  
  15.   Dim texto As New String[]
  16.  
  17.   tablero = New ClassTablero \'inicio un tablero en blanco
  18.   FMainTablero.TextAreaJugadas.text = ""
  19.  
  20.   FormJugadores.texto = texto
  21.   FormJugadores.jugadores = jugadores
  22.  
  23.   FormJugadores.Showmodal()
  24.   If jugadores.max = -1 Then
  25.     Return
  26.   Endif
  27.   FMainTablero.jugadores = New Variant[]
  28.   FMainTablero.jugadores.Add(jugadores[0])
  29.   FMainTablero.jugadores.Add(jugadores[1])
  30.   FMainTablero.texto = texto
  31.   FMainTablero.tablero = New ClassTablero
  32.   Me.Minimized = True
  33.   FMainTablero.Show()
  34.  
  35. End
');