[محمد مسافر]

(08-01-20, 12:25 PM)asemshahen5 كتب : ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lines() = My.Resources.textfile.Split(vbNewLine)
        If My.Settings.HekmaID >= lines.Count Then
            My.Settings.HekmaID = 0
            My.Settings.Save()
        End If
        Dim hekma = lines(My.Settings.HekmaID)
        TextBox1.Text = hekma
        My.Settings.HekmaID = My.Settings.HekmaID + 1
        My.Settings.Save()
    End Sub 


---

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