Sección de códigos , trucos y ejemplos para visual basic

257 - Redimensionar gráfico con el Mouse

Ejemplo que redimensiona una imagen cargada en un control Image mediante el mouse

El siguiente ejemplo es igual a este otro que está en el siguiente enlace : Redimensionar imagen en image .. pero salvo por un detalle importante.

Si pruebas el ejemplo anterior, al redimensionar el gráfico cargado en el image, la imagen parpadea demasiado , y ni hablar si el gráfico es grande.

En cambio el control Image en este ejemplo, está contenido dentro de un control PictureBox

Al colocar el image dentro del control Picture, el parpadeo del control no sucede.

controles en el formulario

Un control CommonDialog para cargar un gráfico del disco en el Image
Un control CommandButton para abrir el cuadro de diálogo
Un control PictureBox llamado pic_Contenedor
Un control Image llamado img_Imagen

Código fuente en el formulario

Option Explicit ' Flag para que no se ejecute en el MouseMove _ cuando no se está presionando el botón del mouse Private Flag_MouseMove As Boolean Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar archivo a cargar en el Image " .ShowOpen If .FileName = vbNullString Then Exit Sub img_Imagen.Picture = LoadPicture(.FileName) End With End Sub Private Sub Form_Load() ' Coloca el control image dentro del control Picturebox Set img_Imagen.Container = Pic_Contenedor img_Imagen.Move 0, 0, Pic_Contenedor.ScaleWidth, _ Pic_Contenedor.ScaleHeight img_Imagen.BorderStyle = 0 img_Imagen.Stretch = True Pic_Contenedor.Top = Command1.Height + 10 Pic_Contenedor.Left = 10 Command1.Width = 1500 Command1.Caption = " >> Cargar imagen " End Sub Private Sub Form_Resize() On Local Error Resume Next Command1.Move Me.ScaleWidth - Command1.Width - 50, _ 60, 1500, 350 End Sub Private Sub img_Imagen_MouseDown( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) Flag_MouseMove = True End Sub Private Sub img_Imagen_MouseMove( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) 'Si no se está presionado sale If Not Flag_MouseMove Then Exit Sub End If 'Limpia el Formulario Me.Cls 'Mueve y redimensiona el control Image img_Imagen.Move 0, 0, Pic_Contenedor.ScaleWidth, _ Pic_Contenedor.ScaleHeight 'Posiciona y redimensiona el control picturebox Pic_Contenedor.Move Pic_Contenedor.Left, _ Pic_Contenedor.Top, _ x, y End Sub Private Sub img_Imagen_MouseUp( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) Flag_MouseMove = False End Sub

Recursos visual basic.NET - Enlaces relacionados

Redimensionar y hacer un thumbnail en vb.net con el método getThumbnailImage

Buscar en Recursos vb