[Hamza Elshare]

(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)

مشكور أخي جزاك الله خيرا