Mari
09 de Enero del 2003

tengo un picturebox que me capta la imagen que elijo,pero me capta una parte de la foto no lo ajusta al tamaño del pictureBox que he creado, este es el codigo:

Private Sub pictFotoPaciente_DblClick()
On Error GoTo manejaerror
CommDialFoto.ShowOpen
If CommDialFoto.FileName <> " " Then
pictFotoPaciente.Picture = LoadPicture(CommDialFoto.FileName)
End If
manejaerror:
If Err.Number = 53 Then Resume Next
End Sub

Pero necesito saber como puedo hacer para que me cpture la foto tal como es no me muestre solo una parte..Por favor necesito ayuda urgente.Gracias

deCorvett
09 de Enero del 2003

Un método fácil:

Inserta un control image en el picturebox con la propiedad strech = true;

cambia tu código: en vez de
picfotopaciente.picture...
pon
(nombre del control imagen).picture...

a continuación crea un sub llamado Reajusta (por ejemplo), y en él, pon:

(nombre del control imagen).top=0
(n d c imagen).left=0
(n d c imagen).width= picfotopaciente.width
(n d c imagen).height=picfotopaciente.height
(n d c imagen).refresh

...y ya está

jorge
09 de Enero del 2003

El metodo LoadPicture admite un tamaño X e Y.

Pasale el valor que desees que será el del picture