تقييم الموضوع :
  • 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)
مشكور أخي جزاك الله خيرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى الكريستال mmali127 0 102 12-11-20, 01:20 PM
آخر رد: mmali127
  سؤال بخصوص الضريبة و الخصم في الفاتورة sofiane-phy 2 187 30-10-20, 11:06 PM
آخر رد: sofiane-phy
  سؤال في Html Agility Pack اليوم السابع 0 163 27-10-20, 07:55 PM
آخر رد: اليوم السابع
  [VB.NET] سؤال في geckowebbrowser farfour 2 170 25-10-20, 03:49 PM
آخر رد: farfour
  [VB.NET] سؤال في webbrowser farfour 6 324 24-10-20, 05:35 PM
آخر رد: farfour
  سؤال في التشيك بوكس اليوم السابع 3 190 24-10-20, 03:44 AM
آخر رد: kiki
  [VB.NET] سؤال توضيحي حول الحفظ عن طريق CommandBuilder larbihamri 2 264 19-10-20, 10:07 AM
آخر رد: larbihamri
  سؤال في listbox KIKO1992 2 199 13-10-20, 12:28 AM
آخر رد: KIKO1992
  [سؤال] سؤال في الدالة الشرطية if ismaeel 4 264 10-10-20, 09:22 PM
آخر رد: ismaeel
  [نقاش] سؤال MetoDas 1 184 08-10-20, 02:55 PM
آخر رد: PeterGhattas082460

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


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