Stretching the Image on MDI Form

[mahesh123]

Hi Folks,

I Want regarding the stretching image on the MDI Form?

I have one MDI Form and there is a image on that form? so that i want to stretch the image on the form according to the screen resoluation? these are the requriments i have? so please help me urgently.

Thanks & Regards
---------------------------
Mahesh

[Bum]

Hi Mahesh,

Look at

Screen.TwipsPerPixelX
Screen.TwipsPerPixelY

You get the size of your screen this way.

if you want, you can do below, add three pictureboxes to mdiform adn make them the same size as the mdiform like

picture1.height = mdiform1.height
picture1.width= mdiform1.width

Public Sub Setup_Image(FileName)
 
  'picture1 is the main interface
  'picture2 holds the original picture
  'picture3 holds the resized image and transfers it to picture1
 
  'everyones in twips
    Picture1.ScaleMode = 3
    Picture2.ScaleMode = 3
    Picture3.ScaleMode = 3
    Me.ScaleMode = 3
 
    'assign our pic
    Picture2.Picture = LoadPicture(FileName)
 
    HW = 600 'height/width 'size of our square
    Picture1.Width = HW
    Picture1.Height = HW
    Picture3.Width = HW
    Picture3.Height = HW
 
    'find out if the pic is tall or fat then scale to fit in box, then center
     MyWidth = Picture2.Picture.Width
     MyHeight = Picture2.Picture.Height
 
   ''find out if wider or taller, then find ratio
   If MyHeight >= MyWidth Then
      myRatio = MyWidth / MyHeight
      MyHeight = HW
      MyWidth = MyHeight * myRatio
      LeftBound = (HW - MyWidth) / 2
      TopBound = 0
   Else
      myRatio = MyHeight / MyWidth
      MyWidth = HW
      MyHeight = MyWidth * myRatio
      LeftBound = 0
      TopBound = (HW - MyHeight) / 2
   End If
 
    Picture1.AutoRedraw = True
    Picture3.AutoRedraw = True
    Picture3.Cls
 
    Call Picture3.PaintPicture(Picture2.Picture, _
                                LeftBound, TopBound, MyWidth, MyHeight)
    Picture3.Line (LeftBound, TopBound)-(MyWidth + LeftBound, MyHeight + TopBound), , B
 
    Picture1.Picture = Picture3.Image
 
End Sub

Hope this helps,

B

[Killer42]

mahesh123, what version of VB are you using?