[3booody]

قم بحفظ القيمه في My Settings

[CorrM]

إقتباس : قم بحفظ القيمه في My Settings

كيف يكون هذا عمتا تم حل المشكله قابلتنى مشكله اخرى اريد ان اجلب ملف eslam.txt به عده سطور اريد ان يجلب

سطر واحد فقط الى textbox1.text

قم عند الضغط ع البوتم 1 يقوم بالذهاب الى السطر الثانى اى انه يذيد سطر هنا

و عند الضغط ع بوتم 2 يعود الى السطر الاول اى انه ينقص سطر هنا

[3booody]

ضع زرين بوتون الاول اسمه التالي والثاني اسمه السابق ثم ضع هذا الكود

كود :

Dim str() As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        str = IO.File.ReadAllText("مسار النص").Split(vbNewLine)
        Me.TextBox1.Text = str(0)
    End Sub
    Dim i As Integer = 0
    Private Sub btn_Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Next.Click
        Try
            i += 1
            TextBox1.Text = str(i)
        Catch ex As Exception
            i -= 1
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            i -= 1
            TextBox1.Text = str(i)
        Catch ex As Exception
            i += 1
        End Try
    End Sub

[CorrM]

شكرا لك ممكن تقبل طلب الصداقه

[3booody]

اكيد ممكن اهلآ وسهلآ بك