بوابة الثانوية العامة المصرية - سؤال لعباقرة الفيجوال

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- المنتدى الأكاديمي للمعلمين (https://www.thanwya.com/vb/forumdisplay.php?f=22)

- - سؤال لعباقرة الفيجوال (https://www.thanwya.com/vb/showthread.php?t=535049)

marsho

22-07-2013 11:34 PM

سؤال لعباقرة الفيجوال

اريد كود يقوم باختيار textbox عشوائى من 5

اى يختار واحد فقط من 5 كل مرة يتم تغير هذا textbox عند عمل ريفريش للصفحة

hassanalhawy

23-07-2013 11:02 PM

كود:

        Dim r_t As Byte

        TextBox1.Visible = False

        TextBox2.Visible = False

        TextBox3.Visible = False

        TextBox4.Visible = False

        TextBox5.Visible = False

        Randomize()

        r_t = Rnd() * 5

        If r_t = 1 Then TextBox1.Visible = True

        If r_t = 2 Then TextBox2.Visible = True

        If r_t = 3 Then TextBox3.Visible = True

        If r_t = 4 Then TextBox4.Visible = True

        If r_t = 5 Then TextBox5.Visible = True

marsho

23-07-2013 11:40 PM

hass****hawy
انا مش عارف اشكرك ازاى بجد جزاك الله خير

بس معلش
عاوز الكود دة لو عاوز اخلية بدل text box يبقا على form

عاطف جوده

24-07-2013 03:30 AM

اعتقد انه يتم تعريف الكود السابق داخل Module

hassanalhawy

25-07-2013 03:07 PM

كود:

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Me.Hide()

        Dim r_t As Byte

        Randomize()

        r_t = Rnd() * 5

        If r_t = 1 Then Me.Show()

        If r_t = 2 Then Form2.Show()

        If r_t = 3 Then Form3.Show()

        If r_t = 4 Then Form4.Show()

        If r_t = 5 Then Form5.Show()

    End Sub

marsho

03-08-2013 05:02 PM

انا مش عارف اشكرك ازاى

جميع الأوقات بتوقيت GMT +2. الساعة الآن 06:56 AM.