Visual Basic Foro

General => Códigos - Aportes - Recursos => Mensaje iniciado por: obethermy en Octubre 09, 2015, 01:29:37 pm

Título: Poner tamaño de la imagen del formulario a la resolucion de la pantalla
Publicado por: obethermy en Octubre 09, 2015, 01:29:37 pm

Código: (VB) [Seleccionar]

Private Sub MDIForm_Resize()
'principal es el nombre del formulario midi
 'If principal.WindowState = vbMinimized Then
  'principal.WindowState = vbMaximized
 'End If
'imagen de 640x480
 Const IMAGESIZE = 0.566893424036281 ' Tamaño de Imagen
 On Local Error Resume Next
 'principal.Width = w
 'principal.Height = h
 Dim ImageWidth As Single
 Dim ImageHeight As Single
 picStretch.Visible = False
 picStretch.AutoRedraw = True
 principal.picStretch.Height = principal.ScaleHeight
 ImageWidth = principal.picStretch.Picture.Width * IMAGESIZE
 ImageHeight = principal.picStretch.Picture.Height * IMAGESIZE
 principal.picStretch.PaintPicture principal.picStretch.Picture, 0, 0, principal.ScaleWidth, principal.ScaleHeight, 0, 0, ImageWidth, ImageHeight
 Set principal.Picture = picStretch.Image
 'para bloquear el tamaño de la ventana
 'principal.Height = tamaño
 'principal.Width = tamaño
End Sub

Título: Re:Poner tamaño de la imagen del formulario a la resolucion de la pantalla
Publicado por: obethermy en Octubre 09, 2015, 02:22:22 pm

la imagen tiene que estar en un picturebox dentro del formulario