تعلم معنا Visual Basic 2005

سنتعلم اليوم آلية أضافة البيانات من مربعات نص إلى جدول البيانات

المثال :

ضع ثلاث أداوت مربع نص تمثل

الاسم

وتاريخ الميلاد

ورقم الهوية

وضع أداة DataGridView وزر Button1

اكتب الكود التالي في زر Button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With Me.DataGridView1
            .ColumnCount = 4
            ' .RowCount = 1
            .Columns(0).Width = 50
            .Columns(1).Width = 200
            .Columns(2).Width = 100
            .Columns(3).Width = 100
            .Columns(0).HeaderText = "الرقم"
            .Columns(1).HeaderText = "الاسم"
            .Columns(2).HeaderText = "تاريخ الميلاد"
            .Columns(3).HeaderText = "رقم الهوية"
            .Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Rows.Add()
            .Rows(.Rows.Count - 2).Cells(0).Value = .Rows.Count - 1
            .Rows(.Rows.Count - 2).Cells(1).Value = Me.TextBox1.Text
            .Rows(.Rows.Count - 2).Cells(2).Value = Me.TextBox2.Text
            .Rows(.Rows.Count - 2).Cells(3).Value = Me.TextBox3.Text

        End With
    End Sub