resizing images

[akynaya]

so i have a several arrayed image boxes and i want the user during run time to be able to resize it.. would anyone know how?

THANK YOU!!!

[Killer42]

so i have a several arrayed image boxes and i want the user during run time to be able to resize it.. would anyone know how?

I guess you need to decide what sort of interface you have in mind to allow the user to resize an image.

If I remember correctly, you're using VB6?

[Killer42]

Under the assumption that you are using VB6, here's a little sample I just banged together. I'm a bit surprised it worked as well as it did. Just create a new project with a form, add a picture box, and paste this into the code window for the form (replacing whatever is already there).

Option Explicit
DefLng A-Z
 
Private MouseDown_X As Single, MouseDown_Y As Single
Private MouseDown_Width As Single, MouseDown_Height As Single
 
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MouseDown_X = X
  MouseDown_Y = Y
  MouseDown_Width = Picture1.Width
  MouseDown_Height = Picture1.Height
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Static Busy As Boolean
  If Not Busy Then
    Busy = True
    If Button And vbLeftButton Then
      ResizePicture X, Y
    End If
    Busy = False
  End If
End Sub
 
Private Sub ResizePicture(X As Single, Y As Single)
  Dim NewWidth As Single, NewHeight As Single
  NewWidth = MouseDown_Width + (X - MouseDown_X)
  NewHeight = MouseDown_Height + (Y - MouseDown_Y)
  Picture1.Width = NewWidth
  Picture1.Height = NewHeight
  DoEvents
End Sub

[akynaya]

Thank You I Will Try This Code =]

[akynaya]

IT does works but, if there are several images boxes and instead of a form you have a picture box as your work area? how can i resize it?

[Killer42]

IT does works but, if there are several images boxes and instead of a form you have a picture box as your work area? how can i resize it?

The fact that they reside within a picturebox shouldn't really make any difference.

If there are a bunch of images, a couple of ideas come to mind for tracking them...

• You could encode the "mousedown details" into the Tag property for each image, so that you don't have to store them somewhere else.
• Perhaps the simplest thing is to make the images a control array, and create a form-level variable array to keep the info relating to them. For example...
  

  Private Type ImageStuff
    X As Single
    Y As Single
    Width As Single
    Height As Single
  End Type
  Private ImageDetails() As ImageStuff
  ' You will need to decide how many elements you want in the above array,
  ' based on the size of your control array.
  '
  ' ...
  '
  Private Sub Image1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    With ImageDetails(Index)
      .X = X
      .Y = Y
      .Width = Picture1.Width
      .Height = Picture1.Height
    End With
  End Sub
   
  Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static Busy As Boolean
    If Not Busy Then
      Busy = True
      If Button And vbLeftButton Then
        ResizePicture Index, X, Y
      End If
      Busy = False
    End If
  End Sub
  '
  ' ...
  '
  Private Sub ResizeImage(Index As Integer, X As Single, Y As Single)
    With ImageDetails(Index)
      Image1(Index).Move .Width + (X - .X), .Height + (Y - .Y)
    End With
    DoEvents
  End Sub

Keep in mind, I just wrote this code right here, so it may need a little debugging.

[akynaya]

THANK YOU, I'll try this one out

[Killer42]

THANK YOU, I'll try this one out

Good luck. Let us know how it works out.