Convidado Convidado
| Assunto: Pondo a frmLongin no fmrMainMenu! Sá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 |
|
Convidado Convidado
| Assunto: Re: Pondo a frmLongin no fmrMainMenu! Ter 05 Jul 2011, 09:35 | |
| isso vai fazer oque ? oque vai acontece |
|
Convidado Convidado
| Assunto: Re: Pondo a frmLongin no fmrMainMenu! Ter 05 Jul 2011, 18:40 | |
| OO, ja viu muitos DBZ jogos tipo o meu lna hora de logar e da frmmainmenu |
|
Convidado Convidado
| Assunto: Re: Pondo a frmLongin no fmrMainMenu! Ter 05 Jul 2011, 22:58 | |
| |
|
Conteúdo patrocinado
| Assunto: Re: Pondo a frmLongin no fmrMainMenu! | |
| |
|