SLIDE DE FOTOS

KURTGU 18/04/2011 12:49:43
#371689

Pessoal Alguem tem um exemplo de slides de fotos aonde, vamos supor

5 picturebox uma do lado da outra vai indo todas <<<<<<<<<< ao mesmo tempo assim que a ultima passa pelo final da form elas voltam e se repete consegui com uma picture box com esse codigo....

Dim xx As Integer = 800
Dim y As Integer = 20
Dim x As Integer = -520

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x < -500 Then
PictureBox1.Location = New Point(x, y)
x = x + 2
ElseIf xx = -120 Then
x = -500
xx = 800
Else
xx = xx - 2
PictureBox1.Location = New Point(xx, y)

End If
End Sub

Se alguem souber como posso fazer o movimento das 5 picturebox ao mesmo tempo sem passar uma por cima da outra agradeceria muito.....

para quem nao entendeu o que estou fazendo e so entrar nesse site e voce vera um exemplo sendo exibido...
http://gamesbrasil.org/forum/forumdisplay.php?f=162

JONATHANSTECKER 18/04/2011 13:53:52
#371701 Resposta escolhida

EXIBINDO PICTUREBOX EM SLIDES

    Private Local_X(5) As Integer
    Private LarguraPic As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.LarguraPic = PictureBox1.Width
    End Sub

    Private Sub DefinePosicao()
        If Me.Local_X(5) + Me.LarguraPic < 0 Then Me.Local_X(1) = Me.LarguraPic * 5
        Me.Local_X(2) = Me.Local_X(1) + Me.LarguraPic
        Me.Local_X(3) = Me.Local_X(1) + Me.LarguraPic * 2
        Me.Local_X(4) = Me.Local_X(1) + Me.LarguraPic * 3
        Me.Local_X(5) = Me.Local_X(1) + Me.LarguraPic * 4
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.DefinePosicao()
        Me.PictureBox1.Location = New System.Drawing.Point(Me.Local_X(1), 12)
        Me.PictureBox2.Location = New System.Drawing.Point(Me.Local_X(2), 12)
        Me.PictureBox3.Location = New System.Drawing.Point(Me.Local_X(3), 12)
        Me.PictureBox4.Location = New System.Drawing.Point(Me.Local_X(4), 12)
        Me.PictureBox5.Location = New System.Drawing.Point(Me.Local_X(5), 12)
        Me.Local_X(1) -= 1
    End Sub

KURTGU 18/04/2011 14:18:39
#371707

jhonatan se tem um exemplo ai pra me passar apliquei aqui o codigo mais nao saiu do lugar?

KURTGU 18/04/2011 14:21:56
#371708

fiz funcionar mais aonde eu mudo para ele comecar do comeco da form <<<<<<<<| tipo saindo da form ele ta comecando do meio da form.....

JONATHANSTECKER 18/04/2011 14:24:37
#371710

Você chegou a ver o exemplo que te passei acima?
EXIBINDO PICTUREBOX EM SLIDES

Citação:
:
fiz funcionar mais aonde eu mudo para ele comecar do comeco da form <<<<<<<<| tipo saindo da form ele ta comecando do meio da form.....

Basta alterar o valor da variável.:

Me.Local_X(1) = ?

KURTGU 18/04/2011 14:26:58
#371712

a ta agora que eu vi vlw.....vou tentar ligar ele ao um bd mysql agora pra carregar as fotos de uma tabela........

KURTGU 18/04/2011 14:32:22
#371714

SO MAIS uma coisa a paradinha posso colocar em mouseenter e mouseleave ne tipo mouse enter timer 1 stop, mouseleave timer 1 start?????????????

JONATHANSTECKER 18/04/2011 14:33:25
#371715

Exatamente!

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        Me.Timer1.Start()
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Me.Timer1.Stop()
    End Sub

KURTGU 18/04/2011 14:44:19
#371717

COLOQUEI ASSIM PRA DA UM EFEITO A+++ DE SELECAO TIPO QUANDO O CARA COLOCA O MOUSE EM CIMA ELE PARA E AUMENTA A PICTUREBOX QUE O MOUSE TA EM CIMA

Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
Timer1.Stop()
PictureBox1.Size = New Size(PictureBox1.Width + 10, PictureBox1.Height + 10)
End Sub

Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
Timer1.Start()
PictureBox1.Size = New Size(PictureBox1.Width - 10, PictureBox1.Height - 10)
End Sub

JONATHANSTECKER 18/04/2011 14:47:34
#371718

Sim sim... Dá para inventar mais um monte de frescurada!

No final dá um charme ao sistema!

KURTGU 18/04/2011 14:47:50
#371719

TO TENtando da uma afastada uma da outra e que ta muito junta so um pouco....hehheee fucando aqui jhonatan da pra ligar esse exemplo a uma tabela de um bd mysql?

Página 1 de 2 [11 registro(s)]

Tópico encerrado , respostas não são mais permitidas

Voltar