تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار panel control & Next previous button
#1
السلام عليكم ورحمة الله

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

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

مثلا 
فورم 1

في 4  panel 

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

ويخفي الباقي

كود :
   Private Sub Gotopaga2Button2_Click(sender As Object, e As EventArgs) Handles gotopaga2Button2.Click
       Panel2.Visible = True
       Panel1.Visible = False
       Panel3.Visible = False
       Panel4.Visible = False

   End Sub


واذا ضغطة previous button

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

كود :
   Private Sub Gotopag1Button1_Click(sender As Object, e As EventArgs) Handles gotopag1Button1.Click
       Panel1.Visible = True

       Panel2.Visible = False
       Panel3.Visible = False
       Panel4.Visible = False


   End Sub


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

كود :
   Private Sub Gotopag3Button3_Click(sender As Object, e As EventArgs) Handles gotopag3Button3.Click
       Panel1.Visible = False
       Panel2.Visible = False
       Panel3.Visible = True
       Panel4.Visible = False
   End Sub


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

كود :
   Private Sub Gotopag4Button4_Click(sender As Object, e As EventArgs) Handles gotopag4Button4.Click
       Panel1.Visible = False
       Panel2.Visible = False
       Panel3.Visible = False
       Panel4.Visible = True
   End Sub


وهكذا 

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


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

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

وشكرا
الرد
تم الشكر بواسطة:
#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
الرد
تم الشكر بواسطة: dubai.eig , asemshahen5
#3
(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

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


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

كود :
Private Sub Gotopaga2Button2_Click(sender As Object, e As EventArgs) Handles gotopaga2Button2.Click
       Panel2.Visible = True
   End Sub

   Private Sub Gotopag1Button1_Click(sender As Object, e As EventArgs) Handles gotopag1Button1.Click
       Panel2.Visible = False
   End Sub

   Private Sub Gotopag2Button2_Click(sender As Object, e As EventArgs) Handles gotopag2Button2.Click
       Panel3.Visible = False
   End Sub

   Private Sub Gotopag4Button1_Click(sender As Object, e As EventArgs) Handles gotopag4Button1.Click
       'Panel4.Visible = True
   End Sub

   Private Sub Gotopag3Button3_Click(sender As Object, e As EventArgs) Handles gotopag3Button3.Click
       Panel3.Visible = True
   End Sub


شكرا من جديد لك بارك الله فيك  Rolleyes
الرد
تم الشكر بواسطة:
#4
الكود الذي وضعته كان من مشروع ونسخت الكود كامل وكان يحتوي 4 penels و2 button

الافضل لك استخدام controltab فهو مخصصة للاسلوب الذي تريده
الرد
تم الشكر بواسطة: dubai.eig
#5
(19-03-19, 01:54 PM)5000 كتب : الكود الذي وضعته كان من مشروع ونسخت الكود كامل وكان يحتوي 4 penels و2 button

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

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

تسلم استاذي الكريم  Rolleyes
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص sql server dubai.eig 1 59 13-04-19, 09:47 PM
آخر رد: Rabeea Qbaha
  [VB.NET] استفسار :- بخصوص SQLite و local db dubai.eig 2 70 11-04-19, 08:35 AM
آخر رد: elgokr
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 174 09-04-19, 02:25 AM
آخر رد: بدري
  [VB.NET] استفسار :- تحويل داتا من Form1 الى Form2 dubai.eig 5 103 06-04-19, 09:08 PM
آخر رد: elgokr
  الوصوب لخصائص FlatStyle و BORDER لأداة Button من خلال الكود sads 1 62 03-04-19, 11:36 PM
آخر رد: بدري
  [VB.NET] استفسار :- html table to datagridview dubai.eig 5 125 30-03-19, 06:44 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص serial number dubai.eig 0 70 19-03-19, 09:32 PM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص Dispose() dubai.eig 3 137 12-03-19, 10:47 AM
آخر رد: dubai.eig
  [VB.NET] استفسار :- بخصوص The remote name could not be resolved dubai.eig 1 107 04-03-19, 02:51 AM
آخر رد: dubai.eig
  [VB.NET] استفسار بخصوص تحريك الماوس والضغط dubai.eig 1 151 02-03-19, 11:19 AM
آخر رد: dubai.eig

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


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