Logout button :D

[Tridia Online]

I searched and did not see any status on it so I decided to create one, let go to it.

Work only in the Client

1 Go and create a PictureBox frmMain and set the amount of Visible = false and named : picAlert.

2 ° Within of the PictureBox and create two CommandButton named: one cmdLogout and the other  cmdCancel.

3: Double click on the button cmdCancel and put this:

Private Sub cmdCancel_Click()
    If Not picCharacter.Visible Then
        picCharacter.Visible = True
        picAlert.Visible = False
    End If
End Sub

In a 4 ° Double click cmdCancel and put this:

If Map.Moral = 1 Then
        logoutGame
        Else
        AddText "You cannot logout into the battle zone!", BrightRed
        picCharacter.Visible = True
        picAlert.Visible = False
    End If

Go 5 ° in frmMain code and find:

Cancel = True
    logoutGame

put this in place:

Cancel = True
    picAlert.Visible = True

This makes the player click the [x] to close the window you see a warning window for logging or cancel (Note: The player can only log in safe zone.)

I hope this helps.

Sorry my bad English

[lexkymbeth]

i suggest using code tags

[mrmiguu]

@lexkymbeth:

> i suggest using code tags

Code tags don't communicate well with the VB6 IDE; they space the sections of code out by tabs instead of newlines. They only really work with a language(s) like C/C++/C#/Java; anything that basically closes a line of code with some sort of character (e.g. ';', etc.).

[lexkymbeth]

i ment```
This
```

[Likestodraw]

Sorry, I have been saying this to everybody lately, but could you put some screenshots of the results?

[erkro1]

@Likestodraw:

> Sorry, I have been saying this to everybody lately, but could you put some screenshots of the results?

Its just a button which let you log out

[Robin]

@Likestodraw:

> Sorry, I have been saying this to everybody lately, but could you put some screenshots of the results?

You press the button and you go back to the main menu. Why would you need a screenshot for that?

[Whackeddie99]

If the map moral is not safe zone, theres a x at the top right lol.

[Muffen]

@Robin:

> You press the button and you go back to the main menu. Why would you need a screenshot for that?

We need a like button for replys. Cause I would like this.

About the button. Yeah I guess it could be useful. It's fairly easy to do though. I'm no programmer but I think I would have been able to figure this out by my own.

[Whackeddie99]

This button requires a few edits to work properly.

```
Private Sub cmdCancel_Click()
    If Not picCharacter.Visible Then
        picCharacter.Visible = True
        picAlert.Visible = False
    End If
End Sub
```
delete the If Not code and End If, and the piccharacter.visible = true part. They are unneeded.

and please, just change this:
```
If Map.Moral = 1 Then
        logoutGame
        Else
        AddText "You cannot logout into the battle zone!", BrightRed
        picCharacter.Visible = True
        picAlert.Visible = False
    End If
```
to this:

```
If Map.Moral = 1 Then
        picAlert.Visible = False
        logoutGame
        Else
        AddText "You cannot logout in a PvP area!", BrightRed
        picAlert.Visible = False
    End If

```
If you don't, this box will not close when you logout, so if you relog in, it will be there still. Also, you don't need picCharacter to be visible.
d Sub

[handsomenicor]

Can I just make a button and change name into cmdLogout and change caption Log Out double-click it and add this code.

Private Sub cmdLogout_Click()
      frmMain.Visible = True
      Unload me
End Sub

Is that Ok?

[erkro1]

Nvm, @Joyce:

> No, because that will not ACTUALLY close down the connection. You're still connected, and the client still thinks you're in-game. You just hide your game screen.

[Joyce]

No, because that will not ACTUALLY close down the connection. You're still connected, and the client still thinks you're in-game. You just hide your game screen.

[erkro1]

Use this instead:
```
Private Sub cmdLogout_Click()
      logoutgame
      frmMain.Visible = True
      Unload me
End Sub
```

[handsomenicor]

Ok tnx!!!

[Ryochi]

this tutorial is useless. When you click the red "X" it takes you back to the main menu. Why go through all that trouble when it is already there. And on top of that u messed up your clients or servers for nothing.

[waseemk]

Where do I put this:

```
picAlert.visible = False
```