Suporte ao desenvolvimento de jogos!


    Colocando Status Online/Offline

    Compartilhe
    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4942
    Créditos : 1051

    Colocando Status Online/Offline

    Mensagem por Valentine em Sex Jan 28, 2011 1:24 pm

    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

    Créditos
    Valentine (Por Criar o Tutorial)
    Ian (Por Criar o Sistema)


    Última edição por Valentine em Sex Jun 08, 2012 10:28 am, editado 3 vez(es)
    avatar
    joaovitor2763
    Membro de Honra
    Membro de Honra

    Medalhas :
    Mensagens : 662
    Créditos : 137

    Re: Colocando Status Online/Offline

    Mensagem por joaovitor2763 em Sex Jan 28, 2011 2:41 pm

    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?


    _________________
    Ser maker e ser capaz de dar vida a sua imaginação.


    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4942
    Créditos : 1051

    Re: Colocando Status Online/Offline

    Mensagem por Valentine em Sex Jan 28, 2011 10:45 pm

    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


    _________________

    ultimaterox7
    Novato
    Novato

    Mensagens : 12
    Créditos : 3

    Re: Colocando Status Online/Offline

    Mensagem por ultimaterox7 em Sab Mar 05, 2011 10:13 pm

    Caaara! FANTASTIC! Muito bom cara,
    +1 cred!
    avatar
    tenchumaster
    Banido
    Banido

    Mensagens : 578
    Créditos : 76

    Re: Colocando Status Online/Offline

    Mensagem por tenchumaster em Seg Set 05, 2011 8:33 pm

    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


    _________________




    Barra de fan do meu joguinho use voce tambem

    [code:1][URL=http://imageshack.us/photo/my-images/163/barradefan.jpg/][IMG]http://img163.imageshack.us/img163/2981/barradefan.jpg[/IMG][/URL]

    [/code:1]
    avatar
    tenchumaster
    Banido
    Banido

    Mensagens : 578
    Créditos : 76

    Re: Colocando Status Online/Offline

    Mensagem por tenchumaster em Seg Set 05, 2011 8:55 pm

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



    ( PELO AMOR DE DEUS ME DESCULPA PELO DOUBLE TOPIC)


    _________________




    Barra de fan do meu joguinho use voce tambem

    [code:1][URL=http://imageshack.us/photo/my-images/163/barradefan.jpg/][IMG]http://img163.imageshack.us/img163/2981/barradefan.jpg[/IMG][/URL]

    [/code:1]
    avatar
    FilipeJF
    Aldeia Friend
    Aldeia Friend

    Medalhas :
    Mensagens : 1914
    Créditos : 134

    Re: Colocando Status Online/Offline

    Mensagem por FilipeJF em Seg Set 05, 2011 8:57 pm

    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


    _________________


    Conteúdo patrocinado

    Re: Colocando Status Online/Offline

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Seg Ago 20, 2018 12:19 am