[EE] Main Menu Animado - Eclipse Evolution 2.7

por Karlos Seg 26 Jul 2010, 21:24

Limitações:
~~- Os arquivos devem ser nomeados MainMenuX. gif~~ Consertado, agora pode ser posto em .jpg ou .bmp na ausência de .jpg.
~~- Limitado a 4 frames. (Mais fáceis de adicionar, mas exige algumas modificações no código abaixo)~~ Consertado, add quantos você quiser agora, basta ter um pequeno conhecimento de vb script xD
- Alto intervalo exigido (desde a mudança da imagem é um tipo de negrito você vai ver que ele da uma piscada quando a animação é acionada). A Trabalhar

Abra o cliente pelo VB6, va o odulo modGlobals e adicione o codigo abaixo do Opition Explicit

Código:: ' Main Menu Animado xD 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 (), quando achar substitua toda a sub pela sub abaixo.

Código:: Private Sub Form_Load() Dim i As Long Dim Ending 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 FileExists("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 '<------- This is the interval (plucked from the original form). Time is miliseconds (1500 = 1.5 second) If FileExists("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 FileExists("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 FileExists("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 FileExists("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 'Sets buffer1 as starting image MainMenuFrameSet = 1 End If End If Next i Ending = ReadINI("CONFIG", "MenuMusic", App.Path & "\config.ini") If LenB(Ending) <> 0 Then Call MenuMusic.PlayMedia(App.Path & "\Music" & Ending, True) End If Call MainMenuInit End Sub

Procure agora pela seguinte sub Private Sub Status_Timer () e antes do end sub adicione o seguinte codigo.

Código:: 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

Agora você deve criar 4 GUIS para main menu, cada uma diferente da outra é claro, e nomeadas da seguinte forma, mainmenu0, maisnmenu1, mainmenu2, mainsmenu3. isso é tudo Very Happy

até + xD

Exemplo Smile

por Karlos Sáb 14 Ago 2010, 17:45

é, isso mesmo =/ parece que ninguém gostou do tuto

por Wesl Games Ter 02 Nov 2010, 16:40

Desculpe por resussitar o topico mais eu quero saber ond eu acho o Private Sub Form_Load ()
obs:eu uso eclipse super nova

por gin Ter 02 Nov 2010, 16:47

Eu acredito que sejá diferente, pois e pelo Eclipse Evolution, mais já que eu não sei de nada então fico calado =X mais uma vez tentei e não consegui, OBS: tambem uso Sclipse Super Nova XD

por Wesl Games Ter 02 Nov 2010, 17:14

ACHEI!TAVA NA MINHA CARA!

por Karlos Ter 02 Nov 2010, 19:03

respondendo a resposta do WELS mesmo que ele tenha achado a resposta é bom ostar para que proximas duvidas sejão solucionadas e para que o tópico não torne a morrer nem tão cedo [EE] Main Menu Animado - Eclipse Evolution 2.7 943357

[EE] Main Menu Animado - Eclipse Evolution 2.7 943357

dopkasdokadspodaskpo

de um double click no formulário asdpokaosdkdsaopk ta aew a sub citada asuhauahuhsa

por Lucas Lôpo Ter 02 Nov 2010, 19:39

Legal.

por Rio Absolut Ter 02 Nov 2010, 19:47

Spam .....

Off , O Tuto daria para fazer em botões? fazer 1 botão animado ..

por Lucas Lôpo Ter 02 Nov 2010, 19:49

Nesse tutorial não.

por Karlos Ter 02 Nov 2010, 20:24

com esse tuto não, mas isso do botão animado é facil. quanto de crédito vou ganhar e postar isso? Very Happy

e como vc uer? quer que o botão fique brilhando? :X ou que nem link? o do link eu não passo não :X

por gin Qua 03 Nov 2010, 08:59

o que ele diz com Botão animado e um Botão de Box? tipo você passa por cima e muda a cor e ao aperta tambem??

por Lucas Lôpo Qui 04 Nov 2010, 09:49

Noobs. Vai fazer que nem da engine no Mr'Miguu ?
Cria seu modulo com efeitos de botoes ai eu quero ver ;D

por Karlos Qui 04 Nov 2010, 10:23

na minha tem apokasdokasdpodsakoadkads

por Lucas Lôpo Qui 04 Nov 2010, 10:47

HAHAHAAH , Mostrem a parte nerd de vocês ;D
Aa lembrando irei criar um topico "MEU" para pedido de tutoriais.
Estou afim de levantar um pouco mais esse forum então , quem exigir muito irei mandar
para o inferno flw?
Abraços , conto com vocês.

por Rio Absolut Qui 04 Nov 2010, 10:52

Seria 1 Label que ao passar o mause ela muda de img .

por Lucas Lôpo Qui 04 Nov 2010, 11:11

Label?
Não.
Seria algo como isso :

Duas imagens , cendo que uma para o corresponder com o mouse em cima do mesmo e outra sem o mouse.

Codigo seria mais ou menos assim:

Código:: Private Sub Fundo_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Button1.Tag = "1" Then Button1.Tag = "0" Button1.Picture = LoadPicture(App.Path & "\DATA\GUI\Button1B.bmp") End If End Sub

Depois na Form_Load da form.

Código:: Private Sub Form_Load() Button1.Picture = LoadPicture(App.Path & "\DATA\GUI\Button1B.bmp") End Sub

Depois adicione isso :

Código:: Private Sub Button1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Select Case Index Case 1 If Button1(Index).Tag = "0" Then Button1(Index).Tag = "1" Button1(Index).Picture = LoadPicture(App.Path & "\DATA\GUI\Button1R.bmp") End If End Select End Sub

Agora vocês se virem ai =D

por Rio Absolut Qui 04 Nov 2010, 11:12

Label , Picture , Botão qualquer 1 que sirva como 1 Botão .

por Conteúdo patrocinado

[EE] Main Menu Animado - Eclipse Evolution 2.7

[EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7

Re: [EE] Main Menu Animado - Eclipse Evolution 2.7