Colocando Status Online/Offline

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Colocando Status Online/Offline

    Mensagem por Thales12 em Qua Fev 15, 2012 2:49 am

    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
    Marlos Gama (Por Criar o Tutorial)Ian (Por Criar o Sistema)

      Data/hora atual: Dom Out 21, 2018 1:45 am