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

Tirando a pasta GUI

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

1Tutorial Tirando a pasta GUI em Sab 25 Jun 2011, 10:52

RicardoxD


Membro
Membro
Client~Side

Va na frmChars, e procure por:

Código:
        If FileExist("GUI\chars" & Ending) Then frmChars.Picture = LoadPicture(App.Path & "\GUI\chars" & Ending)

Apague essa linha inteira

Na frmDeletarAccount procure por:

Código:
        If FileExist("GUI\medium" & Ending) Then frmDeleteAccount.Picture = LoadPicture(App.Path & "\GUI\medium" & Ending)

Apague essa linha inteira

Na frmGuild procure por:

Código:
        If FileExist("GUI\content" & Ending) Then frmGuild.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)

Apague essa linha inteira

Na frmMainMenu procure por:

Código:
        If FileExist("GUI\mainmenu" & Ending) Then frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\mainmenu" & Ending)

Apague essa linha inteira

Na frmMirage procure por:

Código:
        If FileExist("GUI\game" & Ending) Then frmMirage.Picture = LoadPicture(App.Path & "\GUI\game" & Ending)
        If FileExist("GUI\content" & Ending) Then frmMirage.picOptions.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
        If FileExist("GUI\content" & Ending) Then frmMirage.itmDesc.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
        If FileExist("GUI\content" & Ending) Then frmMirage.picGuildAdmin.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
        If FileExist("GUI\content" & Ending) Then frmMirage.picInv3.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
        If FileExist("GUI\content" & Ending) Then frmMirage.picEquip.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)
        If FileExist("GUI\contentlist" & Ending) Then frmMirage.picPlayerSpells.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending)
        If FileExist("GUI\contentlist" & Ending) Then frmMirage.picWhosOnline.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending)
        If FileExist("GUI\contentlist" & Ending) Then frmMirage.picFriend.Picture = LoadPicture(App.Path & "\GUI\contentlist" & Ending)
        If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picChatRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending)
        If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picTradeRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending)
        If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picPartyRequest.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending)
        If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picStat.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending)
        If FileExist("GUI\contentsmall" & Ending) Then frmMirage.picGuild.Picture = LoadPicture(App.Path & "\GUI\contentsmall" & Ending)

Apague essa linha inteira

Na frmNewAccount procure por

Código:
        If FileExist("GUI\medium" & Ending) Then frmNewAccount.Picture = LoadPicture(App.Path & "\GUI\medium" & Ending)

Apague essa linha inteira

Na frmNewChar procure por:

Código:
        If FileExist("GUI\medium2" & Ending) Then frmNewChar.Picture = LoadPicture(App.Path & "\GUI\medium2" & Ending)

Apague essa linha inteira

Na frmPlayerChat procure por:

Código:
        If FileExist("GUI\contentbox" & Ending) Then frmPlayerChat.Picture = LoadPicture(App.Path & "\GUI\contentbox" & Ending)

Apague essa linha inteira

Na frmPlayerTrade procure por:

Código:
        If FileExist("GUI\content" & Ending) Then frmPlayerTrade.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)

Apague essa linha inteira

Na frmSendGetData procure por:

Código:
        If FileExist("GUI\loading" & Ending) Then frmSendGetData.Picture = LoadPicture(App.Path & "\GUI\loading" & Ending)

Apague essa linha inteira

Na FrmTalk procure por:

Código:
        If FileExist("GUI\content" & Ending) Then frmNewChar.Picture = LoadPicture(App.Path & "\GUI\content" & Ending)

Apague essa linha inteira

Na frmTrade procure por:

Código:
        If FileExist("GUI\shop" & Ending) Then frmTrade.Picture = LoadPicture(App.Path & "\GUI\shop" & Ending)

Apague essa linha inteira

Procure por:
Código:

    If UCase(Dir(App.Path & "\GUI", vbDirectory)) <> "GUI" Then
        Call MkDir(App.Path & "\GUI")
    End If

Apague tudo

Procure por:

Código:
    If FileExist("GUI\Cores.txt") = False Then
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B", 120)
       
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B", 120)
       
        Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "B", 120)
       
        Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B", 120)

        Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B", 120)
       
        Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R", 152)
        Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G", 146)
        Call PutVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B", 120)
    End If
   
    Dim R1 As Long, G1 As Long, B1 As Long
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATBOX", "B"))
    frmMirage.txtChat.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "CHATTEXTBOX", "B"))
    frmMirage.txtMyTextBox.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "BACKGROUND", "B"))
    frmMirage.Picture9.BackColor = RGB(R1, G1, B1)
    frmMirage.Picture8.BackColor = RGB(R1, G1, B1)
    frmMirage.picInv3.BackColor = RGB(R1, G1, B1)
    frmMirage.itmDesc.BackColor = RGB(R1, G1, B1)
    frmMirage.picWhosOnline.BackColor = RGB(R1, G1, B1)
    frmMirage.picGuildAdmin.BackColor = RGB(R1, G1, B1)
    frmMirage.picGuild.BackColor = RGB(R1, G1, B1)
    frmMirage.picEquip.BackColor = RGB(R1, G1, B1)
    frmMirage.picPlayerSpells.BackColor = RGB(R1, G1, B1)
    frmMirage.picOptions.BackColor = RGB(R1, G1, B1)
   
    frmMirage.chkbubblebar.BackColor = RGB(R1, G1, B1)
    frmMirage.chkEmoSound.BackColor = RGB(R1, G1, B1)
    frmMirage.chknpcname.BackColor = RGB(R1, G1, B1)
    frmMirage.chkplayername.BackColor = RGB(R1, G1, B1)
    frmMirage.chkplayerdamage.BackColor = RGB(R1, G1, B1)
    frmMirage.chknpcdamage.BackColor = RGB(R1, G1, B1)
    frmMirage.chkmusic.BackColor = RGB(R1, G1, B1)
    frmMirage.chksound.BackColor = RGB(R1, G1, B1)
    frmMirage.chkAutoScroll.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "SPELLLIST", "B"))
    frmMirage.lstSpells.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "WHOLIST", "B"))
    frmMirage.lstOnline.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "FRIENDLIST", "B"))
    frmMirage.lstFriend.BackColor = RGB(R1, G1, B1)

    R1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "R"))
    G1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "G"))
    B1 = Val(GetVar(App.Path & "\GUI\Cores.txt", "NEWCHAR", "B"))
    frmNewChar.optMale.BackColor = RGB(R1, G1, B1)
    frmNewChar.optFemale.BackColor = RGB(R1, G1, B1)[font=Comic Sans Ms]
[/font]

Mude para:

Código:
    If FileExist("GFX\Cores.txt") = False Then
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "B", 120)
       
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "B", 120)
       
        Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "B", 120)
       
        Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "B", 120)

        Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "B", 120)
       
        Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "R", 152)
        Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "G", 146)
        Call PutVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "B", 120)
    End If
   
    Dim R1 As Long, G1 As Long, B1 As Long
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATBOX", "B"))
    frmMirage.txtChat.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "CHATTEXTBOX", "B"))
    frmMirage.txtMyTextBox.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "BACKGROUND", "B"))
    frmMirage.Picture9.BackColor = RGB(R1, G1, B1)
    frmMirage.Picture8.BackColor = RGB(R1, G1, B1)
    frmMirage.picInv3.BackColor = RGB(R1, G1, B1)
    frmMirage.itmDesc.BackColor = RGB(R1, G1, B1)
    frmMirage.picWhosOnline.BackColor = RGB(R1, G1, B1)
    frmMirage.picGuildAdmin.BackColor = RGB(R1, G1, B1)
    frmMirage.picGuild.BackColor = RGB(R1, G1, B1)
    frmMirage.picEquip.BackColor = RGB(R1, G1, B1)
    frmMirage.picPlayerSpells.BackColor = RGB(R1, G1, B1)
    frmMirage.picOptions.BackColor = RGB(R1, G1, B1)
   
    frmMirage.chkbubblebar.BackColor = RGB(R1, G1, B1)
    frmMirage.chkEmoSound.BackColor = RGB(R1, G1, B1)
    frmMirage.chknpcname.BackColor = RGB(R1, G1, B1)
    frmMirage.chkplayername.BackColor = RGB(R1, G1, B1)
    frmMirage.chkplayerdamage.BackColor = RGB(R1, G1, B1)
    frmMirage.chknpcdamage.BackColor = RGB(R1, G1, B1)
    frmMirage.chkmusic.BackColor = RGB(R1, G1, B1)
    frmMirage.chkSound.BackColor = RGB(R1, G1, B1)
    frmMirage.chkAutoScroll.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "SPELLLIST", "B"))
    frmMirage.lstSpells.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "WHOLIST", "B"))
    frmMirage.lstOnline.BackColor = RGB(R1, G1, B1)
   
    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "FRIENDLIST", "B"))
    frmMirage.lstFriend.BackColor = RGB(R1, G1, B1)

    R1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "R"))
    G1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "G"))
    B1 = Val(GetVar(App.Path & "\GFX\Cores.txt", "NEWCHAR", "B"))
    frmNewChar.optMale.BackColor = RGB(R1, G1, B1)
    frmNewChar.optFemale.BackColor = RGB(R1, G1, B1)



Agora exclua a pasta GUI

Uh termino [Você precisa estar registrado e conectado para ver esta imagem.]


Obs.: Agora vc tem que colocar as gui pelo VB

Creditos:
A mim

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