[bidaya]

بسم الله الرحمن الدحيم

ابحث عل كود يقوم بإنشاء ملف من نوع تكست به اسماء بهذا الشكل

 

هنا عدد الاسماء 5

اريد ان اخذ العدد من متغير لكي اتحكم  في الزيادة او النقصان

[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strd As String = String.Empty
        For i = 0 To NumericUpDown1.Value - 1
            strd &= TextBox1.Text & i & " , "
        Next
        strd = strd.Remove(strd.Length - 2, 2)
        My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Test.txt", strd, False)
        MsgBox("Done....")
    End Sub 


[bidaya]

(15-03-20, 04:55 PM)asemshahen5 كتب :

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim strd As String = String.Empty
        For i = 0 To NumericUpDown1.Value - 1
            strd &= TextBox1.Text & i & " , "
        Next
        strd = strd.Remove(strd.Length - 2, 2)
        My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Test.txt", strd, False)
        MsgBox("Done....")
    End Sub 


جزاك الله خيرا استاذنا القدير asemshahen5