graphics in vb.net

[Abhiraj Chauhan]

I need someone to make an example of how to create a graphics window in VB.net 2008.

I understand the basics of how to draw a rectangle and lines etc.

What I need is an example of how to make a window that goes in a form that does the following:

1. When the application is run, the form has a graphics area within the form (not the entire form) colored white.

2. Two text boxes (not in the graphics area) for data entry used to define the start and end of a line.

3. Three text boxes (also not in the graphics area) to define the center of a circle and the radius of the circle.

3. A button that if the text boxes have dimensions in them and the user presses the button the line and circle will be drawn in the graphics area.

4. If the dimensions of the line or circle would be beyond the graphics area, the line and circle should be drawn but they should not extend beyond the graphics area. This need to work for any object drawn in the graphics area without computing the limits of the object to fit in the area.

5. A control to set the scale of the display in the graphics area so that the user can zoom in or out.

6. A control to pan the graphics area so that the user may have a close look at small area of the graphics window. This might be done with scroll bars on the borders of a window, or mouse action in the graphics area.

The idea of this project is, I have some data that I want to draw graphs of so I need a window area to draw them in. I did some experiments using basic rectangles and lines using GDI but I found that if the graph wend outside the rectangle it just drew it on the form, so I need some help to make a window to draw in.

thankssssssss

[Plater]

Are you using DirectX, or just the built in Graphics object?
If it's jsut the built in graphics object (or either I suppose?), just add a Panel control to your form and do your drawing on THAT object.
Your drawing won't go outside the bounds of the Panel object.

[Abhiraj Chauhan]

Are you using DirectX, or just the built in Graphics object?
If it's jsut the built in graphics object (or either I suppose?), just add a Panel control to your form and do your drawing on THAT object.
Your drawing won't go outside the bounds of the Panel object.

I m not using DirectX ,..just Graphics Object..Thank u for replying
i tried your suggestion but it is not working,After that i used picture on my form but still drawing is going beyond the area of picturebox on my form.

[Plater]

Well, lets see some code, if you were truely drawing on the Graphics object for the child control (panel, picturebox, etc) then the drawing should not have extended past its bounds

[Abhiraj Chauhan]

Well thank u for replying once again ... this is my code i had done in one of module having another form that contain picture box on which i had to draw.

 Sub Column_Draw(ByVal DrawControl As Graphics, ByVal DrawStr As String)
        Dim NMAXX,NMAXY,NMINX,NMINY  As Single
        Dim Dc,ds  As DAO.Recordset
        Dim dss As DAO.Recordset
        Dim X, Y As Single
      DrawControl.ScaleTransform(-1, 1)
        DrawControl.TranslateTransform(-20, VertLineLength + 200)
        DrawControl.RotateTransform(180)
        Dc = CurDb.OpenRecordset("Drawdata", DAO.RecordsetTypeEnum.dbOpenDynaset)
        ds = CurDb.OpenRecordset("Columns", DAO.RecordsetTypeEnum.dbOpenDynaset)
        dss = CurDb.OpenRecordset("Columns", DAO.RecordsetTypeEnum.dbOpenDynaset)
        If Not Zoom Then
            MaxMin(ds, NMAXX, NMAXY, NMINX, NMINY)
            'MAX = IIf(NMAXX > NMAXY, NMAXX, NMAXY)
            If NMAXX > NMAXY Then
                Max1 = NMAXX
            Else
                Max1 = NMAXY
            End If
            'MIN = IIf(NMINX < NMINY, NMINX, NMINY)
            'MIN = IIf(NMINX < NMINY, NMINX, NMINY)
            If NMINX < NMINY Then
                Min1 = NMINX
            Else
                Min1 = NMINY
            End If
        End If
        ds.MoveFirst()
        While Not (ds.EOF)
            System.Windows.Forms.Application.DoEvents()
            If ((ds.Fields(4).Value <> "" And ds.Fields(5).Value <> "")) Then 'Condition to bypass column whose position not defined
                X = ds.Fields(4).Value
                Y = ds.Fields(5).Value
                FlushDistances(ds, X, Y)
                If StrComp(Left(ds.Fields(0).Value, 1), "C") = 0 Then
                    Select Case ds.Fields(1).Value
                        Case "H"
                            DrawControl.DrawLine(Pens.Black, CInt(X - ds.Fields(2).Value / 2), CInt(Y - ds.Fields(3).Value / 2), CInt(X + ds.Fields(2).Value / 2), CInt(Y + ds.Fields(3).Value / 2))
                        Case "L"
                            DrawControl.DrawLine(Pens.Black, CInt(X - ds.Fields(2).Value / 2), CInt(Y - ds.Fields(3).Value / 2), CInt(X + ds.Fields(2).Value / 2), CInt(Y + ds.Fields(3).Value / 2))
                            X = ds.Fields(4).Value
                            Y = ds.Fields(5).Value
                            FlushDistancesL(ds, X, Y)
                            DrawControl.DrawLine(Pens.Black, CInt(X - ds.Fields(3).Value / 2), CInt(Y - ds.Fields(17).Value / 2), CInt(X + ds.Fields(3).Value / 2), CInt(Y + ds.Fields(17).Value / 2))
                    End Select
                Else
                    Select Case ds.Fields(1).Value
                        Case "H"
                            DrawControl.DrawRectangle(Pens.Red, CInt(X - ds.Fields(2).Value / 2), CInt(Y - ds.Fields(3).Value / 2) - CInt(X + ds.Fields(2).Value / 2), CInt(Y + ds.Fields(3).Value / 2), B)
                    End Select
                End If
                If Enlarge Or Main Then
                    Column_Dis(ds.Fields(4).Value + ds.Fields(2).Value / 2, ds.Fields(5).Value - ds.Fields(3).Value / 2, ds.Fields(0).Value, DrawControl)
                End If
            End If
            ds.MoveNext()
        End While
        CurDb.Execute(Updateqery1)
        CurDb.Execute(Updateqery2)
        While Not Dc.EOF
            System.Windows.Forms.Application.DoEvents()
            DrawControl.DrawLine(Pens.Blue, CInt(Dc.Fields(4).Value), CInt(Dc.Fields(5).Value), CInt(Dc.Fields(6).Value), CInt(Dc.Fields(7).Value))
            Dc.MoveNext()
        End While
        ds.Close()
        Dc.Close()
    End Sub
 

now my problem is that if i give a larger value than my line goes out of bounds,i want that it remains in picture box whether value is small or large and it autosize itself according to value.

[Plater]

Wait are you saying that the drawn line goes out of the visible area?
I thought you were saying that it leaves the control and draws on another control.
This is an entirely different issue, you should be able to resize the control based on the input lengths of the lines you wish to draw. Just compute if your line is bigger then the control can handle, and then resize it?

[Abhiraj Chauhan]

Wait are you saying that the drawn line goes out of the visible area?
I thought you were saying that it leaves the control and draws on another control.
This is an entirely different issue, you should be able to resize the control based on the input lengths of the lines you wish to draw. Just compute if your line is bigger then the control can handle, and then resize it?

Yes ,that is exactly what i want to say that drawn lines goes out of visible area,
it will be very helpful for me if u can let me know how to this,also if some sample codes.thanku for replying.

[Plater]

Sure?
How aboue this Psuedo code:
if (myline.XLength > myDrawingArea.XLength)
{
myDrawingArea.XLength = myline.XLength + 10;
}

[Abhiraj Chauhan]

Sure?
How aboue this Psuedo code:
if (myline.XLength > myDrawingArea.XLength)
{
myDrawingArea.XLength = myline.XLength + 10;
}

thank you for replying....
this is difficult for me understand what this pseudo code suggest.
suppose i want to draw 2 rectangles having height and width 300 and 300 and join them by a line of 8000 obviously it will go out of bounds i.e it will be outside of visible area ,i want them within picture box no matter how much is the value .plz send some sample codes in vb.net ,