Ligar bien 1 picturebox con un data en visual

Cerrado
kipis - 13 ago 2009 a las 01:14
 cl - 30 mar 2012 a las 23:58
Hola,
mira, me gustaria que me ayudaran tengo un problEma con mi programa, lo que pasa es que tengo una base de datos ligada con mis cajas de texto y me funciona bien , pero ahora tengo que hacer que mi programa me cambia de imagen al momento de buscar un producto.
Y PARA ESO TENGO QUE LIGAR SUPUESTAMENTE BIEN Y CODIFICAR MI DATA, MIS CAJAS DE TEXTO Y UN PICTUREBOX
por ejemplo si busco a juan me tiene que salir la imagen de juan, y si busco de andrea me tiene que salir la imagen de anderea y asdi sucesivamente, pero e batayado mucho y no e logrado hacerlo......................por favor espero y me atuden ....gracias

3 respuestas

Hola Kipis:

Tenes que poner un CommonDialog, un Command y un picturebox
----------------------------------------------------------------------
Private Sub Command9_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = " Seleccionar imagen"
.Filter = "BMP|*.bmp|JPEG|*.jpeg|GIF|*.gif|JPG|*.jpg|Todos|*.*"
.ShowOpen
If .FileName = "" Then
Exit Sub
Else
'Carga en nombre el path donde se ejecuta el programa, el directorio especificado
'y el nombre y la extensión de la imagen seleccionada.

Dim nombre As String: nombre = App.Path & "\imagenes\" & .FileTitle
'Copia la imagen seleccionada en el cuadro de dialogo en el lugar que dice la variable -nombre-
Call FileCopy(CommonDialog1.FileName, nombre)
'actualiza el campo -foto- con el valor de la variable -nombre-
rst!Foto_Auto = nombre
'actualiza el picture1 con la nueva imagen seleccionada.
Call cargar_Imagen(Picture2, nombre)
End If
End With
End Sub

----------------------------------------------------------------------

la función cargar_Imagen podría ser mas o menos así


----------------------------------------------------------------------

Sub cargar_Imagen(Objeto As Object, Path_Foto As String)
On Error Resume Next
Dim Pos_x As Single
Dim Pos_y As Single
Dim Anchoimagen As Single
Dim Altoimagen As Single
Dim Anchoobjeto As Single
Dim Altoobjeto As Single

Dim escalaoriginal As Single
Set foto = LoadPicture(Path_Foto)

With Objeto
.AutoRedraw = True
.Cls
escalaoriginal = .ScaleMode
.ScaleMode = vbPixels

Anchoimagen = .ScaleX(foto.Width, vbHimetric, vbPixels)
Altoimagen = .ScaleY(foto.Height, vbHimetric, vbPixels)

Anchoobjeto = .ScaleWidth
Altoobjeto = .ScaleHeight

If Anchoimagen > Anchoobjeto Then
Anchoimagen = Anchoimagen - (Anchoimagen - Anchoobjeto)
Altoimagen = Altoobjeto
End If

If Altoimagen > Altoobjeto Then
Altoimagen = Altoimagen - (Altoimagen - Altoobjeto)
Anchoimagen = Anchoobjeto - (Anchoimagen - Anchoobjeto)
End If

Pos_x = (Anchoobjeto - Anchoimagen) / 2
Pos_y = (Altoobjeto - Altoimagen) / 2

End With
Objeto.PaintPicture foto, Pos_x, Pos_y, Anchoimagen, Altoimagen
Objeto.ScaleMode = escalaoriginal
End Sub
----------------------------------------------------------------------

Cada vez que te moves a un recordset determinado, mandas a que se ejecute la función cargar_Imagen.

Como veras en la primera parte de esto, la imagen que vas a colocar en el campo previsto para ello en la base de datos, se copia a un directorio determinado por vos, y en la base de datos solo queda alojado el destino de dicha imagen, de esta forma la base no adquiere volumenes impresionantes como en otros métodos donde alojas la imagen dentro de la misma base de datos por intermedio del Objeto OLE.

Un abrazo, y con esto creemos que te servirá para investigar y avanzar en tu proyecto.


Elinv
Luis
----------------------------
Webs
----------------------------
http://www.bragadomas.com.ar
http://www1.bragadomas.com/?tm=1&kw=music&KW1=Searchable%20MP3%20Database%20Software&KW2=Music%20Streaming%20Dedicated%20Server&KW3=Ringtone%20Database%20Management%20Software&searchbox=0&domainname=0&backfill=0
https://bragadohoy.blogspot.com/
----------------------------
Mail
----------------------------
info@bragadomas.com
----------------------------
Foros:
----------------------------
http://www.foroswebgratis.com/foro-foro_de_programacion_en_general-152776.htm
http://www1.bragadomas.com/?tm=1&kw=music&KW1=Searchable%20MP3%20Database%20Software&KW2=Music%20Streaming%20Dedicated%20Server&KW3=Ringtone%20Database%20Management%20Software&searchbox=0&domainname=0&backfill=0
----------------------------
0
USA UN DATA BINDINGS PARA USO DE SOLO TU IMAGEN YO HICE ESO I ME FUNCIONA MARAVILLLA
0
que bueno.. gracias. anda practicar lenguaje de programaciom.. me alegro..
0