Ver Mensaje Individual
  #17 (permalink)  
Antiguo 17/11/2009, 09:29
KenMasters
 
Fecha de Ingreso: abril-2005
Ubicación: Piura - Perú
Mensajes: 189
Antigüedad: 19 años, 1 mes
Puntos: 0
Respuesta: Resizar MDIform.picture (VB6)

agregas en tu menu ó en un boton lo siguiente :
Previo agregas los Microsoft CommonDialog (control + t)
Código:
Private Sub cambiafondo_Click()
CommonDialog1.DialogTitle = "Seleccione una imagen"
CommonDialog1.Filter = "Archivos Jpg|*.jpg|Archivos Bmp|*.bmp|Archivos Gif|*.gif|Archivos de íconos|*.ico|Todos los Archivos|*.*"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
    picStretch.Picture = LoadPicture(CommonDialog1.FileName)
    Call redimensionarImagenMDIForm
End If
End Sub