Visual Basic

edwin_manic wrote:

how to insert records in ms access

jensenx wrote:

Or the way i'm saving it into the bitmap?

Private Sub DrawBars_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pnl_Chart.Paint<br />
        e.Graphics.Clear(Color.White)<br />
<br />
        If chart_NoChange = False Then<br />
            chart_NoChange = True<br />
            new_snapshot = New Bitmap(pnl_Chart.Size.Width, pnl_Chart.Size.Height, pnl_Chart.CreateGraphics())<br />
<br />
            drawBarChart()<br />
<br />
            e.Graphics.DrawImage(new_snapshot, 0, 0)<br />
            e.Dispose()<br />
<br />
        Else<br />
            e.Graphics.DrawImage(new_snapshot, 0, 0)<br />
            e.Dispose()<br />
        End If<br />
<br />
    End Sub<br />
<br />
Public Sub drawBarChart()<br />
<br />
        Dim brush_Handle As Integer = 1<br />
        Dim strText As String<br />
        Dim clearForm As Boolean = True<br />
<br />
        Dim grfx As Graphics = pnl_Chart.CreateGraphics()<br />
        <br />
'TEST DRAW ON BITMAP<br />
        grfx = Graphics.FromImage(new_snapshot)<br />
<br />
        Dim yCenter As Integer = (bar_Height / 2)<br />
<br />
  <br />
        'Draws today's line<br />
        If chk_ShowTodayLine.Checked = True Then<br />
            Dim x As Integer = get_xLocation(Date.Today.Date) + (grid_Width / 2)<br />
            grfx.DrawLine(Pens.Blue, x, 0, x, pnl_Chart.Height)<br />
        End If<br />
<br />
        'Draw project's end date<br />
        If grid_EndDate <> "" Then<br />
            Dim x As Integer = get_xLocation(grid_EndDate) + (grid_Width)<br />
            grfx.DrawLine(Pens.Red, x, 0, x, pnl_Chart.Height)<br />
<br />
           End If<br />
<br />
        Dim arrayLoc As Integer = 0<br />
        While arrayLoc <> grid_Task.Rows.Count<br />
<br />
            'Normal chart from arraytable-----------------------------------------------------<br />
            If arrayTable(arrayLoc).Duration <> 0 Then<br />
                'Set values<br />
                Dim x1 As Integer = arrayTable(arrayLoc).xLocation<br />
                Dim y1 As Integer = arrayTable(arrayLoc).yLocation<br />
                Dim bar_Width As Integer = (grid_Width * arrayTable(arrayLoc).Duration)<br />
<br />
                'Draw Rectangle<br />
                grfx.DrawRectangle(Pens.Black, New Rectangle(x1, y1, bar_Width, bar_Height))<br />
                'Highlight selected<br />
                If selectedRow = arrayLoc Then<br />
                    'Fill Rectangle<br />
                    grfx.FillRectangle(Brushes.Black, New Rectangle(x1 + 1, y1 + 1, bar_Width - 1, bar_Height - 1))<br />
                Else<br />
                    'the +1 and -1 are there to display the rectangle nicely<br />
                    grfx.FillRectangle(objColorArray(brush_Handle), New Rectangle(x1 + 1, y1 + 1, bar_Width - 1, bar_Height - 1))<br />
<br />
                End If<br />
                'Display Text and Values<br />
                strText = "(" & arrayTable(arrayLoc).estimated_StartDate & "," & arrayTable(arrayLoc).Duration & ")"<br />
                grfx.DrawString(strText, New Font("VERDANA", 7.0, FontStyle.Regular, GraphicsUnit.Point), Brushes.Black, (x1 + bar_Width + line_Width), y1 + yCenter - 6)<br />
<br />
                brush_Handle += 1<br />
                'If goes more than 150 colors been used<br />
                If brush_Handle > objColorArray.GetUpperBound(0) Then<br />
                    brush_Handle = 1<br />
                End If<br />
            Else<br />
                'Those not assigned rows....<br />
            End If<br />
            'End Normal chart from arraytable--------------------------------------------------<br />
<br />
<br />
<br />
            arrayLoc += 1<br />
        End While<br />
<br />
<br />
        grfx.Dispose()<br />
<br />
<br />
<br />
    End Sub<br />

Salman Sheikh wrote:

http://www.codeproject.com/cs/miscctrl/winwordcontrol.asp