hola,
tengo que hacer un juego y al perder la partida me tiene que salir un mensaje como perdiste u otra cosa,pero no se que cambios hay que hacer a lo siguiente para que salga el mensaje que yo quiero y aparte que me salga en nivel y el tiempo final
Private Sub estblecerTiempo() Handles timerTemporizador.Tick
Dim tablaRecord As TablaRecord
Dim nombre As String
partida.pTiempo = partida.pTiempo - 1000
tiempoTotal += 1
If partida.pTiempo <= 0 Then
partida.pTiempo = 0
Me.LabelTiempo.Text = CStr(partida.pTiempo / 1000)
partida.pActiva = False
timerTemporizador.Enabled = False
tablaRecord = New TablaRecord()
If tablaRecord.esRecord(tiempoTotal) Then
nombre = InputBox("Nuevo record tiempo: " & tiempoTotal & ". Introduce tu nombre")
tablaRecord.establecerRecord(New Record(nombre, tiempoTotal))
FormRecords.ShowDialog()
Else
MessageBox.Show("Game over")), MessageBoxButtons.OK)
End If
partida = New Partida()
ocultarCeldas()
End If
Me.LabelTiempo.Text = CStr(partida.pTiempo / 1000)
End Sub
