Universo Games
Ola , Convidado

Pondo a frmLongin no fmrMainMenu! Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 Pondo a frmLongin no fmrMainMenu!

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



Pondo a frmLongin no fmrMainMenu! Empty
MensagemAssunto: Pondo a frmLongin no fmrMainMenu!   Pondo a frmLongin no fmrMainMenu! EmptySáb 25 Jun 2011, 11:47

Começando

Antes de tudo vamos baixar a frmMainMenu para ficar mais facil

Client~Side

Procure por:

Código:
If frmLogin.Visible Then frmLogin.Hide

Apague essa linha

Procure por:

Código:
Case MENU_STATE_LOGIN
            frmLogin.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando informações de login...")
                Call SendLogin(frmLogin.txtName.Text, frmLogin.txtPassword.Text)
            End If

Mude para:

Código:
Case MENU_STATE_LOGIN
            frmMainMenu.Visible = False
            If ConnectToServer = True Then
                Call SetStatus("Conectado, enviando informações de login...")
                Call SendLogin(frmMainMenu.txtName.Text, frmMainMenu.txtPassword.Text)
            End If

Procure por:

Código:
If Parse(0) = "info" Then
        frmLogin.lblOnOff.Caption = "O Servidor está Online"
        frmLogin.lblPlayers.Caption = "com " & Parse(1) & " jogadores"
        frmLogin.lblPlayers.Visible = True
        frmLogin.tmrInfo.Enabled = False
        Exit Sub
    End If

Mude para:

Código:
If Parse(0) = "info" Then
        frmMainMenu.lblOnOff.Caption = "O Servidor está Online"
        frmMainMenu.lblPlayers.Caption = "com " & Parse(1) & " jogadores"
        frmMainMenu.lblPlayers.Visible = True
        frmMainMenu.tmrInfo.Enabled = False
        Exit Sub
    End If

Procure por:

Código:
If n = 1 Then frmNewAccount.Show , frmMainMenu
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 3 Then frmLogin.Show , frmMainMenu
        If n = 4 Then frmNewChar.Show , frmMainMenu
        If n = 5 Then frmChars.Show , frmMainMenu

Mude para:

Código:
If n = 1 Then frmNewAccount.Show , frmMainMenu
        If n = 2 Then frmDeleteAccount.Show , frmMainMenu
        If n = 4 Then frmNewChar.Show , frmMainMenu
        If n = 5 Then frmChars.Show , frmMainMenu

Procure por:

Código:
Private Sub picCancel_Click()
    Call TcpDestroy
    Me.Hide
    frmLogin.Show , frmMainMenu
End Sub

Mude para:

Código:
Private Sub picCancel_Click()
    Call TcpDestroy
    Me.Hide
    frmMainMenu.Show
End Sub

Procure por:

Código:
Private Sub picConfirm_Click()
    Dim IP, Port As String
    Dim fErr As Integer
    Dim Texto As String
    Dim Packet As String

    IP = TxtIP
    Port = Val(TxtPort)

    fErr = 0
    If fErr = 0 And Len(Trim(IP)) = 0 Then
        fErr = 1
        Call MsgBox("IP inválido!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Porta inválida!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        ' Gravar IP e Porta
        Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", TxtIP.Text)
        Call PutVar(App.Path & "\config.ini", "IPCONFIG", "Porta", TxtPort.Text)
        'Call MenuState(MENU_STATE_IPCONFIG)
    End If
    frmMirage.Socket.Close
    frmMirage.Socket.RemoteHost = TxtIP.Text
    frmMirage.Socket.RemotePort = TxtPort.Text
    frmMainMenu.Visible = True
    frmIpconfig.Visible = False

    If frmLogin.tmrInfo.Enabled = True Then frmLogin.tmrInfo.Enabled = False

    frmLogin.lblPlayers.Visible = True
    frmLogin.lblPlayers.Caption = "Recebendo informação..."

    If ConnectToServer = True Then
        frmLogin.tmrInfo.Enabled = True
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        frmLogin.lblOnOff.Caption = "Offline"
        frmLogin.lblPlayers.Visible = False
    End If
End Sub

Mude para:

Código:
Private Sub picConfirm_Click()
    Dim IP, Port As String
    Dim fErr As Integer
    Dim Texto As String
    Dim Packet As String

    IP = TxtIP
    Port = Val(TxtPort)

    fErr = 0
    If fErr = 0 And Len(Trim(IP)) = 0 Then
        fErr = 1
        Call MsgBox("IP inválido!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 And Port <= 0 Then
        fErr = 1
        Call MsgBox("Porta inválida!", vbCritical, GAME_NAME)
        Exit Sub
    End If
    If fErr = 0 Then
        ' Gravar IP e Porta
        Call PutVar(App.Path & "\config.ini", "IPCONFIG", "IP", TxtIP.Text)
        Call PutVar(App.Path & "\config.ini", "IPCONFIG", "Porta", TxtPort.Text)
        'Call MenuState(MENU_STATE_IPCONFIG)
    End If
    frmMirage.Socket.Close
    frmMirage.Socket.RemoteHost = TxtIP.Text
    frmMirage.Socket.RemotePort = TxtPort.Text
    frmMainMenu.Visible = True
    frmIpconfig.Visible = False

    If frmMainMenu.tmrInfo.Enabled = True Then frmMainMenu.tmrInfo.Enabled = False

    frmMainMenu.lblPlayers.Visible = True
    frmMainMenu.lblPlayers.Caption = "Recebendo informação..."

    If ConnectToServer = True Then
        frmMainMenu.tmrInfo.Enabled = True
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        frmMainMenu.lblOnOff.Caption = "Offline"
        frmMainMenu.lblPlayers.Visible = False
    End If
End Sub

Creditos

Ricardo XD
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



Pondo a frmLongin no fmrMainMenu! Empty
MensagemAssunto: Re: Pondo a frmLongin no fmrMainMenu!   Pondo a frmLongin no fmrMainMenu! EmptyTer 05 Jul 2011, 09:35

isso vai fazer oque ? oque vai acontece
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



Pondo a frmLongin no fmrMainMenu! Empty
MensagemAssunto: Re: Pondo a frmLongin no fmrMainMenu!   Pondo a frmLongin no fmrMainMenu! EmptyTer 05 Jul 2011, 18:40

OO, ja viu muitos DBZ jogos tipo o meu lna hora de logar e da frmmainmenu
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



Pondo a frmLongin no fmrMainMenu! Empty
MensagemAssunto: Re: Pondo a frmLongin no fmrMainMenu!   Pondo a frmLongin no fmrMainMenu! EmptyTer 05 Jul 2011, 22:58

ainda nao entendi nada
Ir para o topo Ir para baixo
Conteúdo patrocinado





Pondo a frmLongin no fmrMainMenu! Empty
MensagemAssunto: Re: Pondo a frmLongin no fmrMainMenu!   Pondo a frmLongin no fmrMainMenu! Empty

Ir para o topo Ir para baixo
 
Pondo a frmLongin no fmrMainMenu!
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Pondo a frmSpellEditor para text!

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: