منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله

بعد بحث كثير كتبت لكم لتساعدوني

اريد اعمل فورم واحد واكثر من panel 

مثلا 
فورم 1

في 4  panel 

اذا ضغطة على Next button
يطلع لي panel2

ويخفي الباقي



واذا ضغطة previous button

يرجعني الى البنل 1



واذا اروح من الصفحه الثانيه للثالثه



ومن الثالثه للرابعه



وهكذا 

الكود موب ضابط معاي اذا اضغط من البنل واحد الى البنل 2 تطلع لي صفحة فاضيه


يمكن هذه الطريقه غير صحيحه

اتمنى تفيدوني بارك الله فيكم

وشكرا

اكتب هذا الكود كامل
Public Class Form1

    Dim p = -1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NextButton.PerformClick()
    End Sub

    Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click

        If p < 3 Then
            p += 1
            Dim panels = ({Panel1, Panel2, Panel3, Panel4}).ToArray
            For i = 0 To 3
                If i = p Then panels(i).Show() Else panels(i).Hide()
            Next
        End If
    End Sub

    Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
        If p > 0 Then
            p -= 1
            Dim panels = ({Panel1, Panel2, Panel3, Panel4}).ToArray
            For i = 0 To 3
                If i = p Then panels(i).Show() Else panels(i).Hide()
            Next
        End If
    End Sub

End Class

(19-03-19, 12:05 AM)5000 كتب : [ -> ]اكتب هذا الكود كامل
Public Class Form1

    Dim p = -1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        NextButton.PerformClick()
    End Sub

    Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click

        If p < 3 Then
            p += 1
            Dim panels = ({Panel1, Panel2, Panel3, Panel4}).ToArray
            For i = 0 To 3
                If i = p Then panels(i).Show() Else panels(i).Hide()
            Next
        End If
    End Sub

    Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
        If p > 0 Then
            p -= 1
            Dim panels = ({Panel1, Panel2, Panel3, Panel4}).ToArray
            For i = 0 To 3
                If i = p Then panels(i).Show() Else panels(i).Hide()
            Next
        End If
    End Sub

End Class

شكرا لك ماضبط معاي يطلع لي البنل الاول فقط اما الثاني يطلع قاضي


جربت هذه الطريقه وضبط معاي



شكرا من جديد لك بارك الله فيك 

الكود الذي وضعته كان من مشروع ونسخت الكود كامل وكان يحتوي 4 penels و2 button

الافضل لك استخدام controltab فهو مخصصة للاسلوب الذي تريده

(19-03-19, 01:54 PM)5000 كتب : [ -> ]الكود الذي وضعته كان من مشروع ونسخت الكود كامل وكان يحتوي 4 penels و2 button

الافضل لك استخدام controltab فهو مخصصة للاسلوب الذي تريده

ان شاءالله ساجرب ال controltab  واعطيك خبر 

تسلم استاذي الكريم