Colocando Status Online/Offline

1 - Primeiro crie um label na frmMenu


1.1 - Em BackStyle clique em Transparent

1.2 - Em Capition coloque o nome Servidor



2 - Crie outro label e em (Name) coloque checarstatus

2.1 - Em BackStyle clique em Transparent

2.2 - Em Capition coloque o nome Offline

2.3 - Em ForeColor clique na cor vermelha ou coloque o texto &H000000FF&


3 - Agora clique duas vezes na frmMenu para que apareça a parte de digitar os códigos

3.1 - Procure Por:

Código:

Private Sub Form_Load()

3.2 - Antes dessa Private coloque o código

Código:

Private Sub Form_Activate()
If ConnectToServer(1) Then
checarstatus.Caption = "Online"
checarstatus.ForeColor = &HC0FFC0
End If
End Sub

Segui o tuto, mas o status fica aparecendo na parte de criação de char Ôo.
Não tem como fazer aparecer no login? OU então no registro?

Depende onde você colocou, na frmMenu existem umas 4 janelas, que são a de login, registro, créditos e criação de personagem, depende de quando você foi criar o label onde colocou, eu geralmente coloco no canto da frmMenu

Caaara! FANTASTIC! Muito bom cara,
+1 cred!

Me ajuda , cara eu n sei criar label. Eu cliko cliko cliko no local e nao consigu criar label .

Valeu aew marlos ...

Ja resolvi ocm a ajuda de um grande amigo

Funfou , como eu coloco a letra do online verde? So pra dar uma destacada



( PELO AMOR DE DEUS ME DESCULPA PELO DOUBLE TOPIC)

você tem que mudar aqui:

Private Sub Form_Activate()
If ConnectToServer(1) Then
checarstatus.Caption = "Online"
checarstatus.ForeColor = &HC0FFC0 <<<<<<<<<<<<<<<<<<<<<<<<
End If
End Sub

E a cor verde é &H0000FF00&

Então fica


Private Sub Form_Activate()
If ConnectToServer(1) Then
checarstatus.Caption = "Online"
checarstatus.ForeColor
= &H0000FF00&
End Sub