Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas class file
- Public tablero As New ClassTablero
- Public Sub Form_Open()
- '
- TextLabelVersion.text = "Version: <font color=\"red\">" & Application.Version & "</font> "
- Me.center
- End
- Public Sub ToolButtonNueva_Click()
- Dim jugadores As New Variant[]
- Dim texto As New String[]
- tablero = New ClassTablero 'inicio un tablero en blanco
- FMainTablero.TextAreaJugadas.text = ""
- FormJugadores.texto = texto
- FormJugadores.jugadores = jugadores
- FormJugadores.Showmodal()
- If jugadores.max = -1 Then
- Return
- Endif
- FMainTablero.jugadores = New Variant[]
- FMainTablero.jugadores.Add(jugadores[0])
- FMainTablero.jugadores.Add(jugadores[1])
- FMainTablero.texto = texto
- FMainTablero.tablero = New ClassTablero
- Me.Minimized = True
- FMainTablero.Show()
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement