Visual Basic

Nick Alexeev wrote:

I suspect that MSChart flickers, because it doesn't do the double buffering.

Dave Kreskowiak wrote:

The MSChart control isn't a good candidate for this problem. ... In fact, there's nothing you can do about the flickering using the MSChart control.

Dave Kreskowiak wrote:

You'd be better off using a third party component to draw a scrolling line graph, or making your own control ...

Dave Kreskowiak wrote:

MSChart control isn't a good candidate for this problem. You'd be better off using a third party component to draw a scrolling line graph, or making your own control so you can have more control over exactly how it's drawn.

Private Sub DataGridView1_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _<br />
Handles DataGridView1.CellValueChanged<br />
        If e.ColumnIndex = -1 Then<br />
            If Not IsNumeric(sender.Rows(e.RowIndex).Cells("Column1").Value) Then<br />
                sender.Rows(e.RowIndex).Cells("Column1").ErrorText = "the value for this cell must be a digit"<br />
                If MessageBox.Show("Delete content?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then<br />
                    sender.Rows(e.RowIndex).Cells("Column1").Value = ""<br />
                    sender.Rows(e.RowIndex).Cells("Column1").ErrorText = ""<br />
                End If<br />
            End If<br />
        End If<br />
    End Sub

Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
    Dim fName$<br />
    Dim lName$<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAddRow.Click<br />
        Static counter As Integer = 0<br />
        If counter = 0 Then<br />
            fName = "Nish"<br />
            lName = "karsh"<br />
            counter += 1<br />
        ElseIf counter < 10 Then<br />
            fName &= "a"<br />
            lName &= "a"<br />
            counter += 1<br />
        Else<br />
            counter = 0<br />
        End If<br />
        Dim o As Object() = {fName, lName}<br />
        DataGridView1.Rows.Add(o)<br />
        Static row As Integer = 0<br />
        DataGridView1.Rows(row).HeaderCell.Value = o(0).ToString<br />
        row += 1<br />
    End Sub<br />
<br />
    <br />
<br />
<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    <System.Diagnostics.DebuggerNonUserCode()> _<br />
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        Try<br />
            If disposing AndAlso components IsNot Nothing Then<br />
                components.Dispose()<br />
            End If<br />
        Finally<br />
            MyBase.Dispose(disposing)<br />
        End Try<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    <System.Diagnostics.DebuggerStepThrough()> _<br />
    Private Sub InitializeComponent()<br />
        Me.DataGridView1 = New System.Windows.Forms.DataGridView<br />
        Me.Column1 = New System.Windows.Forms.DataGridViewTextBoxColumn<br />
        Me.Column2 = New System.Windows.Forms.DataGridViewTextBoxColumn<br />
        Me.btAddRow = New System.Windows.Forms.Button<br />
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()<br />
        Me.SuspendLayout()<br />
        '<br />
        'DataGridView1<br />
        '<br />
        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize<br />
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Column1, Me.Column2})<br />
        Me.DataGridView1.Location = New System.Drawing.Point(27, 28)<br />
        Me.DataGridView1.Name = "DataGridView1"<br />
        Me.DataGridView1.Size = New System.Drawing.Size(279, 150)<br />
        Me.DataGridView1.TabIndex = 0<br />
        '<br />
        'Column1<br />
        '<br />
        Me.Column1.HeaderText = "Column1"<br />
        Me.Column1.Name = "Column1"<br />
        '<br />
        'Column2<br />
        '<br />
        Me.Column2.HeaderText = "Column2"<br />
        Me.Column2.Name = "Column2"<br />
        '<br />
        'btAddRow<br />
        '<br />
        Me.btAddRow.Location = New System.Drawing.Point(130, 207)<br />
        Me.btAddRow.Name = "btAddRow"<br />
        Me.btAddRow.Size = New System.Drawing.Size(75, 23)<br />
        Me.btAddRow.TabIndex = 1<br />
        Me.btAddRow.Text = "Button1"<br />
        Me.btAddRow.UseVisualStyleBackColor = True<br />
        '<br />
        'Form1<br />
        '<br />
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
        Me.ClientSize = New System.Drawing.Size(339, 264)<br />
        Me.Controls.Add(Me.btAddRow)<br />
        Me.Controls.Add(Me.DataGridView1)<br />
        Me.Name = "Form1"<br />
        Me.Text = "Form1"<br />
        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView<br />
    Friend WithEvents Column1 As System.Windows.Forms.DataGridViewTextBoxColumn<br />
    Friend WithEvents Column2 As System.Windows.Forms.DataGridViewTextBoxColumn<br />
    Friend WithEvents btAddRow As System.Windows.Forms.Button<br />
<br />
End Class<br />
<br />
br mode="hold" /><br />
 :wtf:  :wtf:  :wtf:  :omg:  :rolleyes:  :-O  :-\  :zzz:  :((