Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("Select * from ms", con)
Dim dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Columns(0).Visible = False
DataGridView1.Columns(1).HeaderText = "الخبر الأول"
DataGridView1.Columns(2).HeaderText = "الخبر الثاني"
DataGridView1.Columns(3).HeaderText = "الخبر الثالث"
DataGridView1.Columns(4).HeaderText = "الخبر الرابع"
DataGridView1.Columns(5).HeaderText = "الخبر الخامس"
DataGridView1.Columns(6).HeaderText = "الخبر السادس"
DataGridView1.Columns(7).HeaderText = "الخبر السابع"
Label2.Text = DataGridView1(1, DataGridView1.SelectedRows(0).Index).Value
Label3.Text = DataGridView1(2, DataGridView1.SelectedRows(0).Index).Value
Label4.Text = DataGridView1(3, DataGridView1.SelectedRows(0).Index).Value
Label5.Text = DataGridView1(4, DataGridView1.SelectedRows(0).Index).Value
Label6.Text = DataGridView1(5, DataGridView1.SelectedRows(0).Index).Value
Label7.Text = DataGridView1(6, DataGridView1.SelectedRows(0).Index).Value
Label8.Text = DataGridView1(7, DataGridView1.SelectedRows(0).Index).Value
Timer1.Start()
Dim list As String() = New String() {Label2.Text, Label3.Text, Label4.Text, Label5.Text, Label6.Text, Label7.Text, Label8.Text}
Dim indent As String = " "
Dim func As Func(Of String, String) = Function(s) indent + s + indent
Dim textToAnimate As String = String.Empty
Dim i As Integer = 0
While i < list.Length
Dim toIndnet As String = list(i)
If TryIndent(func) Then
textToAnimate += func(toIndnet)
End If
i += 1
End While
Label9.Text = textToAnimate
Dim datalist As List(Of String) = Me.DataTableToValueList(dt, "name_txt")
End Sub
