تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كود استدعاء الآلة الحاسبة الخاصة بالويندوز في زر بوتون أبو يزن 5 2,211 16-04-14, 10:35 AM
آخر رد: kslawy
Rainbow [سؤال] التنقل بين الراديو بوتون محمد مسافر 2 564 16-02-14, 03:41 PM
آخر رد: محمد مسافر
  [VB.NET] طريقة الربط بين الكمبوبوكس والرديو بوتون محمد مسافر 5 877 04-12-13, 08:17 PM
آخر رد: Easy4ever

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


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