MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[ALL]Site apareçendo no MainMenu

4 participantes

Ir para baixo

[ALL]Site apareçendo no MainMenu Empty [ALL]Site apareçendo no MainMenu

Mensagem por Lendário Ter 29 Set 2009, 15:39

primeiramente , instale o componente
Microsoft Internet Controls

agora, criei o WebBrowser em algum lugar do Main menu.
agora , va na Sub Form_Load do main menu , vai ta assim:
Código:
Private Sub Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
    For I = 1 To 3
        If I = 1 Then Ending = ".gif"
        If I = 2 Then Ending = ".jpg"
        If I = 3 Then Ending = ".png"
     
        If FileExist("GUI\mainmenu" & Ending) Then frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\mainmenu" & Ending)
    Next I
 
    frmLogin.lblPlayers.Visible = True
    frmLogin.lblPlayers.Caption = "Pegando Informações..."
 
    If ConnectToServer = True Then
        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 Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
    For I = 1 To 3
        If I = 1 Then Ending = ".gif"
        If I = 2 Then Ending = ".jpg"
        If I = 3 Then Ending = ".png"
     
        If FileExist("GUI\mainmenu" & Ending) Then frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\mainmenu" & Ending)
    Next I
 
    frmLogin.lblPlayers.Visible = True
    frmLogin.lblPlayers.Caption = "Pegando Informações..."
 
    If ConnectToServer = True Then
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        frmLogin.lblOnOff.Caption = "Offline"
        frmLogin.lblPlayers.Visible = False
    End If
 
    WebBrowser1.Navigate "http://www.ponhaseusiteaqui.com.br"
 
End Sub
bom é isso ai pessoal , espero que der certo com vocês xD
Créditos : RafaelS.(pipiko)
Lendário
Lendário
Administrador Lendário
Administrador Lendário

Mensagens : 1958

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por Zeus Ter 29 Set 2009, 20:47

Boa Cara xD
Zeus
Zeus
Membro Vitalicio
Membro Vitalicio

Mensagens : 711

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por wilclefi Seg 15 Fev 2010, 22:50

da um erro acho que erei
wilclefi
wilclefi
Membro
Membro

Mensagens : 114

http://fanyot.tk

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por wilclefi Ter 16 Fev 2010, 12:08

Deo erro mas isso e pro ee 2.8
wilclefi
wilclefi
Membro
Membro

Mensagens : 114

http://fanyot.tk

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por → João™ Ter 16 Fev 2010, 22:27

so pega na 2.8? D:
→ João™
→ João™
Membro Junior
Membro Junior

Mensagens : 52

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por wilclefi Qua 17 Fev 2010, 07:05

Tipo acho qeu fumfa no 2.7 Tb mas eu consegui aruamr eu botei isso dentro do webbrowser lha WebBrowser1.Navigate "http://www.ponhaseusiteaqui.com.br"

bota isso e vese funfa
wilclefi
wilclefi
Membro
Membro

Mensagens : 114

http://fanyot.tk

Ir para o topo Ir para baixo

[ALL]Site apareçendo no MainMenu Empty Re: [ALL]Site apareçendo no MainMenu

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos