Microsoft Visual Basic: Zoom Problem Again !

I am using the following code given by one of the VB WORLD.COM member to zoom a picture.

Dim speed As Integer
speed = 5
With ActiveForm.Picture2
.Picture = .Image
.PaintPicture ActiveForm.Picture2, 0, 0, .ScaleWidth, .ScaleHeight, .ScaleWidth / speed, .ScaleHeight / speed, .ScaleWidth - .ScaleWidth / speed * 2, .ScaleHeight - .ScaleHeight / speed * 2
End With

The problem is that the picture is distorted when I use this method. Can anyone suggest me anothe way to Zoom out and Zoom in a picture?

Thanks.
Kinjal

Keywords & Tags: zoom, again, microsoft, visual basic, vb

URL: http://www.programmerbase.com/visual-basic/560772/

«« Prev - Next »» 3 helpful answers below.

I posted that two times, and no-one did reply. What do you mean with distorted? If you have large difference between height & width of the picture, you should consider modifying my code by setting a general zooming var or modify the scale

kedaman | Tue, 04 Dec 2007 12:33:00 GMT |

Sorry for asking the same question but since VB is new to me I only know the basics of it and nothing in deep. Also i am not at all familiar with API so I couldn't understand your code,and didn't modify it.

However thanks for your reply.

Can you please tell me whwther I can use the same code for demagnifying purpose?

Thanks a lot.

Kinjal.

kinjalgp | Tue, 04 Dec 2007 12:34:00 GMT |

There's nothing API about my code. Just put a negative value instead of a positive value to speed. Also, I suggest you should play around a bit with paintpicture, so that you know what you're doing.

kedaman | Tue, 04 Dec 2007 12:35:00 GMT |

Microsoft Visual Basic Related Links

Microsoft Visual Basic Hot Answers

ZOrder question
I have 2 frame controls on a form one directly below the other. Thebottom frame has a listview control on it. I make the listview visibleunder certain conditions. When I make the listview visible, I want it tobe the top most control on both the frame it is contained on but also ontop of the frame di...
Zooming a pictureBox
Hi all,I need to be able to zoom a PictureBox with all the child contols in thePictureBox. The only child controls are labels and TextBoxes. Any ideas?Any help is very much appreciated.Jim...
Zooming A picture
Does anyone know how to zoom (+ or -) a picture in a picture box. Please give me the code.Thanks....
Zoom out effect
[Originally posted by Raghu Ram.G]When i load my form.. can i load it with a zoom out effect? Plz get me the code.RegardsRam.g...
Zoom in powerpoint?
Does anyone know how to make your powerpoint slide open up with a zoom of300? Right now it is opening up and is too small to read, there is also nozoom when I open it as a webpreview....

Microsoft Visual Basic New questions

Z-ORDER
[Originally posted by Jim]Using pictureboxes, how do i write a function to move a picturebox forward or backward using their Z-order property. I don't want to move them all the way to the back, just one step backward at a time and the same for forward....
Zooming Algorithms
[Originally posted by Irfan Abbas Makandar]Hi there, I am currently working with GIS(Geographical Information System) and want zooming algorithms immediately. Please help me out by providing the references to search for and/or any websites U know. Thanking U in Advance....
Zooming a pictureBox
Hi all,I need to be able to zoom a PictureBox with all the child contols in thePictureBox. The only child controls are labels and TextBoxes. Any ideas?Any help is very much appreciated.Jim...
Zoom photo usin PictureBox?
how to do a ZOOM function by using the picture box or image box?thanksfrom TWS...
Zoom in powerpoint?
Zoom in powerpoint?...
Zoom In Picture Box
[Originally posted by Karlis]In am trying to mimic the "stretch" propertythat is available for the Image control in a Picture Box Control.In a using the StretchBlt API.The idea is to click the "Zoom In" buttonto enlarge and reposition the image so that it centres in the form.Each...
zoom in or out picture size
i want the picture box's is fixed.But i can zoom in and zoom out the picture which i had loaded.this means only picture size change but picture box's size is still same....
Zoom Image
how can i ZOOM a image by using image box or picture box??from TWS...
Zoom Image
How can I zoom the image to fit the control size? I want to do this both ina picture and Image controls.ThanksRav...
Zoom effect glitches...
[Originally posted by rcoltrane]Im using the current code to do a Form "zoom" effect, but during the zooming, the image shows a lot of crap in the form screen area. Is there any way to remove this graphic glitches during the zoom? (note: Ive used the me.refresh but it only works over the l...

Microsoft Visual Basic Related Categories

Microsoft Visual Basic