Microsoft Visual Basic: Zoom in and out with graphics in VB

Hi All,

I have an application in which I project images and lines on a VB form
through so called Ropes and Boxes:

Boxes:
Public stdPic As StdPicture, X&, Y&, Text$, Text2$, Id$

Public Sub Draw(Obj As Form) 'vbWhite
Call Obj.PaintPicture(stdPic, X - 90, Y - 90) 'Obj
Obj.CurrentX = X + 180 - (Len(Text) \ 2) * 100
Obj.CurrentY = Y + 470
Obj.Print Text;
Obj.CurrentX = X + 180 - (Len(Text2) \ 2) * 100
Obj.CurrentY = Y + 670
Obj.Print Text2;
End Sub

Ropes:
Public a As Box, b As Box, Text$, color&

Public Sub Draw(Obj As Form)

On Error Resume Next
Obj.Line (a.X, a.Y)-(b.X, b.Y), color
Obj.CurrentX = (a.X + b.X) \ 2 - (Len(Text) \ 2) * 100
Obj.CurrentY = a.Y + 0.5 * (b.Y - a.Y) - 100
Obj.Print Text;
End Sub

The way they are projected is based on data from a database:

For LoopPts = 1 To MyDataCount
With CircPts(LoopPts)
Font.Size = 24
Boxes.Add
NewBox(ImageList1.ListImages(MyData(LoopPts).pIcon).Picture, .X, .Y,
MyData(LoopPts).sLabel, MyData(LoopPts).sID, MyData(LoopPts).sLabel2)
Font.Size = 8
If MyData(LoopPts).pIcon = 1 Then 'Bios
Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
MyData(LoopPts).sLink, vbBlack)
ElseIf MyData(LoopPts).pIcon = 2 Then 'Orgs
Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
MyData(LoopPts).sLink, vbBlack)
ElseIf MyData(LoopPts).pIcon = 3 Then 'Events
Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
MyData(LoopPts).sLink, vbBlack)
End If
End With
Next LoopPts

At the moment I can choose between 16x16 and 32x32 images to be
displayed but I was
wondering if it is possible to have a zoom function like with Pictures.
All the graphics are displayed in a Picture so I think it should be
possible.

MArco

Keywords & Tags: zoom, out, graphics, vb, microsoft, visual basic

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

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

Use API StretchBlt to Add Zoom Functionality.
If your application deals with Graphics then it is better to use GDI+ which
is much more powerfull , flexible and can add professional touch to your
application.
Zooming is used in one such example (Posted in VB6) using GDI+ see below
mentioned link
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=66543&txtForceRefresh=101120061275557879

"Co" wrote:

> Hi All,
> I have an application in which I project images and lines on a VB form
> through so called Ropes and Boxes:
> Boxes:
> Public stdPic As StdPicture, X&, Y&, Text$, Text2$, Id$
> Public Sub Draw(Obj As Form) 'vbWhite
> Call Obj.PaintPicture(stdPic, X - 90, Y - 90) 'Obj
> Obj.CurrentX = X + 180 - (Len(Text) \ 2) * 100
> Obj.CurrentY = Y + 470
> Obj.Print Text;
> Obj.CurrentX = X + 180 - (Len(Text2) \ 2) * 100
> Obj.CurrentY = Y + 670
> Obj.Print Text2;
> End Sub
>
> Ropes:
> Public a As Box, b As Box, Text$, color&
> Public Sub Draw(Obj As Form)
> On Error Resume Next
> Obj.Line (a.X, a.Y)-(b.X, b.Y), color
> Obj.CurrentX = (a.X + b.X) \ 2 - (Len(Text) \ 2) * 100
> Obj.CurrentY = a.Y + 0.5 * (b.Y - a.Y) - 100
> Obj.Print Text;
> End Sub
> The way they are projected is based on data from a database:
> For LoopPts = 1 To MyDataCount
> With CircPts(LoopPts)
> Font.Size = 24
> Boxes.Add
> NewBox(ImageList1.ListImages(MyData(LoopPts).pIcon).Picture, .X, .Y,
> MyData(LoopPts).sLabel, MyData(LoopPts).sID, MyData(LoopPts).sLabel2)
> Font.Size = 8
> If MyData(LoopPts).pIcon = 1 Then 'Bios
> Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> MyData(LoopPts).sLink, vbBlack)
> ElseIf MyData(LoopPts).pIcon = 2 Then 'Orgs
> Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> MyData(LoopPts).sLink, vbBlack)
> ElseIf MyData(LoopPts).pIcon = 3 Then 'Events
> Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> MyData(LoopPts).sLink, vbBlack)
> End If
> End With
> Next LoopPts
> At the moment I can choose between 16x16 and 32x32 images to be
> displayed but I was
> wondering if it is possible to have a zoom function like with Pictures.
> All the graphics are displayed in a Picture so I think it should be
> possible.
> MArco
>

rajneesh | Mon, 02 Jun 2008 08:23:00 GMT |

Rajneesh,

Great thankx

Marco
Rajneesh Noonia schreef:

> Use API StretchBlt to Add Zoom Functionality.
> If your application deals with Graphics then it is better to use GDI+ which
> is much more powerfull , flexible and can add professional touch to your
> application.
> Zooming is used in one such example (Posted in VB6) using GDI+ see below
> mentioned link
> http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=66543&txtForceRefresh=101120061275557879
> "Co" wrote:
> > Hi All,
> >
> > I have an application in which I project images and lines on a VB form
> > through so called Ropes and Boxes:
> >
> > Boxes:
> > Public stdPic As StdPicture, X&, Y&, Text$, Text2$, Id$
> >
> > Public Sub Draw(Obj As Form) 'vbWhite
> > Call Obj.PaintPicture(stdPic, X - 90, Y - 90) 'Obj
> > Obj.CurrentX = X + 180 - (Len(Text) \ 2) * 100
> > Obj.CurrentY = Y + 470
> > Obj.Print Text;
> > Obj.CurrentX = X + 180 - (Len(Text2) \ 2) * 100
> > Obj.CurrentY = Y + 670
> > Obj.Print Text2;
> > End Sub
> >
> >
> > Ropes:
> > Public a As Box, b As Box, Text$, color&
> >
> > Public Sub Draw(Obj As Form)
> >
> > On Error Resume Next
> > Obj.Line (a.X, a.Y)-(b.X, b.Y), color
> > Obj.CurrentX = (a.X + b.X) \ 2 - (Len(Text) \ 2) * 100
> > Obj.CurrentY = a.Y + 0.5 * (b.Y - a.Y) - 100
> > Obj.Print Text;
> > End Sub
> >
> > The way they are projected is based on data from a database:
> >
> > For LoopPts = 1 To MyDataCount
> > With CircPts(LoopPts)
> > Font.Size = 24
> > Boxes.Add
> > NewBox(ImageList1.ListImages(MyData(LoopPts).pIcon).Picture, .X, .Y,
> > MyData(LoopPts).sLabel, MyData(LoopPts).sID, MyData(LoopPts).sLabel2)
> > Font.Size = 8
> > If MyData(LoopPts).pIcon = 1 Then 'Bios
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > ElseIf MyData(LoopPts).pIcon = 2 Then 'Orgs
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > ElseIf MyData(LoopPts).pIcon = 3 Then 'Events
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > End If
> > End With
> > Next LoopPts
> >
> > At the moment I can choose between 16x16 and 32x32 images to be
> > displayed but I was
> > wondering if it is possible to have a zoom function like with Pictures.
> > All the graphics are displayed in a Picture so I think it should be
> > possible.
> >
> > MArco
> >
> >

hbb | Mon, 02 Jun 2008 08:24:00 GMT |

Rajneesh,

I tried the wrapper.vbp but I can't get it to work.
It keeps telling me that it is unable to load the graph.ocx.
Could you help me with an example on how to to this?

I have a form with a picture on which I load some lines and images.

Marco

Rajneesh Noonia schreef:

> Use API StretchBlt to Add Zoom Functionality.
> If your application deals with Graphics then it is better to use GDI+ which
> is much more powerfull , flexible and can add professional touch to your
> application.
> Zooming is used in one such example (Posted in VB6) using GDI+ see below
> mentioned link
> http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=66543&txtForceRefresh=101120061275557879
> "Co" wrote:
> > Hi All,
> >
> > I have an application in which I project images and lines on a VB form
> > through so called Ropes and Boxes:
> >
> > Boxes:
> > Public stdPic As StdPicture, X&, Y&, Text$, Text2$, Id$
> >
> > Public Sub Draw(Obj As Form) 'vbWhite
> > Call Obj.PaintPicture(stdPic, X - 90, Y - 90) 'Obj
> > Obj.CurrentX = X + 180 - (Len(Text) \ 2) * 100
> > Obj.CurrentY = Y + 470
> > Obj.Print Text;
> > Obj.CurrentX = X + 180 - (Len(Text2) \ 2) * 100
> > Obj.CurrentY = Y + 670
> > Obj.Print Text2;
> > End Sub
> >
> >
> > Ropes:
> > Public a As Box, b As Box, Text$, color&
> >
> > Public Sub Draw(Obj As Form)
> >
> > On Error Resume Next
> > Obj.Line (a.X, a.Y)-(b.X, b.Y), color
> > Obj.CurrentX = (a.X + b.X) \ 2 - (Len(Text) \ 2) * 100
> > Obj.CurrentY = a.Y + 0.5 * (b.Y - a.Y) - 100
> > Obj.Print Text;
> > End Sub
> >
> > The way they are projected is based on data from a database:
> >
> > For LoopPts = 1 To MyDataCount
> > With CircPts(LoopPts)
> > Font.Size = 24
> > Boxes.Add
> > NewBox(ImageList1.ListImages(MyData(LoopPts).pIcon).Picture, .X, .Y,
> > MyData(LoopPts).sLabel, MyData(LoopPts).sID, MyData(LoopPts).sLabel2)
> > Font.Size = 8
> > If MyData(LoopPts).pIcon = 1 Then 'Bios
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > ElseIf MyData(LoopPts).pIcon = 2 Then 'Orgs
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > ElseIf MyData(LoopPts).pIcon = 3 Then 'Events
> > Ropes.Add NewRope(Boxes(1), Boxes(LoopPts + 1),
> > MyData(LoopPts).sLink, vbBlack)
> > End If
> > End With
> > Next LoopPts
> >
> > At the moment I can choose between 16x16 and 32x32 images to be
> > displayed but I was
> > wondering if it is possible to have a zoom function like with Pictures.
> > All the graphics are displayed in a Picture so I think it should be
> > possible.
> >
> > MArco
> >
> >

hbb | Mon, 02 Jun 2008 08:25:00 GMT |

did you register the ocx?

"Co" <vonclausowitz...gmail.com> wrote in message
news:1160568280.035901.13130...i3g2000cwc.googlegroups.com...
> Rajneesh,
> I tried the wrapper.vbp but I can't get it to work.
> It keeps telling me that it is unable to load the graph.ocx.
> Could you help me with an example on how to to this?
>

hbb | Mon, 02 Jun 2008 08:26:00 GMT |

I did.

I got it to work.

Marco

MP schreef:

> did you register the ocx?
>
> "Co" <vonclausowitz...gmail.com> wrote in message
> news:1160568280.035901.13130...i3g2000cwc.googlegroups.com...
> > Rajneesh,
> >
> > I tried the wrapper.vbp but I can't get it to work.
> > It keeps telling me that it is unable to load the graph.ocx.
> > Could you help me with an example on how to to this?
> >

hbb | Mon, 02 Jun 2008 08:27:00 GMT |

Open Graph.vbp and create OCX file in Bin Directory..
Open Wrapper.vbp
if it say some thing like error loading oGraph etc.. then open form frmTest.
Remove picture box Convas1
Click on add Component and click on browse
locate the oGraph.ocx in bin directory and click ok
Drag and drop oConvas Control and rename it to Convas1
Save the project and run it...
Let me know if this doen't help

"Co" wrote:

> I did.
> I got it to work.
> Marco
> MP schreef:
> > did you register the ocx?
> >
> >
> > "Co" <vonclausowitz...gmail.com> wrote in message
> > news:1160568280.035901.13130...i3g2000cwc.googlegroups.com...
> > > Rajneesh,
> > >
> > > I tried the wrapper.vbp but I can't get it to work.
> > > It keeps telling me that it is unable to load the graph.ocx.
> > > Could you help me with an example on how to to this?
> > >
>

rajneeshnoonia | Mon, 02 Jun 2008 08:28:00 GMT |

It worked,

Thank you very much

MArco

Rajneesh Noonia schreef:

> Open Graph.vbp and create OCX file in Bin Directory..
> Open Wrapper.vbp
> if it say some thing like error loading oGraph etc.. then open form frmTest.
> Remove picture box Convas1
> Click on add Component and click on browse
> locate the oGraph.ocx in bin directory and click ok
> Drag and drop oConvas Control and rename it to Convas1
> Save the project and run it...
> Let me know if this doen't help
>
> "Co" wrote:
> > I did.
> >
> > I got it to work.
> >
> > Marco
> >
> > MP schreef:
> >
> > > did you register the ocx?
> > >
> > >
> > > "Co" <vonclausowitz...gmail.com> wrote in message
> > > news:1160568280.035901.13130...i3g2000cwc.googlegroups.com...
> > > > Rajneesh,
> > > >
> > > > I tried the wrapper.vbp but I can't get it to work.
> > > > It keeps telling me that it is unable to load the graph.ocx.
> > > > Could you help me with an example on how to to this?
> > > >
> >
> >

hbb | Mon, 02 Jun 2008 08:29:00 GMT |

Microsoft Visual Basic Related Links

Microsoft Visual Basic Hot Answers

Zuperman!
:eek2: http://www.vbforums.com/showthread.php?p=2829958#post2829958Well, you seem just to have triggered it through a particular set of circumstances, whatever they may be...Lex Luthor strikes again!!!:)...
Zuperman Returns
He was always here with us. (http://www.vbforums.com/member.php?u=13510) :afrog:...
Zuperman
Happy Birthday seor!...
zuperman
I have more zells than you....
Zune or IPod or Other?
I'm looking for a video/mp3 player.Does anyone know what video formats Ipod / Zune supports?I have a large variety of codecs and video formats, OGMs with *.sub subtitle text files, MKVs, the most importantly DIVX AVIs.Am I wrong or do Ipod only support MOV videos, and Zune only support WMV...

Microsoft Visual Basic New questions

ZZ 9 Plural Z Alpha
I'm sure you have all heard of the sad demise of Mr Douglas Adams, earlier this week, of a heart attack at age 49.He was a source of inspiration to me in particular, having grown up repeatedly listening to the Hitch Hiker's Guide To The Galaxy, and reading all his books.He will be miss...
Zune 2.0
Anyone know when it's coming out?...
Z-Scores and Probability in Visual Basic
I have the z-score value and what i need is the correspondingprobability. I can determine it with a table like this one:http://www.epatric.com/documentatio...core_table.htmlBut i was wondering if there was a function in visual basic or a peiceof code that can calculate it for me without needing...
ZPL Label Printers
I'm looking for a way to send Visual Basic code directly to a Zebra brand label/barcode printer. The printer uses what is called zpl (zebra programming language). Has anyone worked with this? Any advice on getting started would be appreciated....
ZOrdering Windows
OK, I've made my own gaming engine with it's own pseudo-windows and what not. When it comes to render the windows onto the device context it becomes tricky if I want one window to appear in front or behind another window. I thought about ZOrdering but when a window is created what ZO...
Z-Order...??
Can someone explain what exactly Z-Order is...? And what exactly is it used for...?Cheers......
Zorder Question
Hi Guys,Just a quick and hopefully simple question, I'm working on an application that needs to always be at the very bottom of the zorder, i know how to send my app to the top but I need to know how to send it to the very bottom.Thanks....
Zorder of a label control
I am creating an activex control in which I have a 3rd party image control and a label control. I want the label control to be on top of the image control but it's always hidden beneath the image control. Is there any way I can make it come over top of the image contro?? I have played ar...
ZOrder not working in Visual Basic application
Hi,I am testing a Visual Basic application. There appears to be a fault withthe Zorder.A window is supposed to stay always at the top most layer but 50% of thetime it goes behind the other windows. The developers of this software areaware of the bug but are UNABLE to reproduce the fault.Any sugg...
Zorder in Win 2k
Does Win 2k handle Zorder differently? All of my windows keep appearing at the bottom of the Zorder instead of the top when I spawn them.What the heck is going on?Eiredrake...

Microsoft Visual Basic Related Categories

Microsoft Visual Basic