[ALL]Confirmação ao Fechar o jogo

por molusco sensei Sáb 02 Out 2010, 13:10

Bem, é um sistema que funciona assim:

Quando você clica em Logout, aparece uma pergunta:
você tem certeza que deseja sair do jogo?

| | Sim | | Não | |

============================================================
Versões antigas:

vá no código do frmMirage, e procure por

Código:: Private Sub lblQuit_Click() Call GameDestroy End Sub

Substitua por:

Código:: Private Sub lblQuit_Click() Dim YesNo As Long YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME) If YesNo = vbYes Then MsgBox ("Obrigado pela preferência, volte sempre") Call GameDestroy End If End Sub

============================================================
Versões Novas

procure por:

Código:: Private Sub lblMenuQuit_Click() InGame = False End Sub

Substitua por:

Código:: Private Sub lblMenuQuit_Click() ' InGame = False Dim YesNo As Long YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME) If YesNo = vbYes Then MsgBox ("Obrigado pela preferência, volte sempre") InGame = False End If End Sub

É isso ai! Espero ter ajudado.
Valeu! Laughing