using track Bar to size image

Steven Low

Active member
Apr 14, 2005
Programming Experience
Hi guys Im having probelms with the trackbar...What I like to do is to allow the track bar to resize the image.

sooo far I have mangaed to use a textfield to size the image but it wud be better with a track bar one track bar for the height and another for the width..

So far I have dun this///If possible can sumone help me to enable the code to run on a track bar or is there a better example you guys can offer me that sows me how to use 2 track bars one for the hight and width.

Thank you

' Get the scale factor.

Dim scale_factor As Single = Single.Parse(TrackBar1.Text)

' Get the source bitmap.

Dim bm_source As New Bitmap(picSource.Image)

' Make a bitmap for the result.

Dim bm_dest As New Bitmap( _

CInt(bm_source.Width * scale_factor), _

CInt(bm_source.Height * scale_factor))

' Make a Graphics object for the result Bitmap.

Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

' Copy the source image into the destination bitmap.

gr_dest.DrawImage(bm_source, 0, 0, _

bm_dest.Width + 1, _

bm_dest.Height + 1)

' Display the result.

picDest.Image = bm_dest

End Sub

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

TrackBar1.Maximum = 1.9

TrackBar1.Minimum = 0.0

End Sub

Top Bottom