Como modificar una imagen en un form atraves de un boton

[rimobi]

he creador una Form y quiero k k cambie una imagen si pulso.. un boton ... como puedo hacer k al pulsarlo se cambie la imagen x otra ???

[rimobi]

xfavor alguien sabria ayudarme....
quiero poner un boton k aga k se modifique Picture1 y se carge otra imagen distinta...

[ginitofl]

Hola como te va agregame al msn para poder ayudarte agregame a : [email protected]

[seba123neo]

Hola,suponete que en tu carpeta tenes fotos llamadas 1.jpg 2.jpg 3.jpg ..... asi hasta la foto 10,entonces con este codigo que te pongo al apretar el boton va cambiando la imagen aleatoriamente de las que tenes en la carpeta.

Código:

Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
Dim i As Integer
imagen = App.Path & "\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg"
Picture1.Picture = LoadPicture(imagen)
End Sub

podes cambiar el nombre picture1 por el nombre del form y lo haces en el form como si fuera en el picture.el valor de los limites dependen de la cantidad de fortos y los nombres.

saludos.

[ferrar1000]

Iniciado por seba123neo

Hola,suponete que en tu carpeta tenes fotos llamadas 1.jpg 2.jpg 3.jpg ..... asi hasta la foto 10,entonces con este codigo que te pongo al apretar el boton va cambiando la imagen aleatoriamente de las que tenes en la carpeta.

Código:

Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
Dim i As Integer
imagen = App.Path & "\" & Int((Limite1 - Limite2 + 1) * Rnd + Limite1) & ".jpg"
Picture1.Picture = LoadPicture(imagen)
End Sub

podes cambiar el nombre picture1 por el nombre del form y lo haces en el form como si fuera en el picture.el valor de los limites dependen de la cantidad de fortos y los nombres.

saludos.

o si quieres que vaya canviando del 1 al X consecutivamente i al llegar al limite vualva al 1:

Código:

Public contador As Integer = 1
Private Sub Command1_Click()
Dim Limite1 As Integer
Dim Limite2 As Integer
Limite1 = 1
Limite2 = 10
Dim imagen As String
If contador < Limite2 Then
imagen = App.Path & "\" & contador & ".jpg"
contador = contador + 1
Else
imagen = App.Path & "\1.jpg"
contador = 1
End If
Picture1.Picture = LoadPicture(imagen)
End Sub

Espero que te funcione