[سؤال] سؤال خاص - نسخة قابلة للطباعة

[سؤال] سؤال خاص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] سؤال خاص (/showthread.php?tid=3163)

سؤال خاص - touati - 11-06-14

اريد انشاءform متكون من عدتframe وcommand واحيدة وعند الضغط علىcommand مرة تضهر frame1 وعند الضغط مرة ثانية تضهرframe2وعند الضغط للمرة الثالث تضهر frame3 الى اخر frame يعني انشاءcommand التالي او command السابق

RE: سؤال خاص - vbnet - 11-06-14

.....

إذا كانت الـ Frame بالأسماء أجعل الأول Visible=True والباقية Visible=False

كود :

Private Sub Command1_Click()

    If Frame1.Visible Then

        Frame1.Visible = False

        Frame2.Visible = True

    ElseIf Frame2.Visible Then

        Frame2.Visible = False

        Frame3.Visible = True

    ElseIf Frame3.Visible Then

        Frame3.Visible = False

        Frame1.Visible = True

    End If

End Sub

إذا كانت الـ Frame مصفوفة أجعل الأول Visible=True والباقية Visible=False

كود :

Private Sub Command1_Click()

    If Frame1(0).Visible Then

        Frame1(0).Visible = False

        Frame1(1).Visible = True

    ElseIf Frame1(1).Visible Then

        Frame1(1).Visible = False

        Frame1(2).Visible = True

    ElseIf Frame1(2).Visible Then

        Frame1(2).Visible = False

        Frame1(0).Visible = True

    End If

End Sub

.....

RE: سؤال خاص - king2512010 - 11-06-14

مرفق التطبيق لمشاركة الاخ VBnet

الف شكر لك اخى ...

RE: سؤال خاص - kum2002 - 13-06-14

سؤال جميل