auto zooming the drawing result

[agpkd2001]

Hi

I wrote a program in VB and after runnig ,it draw a shape ,now i wonder to know how i can zoom this drawing because sometimes it become very tiny and i can not see it ,so is there any way to define auto zoom for my drawing resualt?

Regards

Ali

[debasisdas]

Where are you drawing the shape ?

I mean which control ? And what version of VB you are using ?

[Killer42]

Yes, the answer would depend on how/where you are drawing the image, and in what version of VB.

For instance, in VB6, if the image is in a picturebox (with AutoRedraw turned on), it might be as simple as copying it to an image control with the Stretch property turned on.

[agpkd2001]

Hi

Thank you for considering me,actually,i wrote my code in VB 2008 as follows:

Private Sub Form4_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim ElemNo As Integer
        Dim a As Integer
        ElemNo = Form3.TB_ElementDataGridView.RowCount - 1
        Dim ElemID(ElemNo - 1) As Integer
        Dim ElNode1(ElemNo - 1) As Integer
        Dim ElNode2(ElemNo - 1) As Integer
        Dim ElArea(ElemNo - 1) As Decimal
        Dim MatID(ElemNo - 1) As Integer
        For a = 0 To ElemNo - 1
            ElemID(a) = a + 1
            ElNode1(a) = Form3.TB_ElementDataGridView.Rows(a).Cells(1).Value
            ElNode2(a) = Form3.TB_ElementDataGridView.Rows(a).Cells(2).Value
            ElArea(a) = Form3.TB_ElementDataGridView.Rows(a).Cells(3).Value
            MatID(a) = Form3.TB_ElementDataGridView.Rows(a).Cells(4).Value
            ' MessageBox.Show("ElemID( " & (a + 1) & ")=" & ElemID(a))
            'MessageBox.Show("ElNode1( " & (a + 1) & ")=" & ElNode1(a))
            'MessageBox.Show("ElNode2( " & (a + 1) & ")=" & ElNode2(a))
            'MessageBox.Show("ElArea( " & (a + 1) & ")=" & ElArea(a))
            'MessageBox.Show("MatID( " & (a + 1) & ")=" & MatID(a))
        Next
 
 
 
 
 
 
 
 
 
 
        '"Starting Calculation"
 
 
 
 
        Dim Nodeno As Integer
        Nodeno = Form1.TB_NodeDataGridView.RowCount - 1
        Dim Xcoordinate(Nodeno - 1) As Decimal
        Dim Ycoordinate(Nodeno - 1) As Decimal
 
 
        For a = 0 To Nodeno - 1
            Xcoordinate(a) = Form1.TB_NodeDataGridView.Rows(a).Cells(1).Value
            Ycoordinate(a) = Form1.TB_NodeDataGridView.Rows(a).Cells(2).Value
        Next
 
 
        Dim redpen As New Pen(Color.Blue, 10)
        For a = 0 To ElemNo - 1
 
            Me.CreateGraphics.DrawLine(Pens.Red, Xcoordinate(ElNode1(a) - 1), -Ycoordinate(ElNode1(a) - 1), Xcoordinate(ElNode2(a) - 1), Ycoordinate(ElNode2(a) - 1))
            Me.CreateGraphics.TranslateTransform(200, 250)
            'MessageBox.Show(L(a))
 
        Next
    End Sub

Regards,

Ali

[daniel aristidou]

Hmmmmm.....vb2008 (my favorite so far)

Well .... you could try instead using:
Use a print previeiw dialog box
Create the graphic on print-document control
open the print dialog box and then zoom on that.....


However i'm certain there is a better way of doing it and i'll get back after some research