Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Pondo a frmLongin no fmrMainMenu!

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Pondo a frmLongin no fmrMainMenu! em Sab 25 Jun 2011, 10:47

RicardoxD


Membro
Membro
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

2Tutorial Re: Pondo a frmLongin no fmrMainMenu! em Ter 05 Jul 2011, 08:35

giovani18


Membro
Membro
isso vai fazer oque ? oque vai acontece

http://masterdbz.xpg.com.br

3Tutorial Re: Pondo a frmLongin no fmrMainMenu! em Ter 05 Jul 2011, 17:40

RicardoxD


Membro
Membro
OO, ja viu muitos DBZ jogos tipo o meu lna hora de logar e da frmmainmenu

4Tutorial Re: Pondo a frmLongin no fmrMainMenu! em Ter 05 Jul 2011, 21:58

giovani18


Membro
Membro
ainda nao entendi nada

http://masterdbz.xpg.com.br

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum