منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سؤال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال (/showthread.php?tid=36226)



سؤال - Hamza Elshare - 26-08-20

السلام عليكم ورحمة الله وبركاته 
عندي ريسورس به عدد 10 ملفات نص امتداد txt.
وعندي بتن التالي وبتن السابق وليبيل.
وأريد عندما أضغط على التالي ينتقل إلى ملف النص التالي في الريسورس وبالمثل في السابق يعود للسابق بارك الله فيكم
مع العلم أن النص يظهر في الليبل


RE: سؤال - Anas Mahmoud - 26-08-20

يمكنك وضعهم في List والاحتفاظ ب Index الملف الحالي
وعند الحاجة تحضر الملف التالي ( Index +1 ) او السابق ( Index  - 1 )

عرف التالي للبرنامج كله

كود :
   Dim TxtList As New List(Of String)({My.Resources.txt1,
                                      My.Resources.txt2,
                                      My.Resources.txt3,
                                      My.Resources.txt4})
   Dim Index As Integer

زر التالي :

كود :
       If Index >= TxtList.Count Then Return
       Index += 1
       Label1.Text = TxtList(Index)

زر السابق :

كود :
       If Index <= 0 Then Return
       Index -= 1
       Label1.Text = TxtList(Index)



RE: سؤال - Hamza Elshare - 27-08-20

(26-08-20, 04:51 PM)Anas Mahmoud كتب : يمكنك وضعهم في List والاحتفاظ ب Index الملف الحالي
وعند الحاجة تحضر الملف التالي ( Index +1 ) او السابق ( Index  - 1 )

عرف التالي للبرنامج كله

كود :
   Dim TxtList As New List(Of String)({My.Resources.txt1,
                                      My.Resources.txt2,
                                      My.Resources.txt3,
                                      My.Resources.txt4})
   Dim Index As Integer

زر التالي :

كود :
       If Index >= TxtList.Count Then Return
       Index += 1
       Label1.Text = TxtList(Index)

زر السابق :

كود :
       If Index <= 0 Then Return
       Index -= 1
       Label1.Text = TxtList(Index)
مشكور أخي جزاك الله خيرا