Visual Basic

<br />
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _<br />
<br />
Partial Class Form1<br />
<br />
Inherits System.Windows.Forms.Form<br />
<br />
'Form overrides dispose to clean up the component list.<br />
<br />
<System.Diagnostics.DebuggerNonUserCode()> _<br />
<br />
Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
<br />
Try<br />
<br />
If disposing AndAlso components IsNot Nothing Then<br />
<br />
components.Dispose()<br />
<br />
End If<br />
<br />
Finally<br />
<br />
MyBase.Dispose(disposing)<br />
<br />
End Try<br />
<br />
End Sub<br />
<br />
<br />
<br />
Friend WithEvents CustomerID As System.Windows.Forms.DataGridViewTextBoxColumn<br />
<br />
'Required by the Windows Form Designer<br />
<br />
Private components As System.ComponentModel.IContainer<br />
<br />
'NOTE: The following procedure is required by the Windows Form Designer<br />
<br />
'It can be modified using the Windows Form Designer. <br />
<br />
'Do not modify it using the code editor.<br />
<br />
<System.Diagnostics.DebuggerStepThrough()> _<br />
<br />
Private Sub InitializeComponent()<br />
<br />
Me.Label1 = New System.Windows.Forms.Label<br />
<br />
Me.DataGridView1 = New System.Windows.Forms.DataGridView<br />
<br />
Me.CustomerID = New System.Windows.Forms.DataGridViewTextBoxColumn<br />
<br />
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()<br />
<br />
Me.SuspendLayout()<br />
<br />
'<br />
<br />
'Label1<br />
<br />
'<br />
<br />
Me.Label1.AutoSize = True<br />
<br />
Me.Label1.Location = New System.Drawing.Point(13, 181)<br />
<br />
Me.Label1.Name = "Label1"<br />
<br />
Me.Label1.Size = New System.Drawing.Size(39, 13)<br />
<br />
Me.Label1.TabIndex = 0<br />
<br />
Me.Label1.Text = "Label1"<br />
<br />
'<br />
<br />
'DataGridView1<br />
<br />
'<br />
<br />
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize<br />
<br />
Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn(){Me.CustomerID})<br />
<br />
Me.DataGridView1.Location = New System.Drawing.Point(16, 12)<br />
<br />
<big>Me.DataGridView1.MultiSelect = False</big><br />
<br />
Me.DataGridView1.Name = "DataGridView1"<br />
<br />
<big>Me.DataGridView1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect</big><br />
<br />
Me.DataGridView1.Size = New System.Drawing.Size(240, 150)<br />
<br />
Me.DataGridView1.TabIndex = 1<br />
<br />
'<br />
<br />
'CustomerID<br />
<br />
'<br />
<br />
Me.CustomerID.HeaderText = "CustomerID"<br />
<br />
Me.CustomerID.Name = "CustomerID"<br />
<br />
'<br />
<br />
'Form1<br />
<br />
'<br />
<br />
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
<br />
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
<br />
Me.ClientSize = New System.Drawing.Size(284, 264)<br />
<br />
Me.Controls.Add(Me.DataGridView1)<br />
<br />
Me.Controls.Add(Me.Label1)<br />
<br />
Me.Name = "Form1"<br />
<br />
Me.Text = "Form1"<br />
<br />
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()<br />
<br />
Me.ResumeLayout(False)<br />
<br />
Me.PerformLayout()<br />
<br />
End Sub<br />
<br />
Friend WithEvents Label1 As System.Windows.Forms.Label<br />
<br />
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
'this is the method I'm talking about:<br />
<br />
<big>Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged<br />
<br />
Label1.Text = sender.SelectedRows(0).Cells("CustomerID").Value.ToString<br />
<br />
'last line causes either an ArgumentOutOfRangeException saying 'Index is out of range'<br />
<br />
'or an ArgumentException (see details below)<br />
<br />
End Sub</big><br />
End Class<br />
<br />
<br />
<br />
<br />