Cargar una imagen en un formulario mediante un combobox

Tengo un formulario de ingreso de datos que esta compuesto por un combobox, varios textbox y un control de imagen. El combobox se carga desde una tabla con los codigos de mis clientes A-1, A-2 etc una vez seleccionado un código relleno la incidencia ocurrida con ese cliente en los textbox y lo guardo en una tabla. La idea es que al seleccionar un código desde el combobox para rellenar una incidencia me cargue en el formulario la foto de ese cliente de forma que sepa a quien pertenece el código. La imágenes de los clientes las tengo en una carpeta identificadas con los mismos codigos que aparecen en el combobox. Le agradecería que me diera alguna idea de como elaborar el código.

1 respuesta

Respuesta

Este es un ejemplo de insertar una imagen en un formulario, puede adaptarlo a su formulario, cualquier cosa comenta

Private Sub CommandButton2_Click()
    Dim foto As Variant
    foto = Application.GetOpenFilename(FileFilter:= _
                "Imagen (*.gif;*.jpg;*.jpeg;*.bmp), *.gif;*.jpg;*.jpeg;*.bmp", _
                Title:="Seleccionar imagen", MultiSelect:=False)
    If foto = False Then
    Exit Sub
    End If
        Image1.Picture = LoadPicture(foto)
            Image1.PictureSizeMode = fmPictureSizeModeStretch
            Image1.Width = 120
            Image1.Height = 120
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas