19-07-13, 09:25 PM
الصفحات : 1 2
19-07-13, 09:37 PM
إقتباس : قم بحفظ القيمه في My Settings
كيف يكون هذا عمتا تم حل المشكله قابلتنى مشكله اخرى اريد ان اجلب ملف eslam.txt به عده سطور اريد ان يجلب
سطر واحد فقط الى textbox1.text
قم عند الضغط ع البوتم 1 يقوم بالذهاب الى السطر الثانى اى انه يذيد سطر هنا
و عند الضغط ع بوتم 2 يعود الى السطر الاول اى انه ينقص سطر هنا
19-07-13, 09:51 PM
ضع زرين بوتون الاول اسمه التالي والثاني اسمه السابق ثم ضع هذا الكود
كود :
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 Sub19-07-13, 10:01 PM
شكرا لك ممكن تقبل طلب الصداقه
19-07-13, 10:05 PM
اكيد ممكن اهلآ وسهلآ بك
الصفحات : 1 2