+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود keypress (/showthread.php?tid=9673)
الصفحات:
1
2
كود keypress - 3booody - 19-07-13
قم بحفظ القيمه في My Settings
كود keypress - CorrM - 19-07-13
إقتباس : قم بحفظ القيمه في My Settings
كيف يكون هذا عمتا تم حل المشكله قابلتنى مشكله اخرى اريد ان اجلب ملف eslam.txt به عده سطور اريد ان يجلب
سطر واحد فقط الى textbox1.text
قم عند الضغط ع البوتم 1 يقوم بالذهاب الى السطر الثانى اى انه يذيد سطر هنا
و عند الضغط ع بوتم 2 يعود الى السطر الاول اى انه ينقص سطر هنا
كود keypress - 3booody - 19-07-13
ضع زرين بوتون الاول اسمه التالي والثاني اسمه السابق ثم ضع هذا الكود
كود :
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كود keypress - CorrM - 19-07-13
شكرا لك ممكن تقبل طلب الصداقه
كود keypress - 3booody - 19-07-13
اكيد ممكن اهلآ وسهلآ بك