ligar bien 1 picturebox con un data en visual Cerrado

Question

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

Elinv · Answer

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
----------------------------

MARJOHN2 · Answer

USA UN DATA BINDINGS  PARA USO DE SOLO  TU IMAGEN   YO HICE ESO I ME FUNCIONA MARAVILLLA

cl · Answer

que bueno.. gracias. anda practicar lenguaje de programaciom.. me alegro..

Ligar bien 1 picturebox con un data en visual

3 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!