Jump to content
Marias123

Imágenes en formularios

Recommended Posts

Buenas tardes

Estoy manejando controles de imagen

Al presionar un botón de comando me carga una galería de imágenes.

Ahora quiero que cuando le de Clic sobre la imagen ya cargada en el control imagen (img1) me cargue en otro control imagen (imgCeja).

Estoy utilizando un if porque en el mismo control imagen (img1) puedo cargar otra imagen y quiero verificar con un if la imagen cargada.

Private Sub img1_Click()
If img1.Picture = LoadPicture("Cejas\Cejas01.jpg") Then
    imgCeja.Picture = LoadPicture("Cejas\Cejas01.jpg")
End If

End Sub

Share this post


Link to post
Share on other sites

Se que este tipo de trabajos se requiere de muchas variables, ancho de cara, cara ovalado, redonda, alargado, etc. se que es jugar con convinación de imagenes. 

Con controles Normales: Al hacer Click en la imagen te hace una copia.

Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Image2.Picture = LoadPicture("C:\Users\Maquina10\Downloads\Faces\Imagenes\OjoIzq.jpg")
End Sub


 

Saludos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png