تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] حدث بوتون شرط
#1
السلام عليكم ورحمة الله وبركاته

أخواني أنا لدي لدي سجلات ولدي Button لتقديم السجلات للأمام .

ولدي مصفوفة من أخي أبو رائد واريد أن أستخدم المصفوفة والتي تنتج

رقم عشوائي ان أستخدمها في Button بحيث تنتج المصفوفة رقم ثم بعدد الناتج يضيفه

لزر Button لتقديم السجلات .

سبب الطلب .
عندي برنامج أختبارات اريد أن يظهر الإسئلة مختلفة في كل مرة ويتغير ترتيب الاسئلة . وانا اشوف انها اسرع طريقة
http://vb4arb.com/vb/showthread.php?tid=535

عفوا لم أوضح مااريد

اريد كود للبوتون أستخدمه عند فتح الصفحة أن يقدم السجلات بعدد الناتج الي خرج لي من المصفوفة (i)
الرد }}}
تم الشكر بواسطة:
#2
كود :
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

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

{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}
تم الشكر بواسطة: Omar Mekkawy



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم