[سؤال] حدث بوتون شرط - نسخة قابلة للطباعة

كود :

Dim randomValue As Integer

Dim DS As New DataSet

Dim B As Integer

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

SUB1()

Me.BindingContext(DS, "A").Position = randomValue

End Sub

كود :

Sub SUB1()

        Dim Sel As String = "SELECT Question AS E FROM table1 "

        Dim con As New SqlConnection("ConnectionString")

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        Dim DataAdapter1 As New SqlDataAdapter(Sel, con)

        DS.Clear()

        DataAdapter1.Fill(DS, "A")

        con.Close()

        TextBox1.DataBindings.Add("Text", DS, "A.E")

        B = Me.BindingContext(DS, "A").Count

        SUB2()

        Me.BindingContext(DS, "A").Position = randomValue

    End Sub

كود :

Sub SUB2()

        Dim generator As New Random

        randomValue = generator.Next(0, B)

    End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SUB2()

Me.BindingContext(DS, "A").Position = randomValue

End Sub

والله أعلي وأعلم
Rolleyes