استخدام boutton لعدة اوامر

وعليكم السلام

الفكره بشكل مبسط إنشاء متغير (عداد) على مستوى الفورم يزيد بمقدار واحد كلما تم الضغط على الزر وبناء على رقم العداد تقوم بإظهار السؤال المناسب :)

شكرا ع المرور ,,و  الصراحة فكرت بهاي الفكرة لكن لم تزبط معاي الطريقة بصراحة ,,, تجربتي Dim x As Integer        x = 0  If x = 0 ThenLabel1.Visible = Truex = x + 1 End If If x = 2 Then            Label2.Visible = True            x = x + 1        End If

Eng.S.IDk كتب:

شكرا ع المرور ,,و  الصراحة فكرت بهاي الفكرة لكن لم تزبط معاي الطريقة بصراحة ,,, تجربتي Dim x As Integer        x = 0  If x = 0 ThenLabel1.Visible = Truex = x + 1 End If If x = 2 Then            Label2.Visible = True            x = x + 1        End If

تفضل ..............

Public Class Form1
    Dim x As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Select Case x
            Case 0
                Label1.Visible = True
            Case 1
                Label2.Visible = True
            Case 2
                Label3.Visible = True
        End Select

        x += 1

    End Sub

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

    End Sub
End Class

كل الشكر والتحية لك ..