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

[marsho]

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

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

[hassanalhawy]

        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]

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

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

[عاطف جوده]

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

[hassanalhawy]

    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]

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