تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال
#1
السلام عليكم ورحمة الله وبركاته 
عندي ريسورس به عدد 10 ملفات نص امتداد txt.
وعندي بتن التالي وبتن السابق وليبيل.
وأريد عندما أضغط على التالي ينتقل إلى ملف النص التالي في الريسورس وبالمثل في السابق يعود للسابق بارك الله فيكم
مع العلم أن النص يظهر في الليبل
الرد
تم الشكر بواسطة:
#2
يمكنك وضعهم في 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)
الرد
#3
(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)
مشكور أخي جزاك الله خيرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال ؟ khaled Mohammed 2 80 17-09-20, 02:44 AM
آخر رد: mrfodri
  سؤال ؟ khaled Mohammed 3 77 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  سؤال ؟ khaled Mohammed 3 101 15-09-20, 08:42 AM
آخر رد: Anas Mahmoud
  سؤال بخصوص CellBackcolor Selection in Datagridview .net yazanahmed 2 73 13-09-20, 12:07 AM
آخر رد: T 1
  سؤال ؟ khaled Mohammed 9 138 12-09-20, 10:01 AM
آخر رد: Anas Mahmoud
  سؤال ؟ khaled Mohammed 1 88 11-09-20, 09:19 PM
آخر رد: T 1
  سؤال ؟ khaled Mohammed 5 148 11-09-20, 02:34 PM
آخر رد: عبد الهادي بهاب
  سؤال ؟ khaled Mohammed 9 238 08-09-20, 08:39 PM
آخر رد: Anas Mahmoud
  [VB.NET] سؤال ؟ khaled Mohammed 11 211 08-09-20, 04:24 PM
آخر رد: Anas Mahmoud
  سؤال بالداتا جريد فيو اليوم السابع 3 110 07-09-20, 01:34 AM
آخر رد: اليوم السابع

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


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