Visual Basic - cargar imagenes

Life is soft - evento anual de software empresarial
   
Vista:

cargar imagenes

Publicado por luzpp (2 intervenciones) el 28/05/2010 19:59:33
Hola bueno encontré este foro y espero que me puedan ayudar:
Tratare de ser lo mas especifica posible:
Tengo un formulario el cual tiene 3 picturebox que so (p1, p2 ,p3) y tiene 3 button la cuales son (b1, b2, b3) y lo tengo conectado al SQL SERVER 2005 a una tabla llamada imagen ahora mi problemita es que no se hacer el llamado que si yo aprieto b1 y después aprieto p1 me cargue la imagen1 o si aprieto b2 y después p2 me cargue la imagen2 y si ya tengo la imagen cargada ejemplo la imagen 1 que pueda apretar b1 + imagen1 y me cargue imagen 11 por favor si puede ayudarme a hacerlo o aconséjame hacerlo de otra forma con guía por supuesto se lo agradecería un monto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
ve al enlace por favor
bye
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:cargar imagenes

Publicado por luz peña (2 intervenciones) el 29/05/2010 08:02:32
mira la verdad eso no tiene nada que ver eso pero gracia de toda forma, resulta que me dieron esto cofigo pero la verdad no entiendo por ke no me funciona es decir lo picturebox ni me pesca si me podrias ayudar esto son lo codigo

Dim NombreBotonPreviamentePresionado As String


Sub CargarImagen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click


Select Case DirectCast(sender, Button).Name

Case "P1"

Select Case NombreBotonPreviamentePresionado

Case "button1"
Me.P1.Image = Image.FromFile("../../Resources/caries/1.png")

Case "button2"

Me.P1.Image = Image.FromFile("../../Resources/tapadura/1.png")

Case "button3"
' Me.P1.Image = Image.FromFile("../../Resources/tratamiento/1.png")

Case "button4"

Me.P1.Image = Image.FromFile("../../Resources/exodoncia/1.png")

Case "button5"
Me.P1.Image = Image.FromFile("../../Resources/ausente/1.png")

Case "button6"

Me.P1.Image = Image.FromFile("../../Resources/Corona/1.png")

Case "button7"
Me.P1.Image = Image.FromFile("../../Resources/Puente/1.png")


Case "P2"

Select Case NombreBotonPreviamentePresionado
Case "button1"
Me.P2.Image = Image.FromFile("../../Resources/caries/2.png")

Case "button2"

Me.P2.Image = Image.FromFile("../../Resources/tapadura/2.png")

Case "button3"
' Me.P2.Image = Image.FromFile("../../Resources/tratamiento/2.png")

Case "button4"

Me.P2.Image = Image.FromFile("../../Resources/exodoncia/2.png")

Case "button5"
Me.P2.Image = Image.FromFile("../../Resources/ausente/2.png")

Case "button6"

Me.P2.Image = Image.FromFile("../../Resources/Corona/2.png")

Case "button7"
Me.P2.Image = Image.FromFile("../../Resources/Puente/2.png")

End Select

End Select

End Select

NombreBotonPreviamentePresionado = DirectCast(sender, Button).Name
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:cargar imagenes

Publicado por juan carlos (518 intervenciones) el 01/06/2010 06:19:53
este codigo que te dieron es para visual.net no visual basic 6.0 por eso no te funciona en visual

con esto podras ver las imagenes
necesitas un filelistbox, un dirlistbox,un drivelistbox,un picturebox, un image
insertalos estos controles e insertas este codigo

en image1 pon en stretch a true

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Error GoTo fin
If Len(Dir1) = 3 Then
archivo = Dir1.Path & File1
Picture1.Picture = LoadPicture(archivo)
Image1.Picture = LoadPicture(archivo)
Else
archivo = Dir1.Path & "/" & File1
Picture1.Picture = LoadPicture(archivo)
Image1.Picture = LoadPicture(archivo)
End If
Exit Sub
fin:
MsgBox "Este archivo no es de imagen", 32, "Mensaje"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar