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

Menu Animado

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

1Tutorial Menu Animado em Seg 04 Nov 2013, 23:43

Luucas Robeerto


Fundador
Fundador
Antes do Sub Main() no Module modGameLogic adicione


Código:
'Menu Animado
Public MainMenuFrames As Integer
Public MainMenuFrameSet As Integer
Public buffer1 As PictureBox
Public buffer2 As PictureBox
Public buffer3 As PictureBox
Public buffer4 As PictureBox
Agora abra o frmMainMenu agora abra seu código interno, procure pelo Private Sub Form_Load ()

Mude tudo para


Código:
Private Sub Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
MainMenuFrames = 0
    For I = 1 To 4
        If I = 1 Then
            Ending = ".gif"
        End If

        If I = 2 Then
            Ending = ".jpg"
        End If

        If I = 3 Then
            Ending = ".png"
        End If
        
        If I = 4 Then          '-
            Ending = "0.gif"
        End If

        If FileExist("GUI\MainMenu" & Ending) Then
            If I < 4 Then
                frmMainMenu.Picture = LoadPicture(App.Path & "\GUI\MainMenu" & Ending)    'gif/jpg/png load normal
            Else
                Status.Interval = 500
                If FileExist("GUI\MainMenu0.gif") Then
                    Set buffer1 = Controls.Add("vb.picturebox", "buffer1")
                    buffer1.Visible = False
                    buffer1.Picture = LoadPicture(App.Path & "\GUI\MainMenu0.jpg")
                    MainMenuFrames = 1
                End If
                If FileExist("GUI\MainMenu1.gif") Then
                    Set buffer2 = Controls.Add("vb.picturebox", "buffer2")
                    buffer2.Visible = False
                    buffer2.Picture = LoadPicture(App.Path & "\GUI\MainMenu1.jpg")
                    MainMenuFrames = 2
                End If
                If FileExist("GUI\MainMenu2.gif") Then
                    Set buffer3 = Controls.Add("vb.picturebox", "buffer3")
                    buffer3.Visible = False
                    buffer3.Picture = LoadPicture(App.Path & "\GUI\MainMenu2.jpg")
                    MainMenuFrames = 3
                End If
                If FileExist("GUI\MainMenu3.gif") Then
                    Set buffer4 = Controls.Add("vb.picturebox", "buffer4")
                    buffer4.Visible = False
                    buffer4.Picture = LoadPicture(App.Path & "\GUI\MainMenu3.jpg")
                    MainMenuFrames = 4
                End If
                frmMainMenu.Picture = buffer1
                MainMenuFrameSet = 1
            End If
        End If
    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

Crie um timer com nome de Status seu intevalo de 2000  seu Enabled True
coloque no seu evento


Código:
Private Sub Status_Timer()
If MainMenuFrames > 0 Then
        MainMenuFrameSet = MainMenuFrameSet + 1
        If MainMenuFrameSet > MainMenuFrames Then
            MainMenuFrameSet = 1
        End If
    
        Select Case MainMenuFrameSet
        Case 1
            frmMainMenu.Picture = buffer1.Picture
        Case 2
            frmMainMenu.Picture = buffer2.Picture
        Case 3
            frmMainMenu.Picture = buffer3.Picture
        Case 4
            frmMainMenu.Picture = buffer4.Picture
        End Select
    End If
End Sub

depois faz 4 GUI do MainMenu com dois formatos diferentes GIF e jpg....
Obs renomeia os nome dos menu para MainMenu , MainMenu0, MainMenu1, MainMenu2, MainMenu3

Creditos Luucas Robeerto por criar o codigo


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

2Tutorial Re: Menu Animado em Sab 09 Nov 2013, 08:02

lucas gomes


Membro
Membro
\O/
exatamente oque eu estava procurando
+1 Cred

3Tutorial Re: Menu Animado em Dom 10 Nov 2013, 10:51

dazateam


Membro
Membro
vlw pelo tutorial, não usarei mas contenteza ajudara muitos Very Happy

4Tutorial Re: Menu Animado Hoje à(s) 12:21

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