'   Product Of : MakeLogic
'   URL        : http://www.makelogic.com
'   Author     : Raji Chinnam
'   Date       : 20 June, 2003
'   email      : info@makelogicmldb.com


'   Please feel free to use this Sample Code in your Application.



'   This program demonstrates the Navigation of BarGraphs,LIneGraphs and PieGraphs component of the MicroGraphs


Public Class Form1
    Inherits System.Windows.Forms.Form
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Dim BarGraphDemo As New MakeLogic.MG.BarGraph
    Dim LineGraphDemo As New MakeLogic.MG.LineGraph
    Dim PieGraphDemo As New MakeLogic.MG.PieGraph
    Dim Nav As Integer, ArrCount As Integer
    Dim xValues(6) As Double, yValues(6) As Double, PieLabels(6) As String
    Dim LineXValues(20) As Double, LineYValues(20) As Double
    Dim RandomVar As New System.Random


#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
    End Sub

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents cmdPrev As System.Windows.Forms.Button
    Friend WithEvents cmdNext As System.Windows.Forms.Button
    Friend WithEvents cmdData As System.Windows.Forms.Button
    Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.cmdPrev = New System.Windows.Forms.Button
        Me.cmdNext = New System.Windows.Forms.Button
        Me.cmdData = New System.Windows.Forms.Button
        '
        'cmdPrev
        '
        Me.cmdPrev.Location = New System.Drawing.Point(25, 231)
        Me.cmdPrev.Size = New System.Drawing.Size(58, 24)
        Me.cmdPrev.Text = "Previous"
        '
        'cmdNext
        '
        Me.cmdNext.Location = New System.Drawing.Point(158, 231)
        Me.cmdNext.Size = New System.Drawing.Size(46, 24)
        Me.cmdNext.Text = "Next"
        '
        'cmdData
        '
        Me.cmdData.Location = New System.Drawing.Point(85, 231)
        Me.cmdData.Size = New System.Drawing.Size(70, 24)
        Me.cmdData.Text = "Again"
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
        '
        'Form1
        '
        Me.BackColor = System.Drawing.Color.FromArgb(CType(204, Byte), CType(204, Byte), CType(255, Byte))
        Me.ClientSize = New System.Drawing.Size(370, 296)
        Me.Controls.Add(Me.cmdData)
        Me.Controls.Add(Me.cmdNext)
        Me.Controls.Add(Me.cmdPrev)
        Me.Menu = Me.MainMenu1
        Me.Text = "Navigation Of Graphs"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

    End Sub

#End Region


    Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
        If (Nav < 3) Then
            Nav = Nav + 1
        Else
            Nav = 1
        End If

        Call Navigation(Nav)
    End Sub

    Private Sub cmdPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrev.Click
        If (Nav <= 3 And Nav > 1) Then
            Nav = Nav - 1
        Else
            Nav = 3
        End If

        Call Navigation(Nav)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ControlBox = True
        Me.MinimizeBox = False
        Me.FormBorderStyle = FormBorderStyle.SizableToolWindow

        Nav = 1

        BarGraphDemo.Left = 18
        BarGraphDemo.Top = 23

        LineGraphDemo.Left = 18
        LineGraphDemo.Top = 23

        PieGraphDemo.Left = 18
        PieGraphDemo.Top = 23

        Call BarGraph()


    End Sub
    Sub BarGraph()


        For ArrCount = 1 To 6
            xValues(ArrCount) = RandomVar.Next(5, 40)
            yValues(ArrCount) = xValues(ArrCount) + 3
        Next

        'Assigning Data to the Bargraph

        BarGraphDemo.XValues = xValues
        BarGraphDemo.YValues = yValues
        Me.Controls.Add(BarGraphDemo)

    End Sub
    Sub LineGraph()


        For ArrCount = 1 To 20
            LineXValues(ArrCount) = ArrCount + 2
            LineYValues(ArrCount) = RandomVar.Next(7, 50)
        Next

        'Assigning Data to the Linegraph

        LineGraphDemo.XValues = LineXValues
        LineGraphDemo.YValues = LineYValues
        Me.Controls.Add(LineGraphDemo)

    End Sub
    Sub PieGraph()


        For ArrCount = 1 To 6
            xValues(ArrCount) = RandomVar.Next(5, 40)
            PieLabels(ArrCount) = "Data" & ArrCount

        Next

        'Assigning Data to the Piegraph

        PieGraphDemo.Data = xValues
        PieGraphDemo.Labels = PieLabels
        Me.Controls.Add(PieGraphDemo)

    End Sub
    Sub Navigation(ByVal Nav)
        If Nav = 1 Then
            Me.Controls.Remove(LineGraphDemo)
            Me.Controls.Remove(PieGraphDemo)
            Me.Controls.Remove(BarGraphDemo)
            Call BarGraph()
        ElseIf Nav = 2 Then
            Me.Controls.Remove(LineGraphDemo)
            Me.Controls.Remove(PieGraphDemo)
            Me.Controls.Remove(BarGraphDemo)

            Call LineGraph()
        ElseIf Nav = 3 Then
            Me.Controls.Remove(LineGraphDemo)
            Me.Controls.Remove(PieGraphDemo)
            Me.Controls.Remove(BarGraphDemo)
            Call PieGraph()
        End If

    End Sub



    Private Sub cmdData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdData.Click
        Call Navigation(Nav)
    End Sub
End Class
'Public Sub DrawRectangleFloat(ByVal e As PaintEventArgs)
'    ' Create pen.
'    Dim blackPen As New Pen(Color.Black, 3)
'    ' Create location and size of rectangle.
'    Dim x As Single = 0.0F
'    Dim y As Single = 0.0F
'    Dim width As Single = 200.0F
'    Dim height As Single = 200.0F
'    ' Draw rectangle to screen.
'    e.Graphics.DrawRectangle(blackPen, x, y, width, height)
'End Sub