Resizing Images

[Ali Rizwan]

Hi all,
I was busy for a long time for a project.
Now my question is that how can i resize any image like Jpg or bmp to the size of my form or screen resolution for example if screen resolution is 1024 x 768 then image resized to 1024 x 768.
Is there any other way except Paintpicture???

Thanx

>> ALI <<

[lotus18]

Hi all,
I was busy for a long time for a project.
Now my question is that how can i resize any image like Jpg or bmp to the size of my form or screen resolution for example if screen resolution is 1024 x 768 then image resized to 1024 x 768.
Is there any other way except Paintpicture???

Thanx

>> ALI <<

Hi

Private Sub Form_Load()
    Image1.Picture = LoadPicture("C:\MyImage.bmp")
End Sub
 
Private Sub Form_Resize()
    Image1.Width = Me.Width
    Image1.Height = Me.Height
End Sub

I'm just using an image control. Note: place the control at point 0,0 of your form and make your control (Image1) stretch property = true : )

Rey Sean

[Ali Rizwan]

Hi

Private Sub Form_Load()
Image1.Picture = LoadPicture("C:\MyImage.bmp")
End Sub
 
Private Sub Form_Resize()
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub

I'm just using an image control. Note: place the control at point 0,0 of your form and make your control (Image1) stretch property = true : )

Rey Sean

Thanx lotus but i dont mean like this i mean actual resizing. Actually i m creating a virtual desktop app and i want to add wallpaper features like in windows desktop, in which we can center, tile and stretch any wallpaper.

I hope you understand my problem.

Thanx
>> ALI <<

[pentahari]

Hi all,
I was busy for a long time for a project.
Now my question is that how can i resize any image like Jpg or bmp to the size of my form or screen resolution for example if screen resolution is 1024 x 768 then image resized to 1024 x 768.
Is there any other way except Paintpicture???

Thanx

>> ALI <<

you can get the screen size from screen.width and screen.height coding and you use the height and width to your form and image.

[jamesd0142]

Hi,

what version are you using these days?
I think i remember you saying you moved onto vb2008?

See if this code is any use i use it to good effect.

 Private Sub SaveResized
 
        Dim bm As New Bitmap(PictureBox2.Image)
 
        Dim myX As Integer
 
        Dim myY As Integer
 
        myX = 800
 
        myY = 600
 
        If myY = 0 Or myX = 0 Then Exit Sub Else 
 
        Dim thumb As New Bitmap(myX, myY)
 
        Dim g As Graphics = Graphics.FromImage(thumb)
 
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
 
        g.DrawImage(bm, New Rectangle(0, 0, myX, myY), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)
 
        g.Dispose()
 
        Dim message, title, defaultValue As String
 
        'Dim myValue As String
 
        'message = "Enter File Name:" ' Set prompt.
 
        'title = "Save Resized Photo" ' Set title.
 
        defaultValue = "" ' Set default value.
 
        'get name to save resized image, using Inputbox
 
        'myValue = InputBox(message, title, defaultValue)
 
        'If myValue = "" Then bm.Dispose() : thumb.Dispose() : Exit Sub Else 
 
        thumb.Save("C:\temp\resized\" & i & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
 
        bm.Dispose()
 
        thumb.Dispose()
 
        'Dim caption As String = "Save Resized Photo"
 
        'MessageBox.Show("The Resized Photo has been saved as: " & i, caption, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
 
    End Sub
 

This is vb2005 code

James

[Ali Rizwan]

Thanx James.
I ll convert this to vb6 format.
and i m also using vb2008 but i make my applications on vb6 till i got full control on vb2008.

Thanx
>> ALI <<