Slide na frmMenu Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Slide na frmMenu

4 participantes

Ir para baixo

Slide na frmMenu Empty Slide na frmMenu

Mensagem por newbie123 Sex Nov 28, 2014 11:19 am

A pedido de um membro criei esse tutorial, é um pouco simples...

Abra o Client.vbp e depois a frmMenu:
Crie dentro da frmMenu uma picture, com as seguintes propriedades:


Name = picSlide


Agora dentro da picSlide acrescente 3 label com as seguintes propriedades:


Label 1:
Name = lblSlide1
Caption = 1

Label 2:
Name = lblSlide2
Caption = 2

Label 3:
Name = lblSlide3
Caption = 3


Clique com o botão direito do mouse na frmMenu, e depois escolha para ver o codigo da mesma, agora procure:

Código:
Private Sub lblSprite_Click()

acima coloque:

Código:
Private Sub lblSlide1_Click()
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\1.jpg")
lblTSlide.Caption = 1
End Sub

Private Sub lblSlide2_Click()
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\2.jpg")
lblTSlide.Caption = 2
End Sub

Private Sub lblSlide3_Click()
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\3.jpg")
lblTSlide.Caption = 3
End Sub

Ainda não acabamos, volte para a frmMenu, e crie um Timer na mesma(é um reloginho que tem aqui do lado <<<) com as seguintes propriedades:


Interval = 3000


Dentro do Timer add o seguinte codigo:
Código:
lblTSlide.Caption = lblTSlide.Caption + 1
If lblTSlide.Caption = 1 Then
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\1.jpg")
ElseIf lblTSlide.Caption = 2 Then
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\2.jpg")
ElseIf lblTSlide.Caption = 3 Then
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\3.jpg")
ElseIf lblTSlide.Caption > 3 Then
picSlide.Picture = LoadPicture(App.Path & "\data files\graphics\Slide\1.jpg")
lblTSlide.Caption = 1
End If

Muito bem, agora na frmMenu crie uma label com as seguintes propriedades:

Name = lblTSlide
Caption = 0
Visible = False

Agora procure na frmMenu por:
Código:
Private Sub imgButton_Click(Index As Integer)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Select Case Index
        Case 1
            If Not picLogin.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = False
                picLogin.Visible = True
                picRegister.Visible = False
                picCharacter.Visible = False
                picMain.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 2
            If Not picRegister.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = False
                picLogin.Visible = False
                picRegister.Visible = True
                picCharacter.Visible = False
                picMain.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 3
            If Not picCredits.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = True
                picLogin.Visible = False
                picRegister.Visible = False
                picCharacter.Visible = False
                picMain.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 4
            Call DestroyGame
    End Select
    
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "imgButton_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Substitua por:
Código:
Private Sub imgButton_Click(Index As Integer)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler
    
    Select Case Index
        Case 1
            If Not picLogin.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = False
                picLogin.Visible = True
                picRegister.Visible = False
                picCharacter.Visible = False
                picMain.Visible = False
                picSlide.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 2
            If Not picRegister.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = False
                picLogin.Visible = False
                picRegister.Visible = True
                picCharacter.Visible = False
                picMain.Visible = False
                picSlide.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 3
            If Not picCredits.Visible Then
                ' destroy socket, change visiblity
                DestroyTCP
                picCredits.Visible = True
                picLogin.Visible = False
                picRegister.Visible = False
                picCharacter.Visible = False
                picMain.Visible = False
                picSlide.Visible = False
                ' play sound
                PlaySound Sound_ButtonClick
            End If
        Case 4
            Call DestroyGame
    End Select
    
    ' Error handler
    Exit Sub
errorhandler:
    HandleError "imgButton_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub



Agora ja pode compilar, porém lembrem-se para o sistema da certo é preciso na pasta graphics cria uma nova pasta com o nome Slide, e dentro da mesma add imagens 1.jpg, 2.jpg e 3.jpg.


Creditos
Newbie123
newbie123
newbie123
Semi-Experiente
Semi-Experiente

Mensagens : 128
Créditos : 35

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por Hashirama Sex Nov 28, 2014 12:05 pm

Muito bom esse sistema, da para deixar o visual bem melhor
1+crédito

_________________
Apoia nosso projeto? use nossa assinatura
Hashirama
Hashirama
Membro de Honra
Membro de Honra

Mensagens : 413
Créditos : 133

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por Spooky Dom Dez 21, 2014 12:51 am

O que isso faz? '-' malz deixar essa mensagem só pra isso. fiquei confuso '-'

_________________
Sign
Slide na frmMenu Hticjn

Sign¹:

Sign²:
Spooky
Spooky
Membro Ativo
Membro Ativo

Mensagens : 267
Créditos : 24

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por Pablo Kawan Dom Dez 21, 2014 1:04 am

Trafalgar D. Law escreveu:O que isso faz? '-' malz deixar essa mensagem só pra isso. fiquei confuso '-'
um slide cara, nunca fez trabalho no colegio ou viu alguem dizer não ? o.O num manja dos ingres ?

_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Slide na frmMenu H2D9a9k
Pablo Kawan
Pablo Kawan
Experiente
Experiente

Mensagens : 480
Créditos : 158

http://tavernarpg.esy.es/

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por Spooky Dom Dez 21, 2014 1:29 am

Na verdade, não. e continuo sem saber o que é isto '-'
@edit:
Eu sei o que é mais não sei o que faz no jogo.

_________________
Sign
Slide na frmMenu Hticjn

Sign¹:

Sign²:
Spooky
Spooky
Membro Ativo
Membro Ativo

Mensagens : 267
Créditos : 24

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por newbie123 Dom Dez 21, 2014 10:33 am

Trafalgar isso ai mostra tipo as ultimas informações... ja entrou no site da levelup? que tem aqueles negocio passando mostrando os jogos e tals pronto é tipo aquilo, só que você pode colocar por exemplo no update ai fica la mostrando as ultimas att do jogo.
newbie123
newbie123
Semi-Experiente
Semi-Experiente

Mensagens : 128
Créditos : 35

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

Mensagem por Spooky Seg Dez 22, 2014 4:48 pm

acho que sim... não vou usar mais vou dar +1cred
e também, como faço pra criar um launcher? '-'

_________________
Sign
Slide na frmMenu Hticjn

Sign¹:

Sign²:
Spooky
Spooky
Membro Ativo
Membro Ativo

Mensagens : 267
Créditos : 24

Ir para o topo Ir para baixo

Slide na frmMenu Empty Re: Slide na frmMenu

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