[Ameer.net]

(23-02-17, 07:00 PM)sendbad100 كتب : السلام عليكم 

غير كود الكومند كالتالي 

اضف  istBox1      

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reasasa As String

        Me.ListBox1.Items.Clear()
        For x As Integer = 1 To 10
            reasasa = rada(TextBox2.Text)
            Me.ListBox1.Items.Add(reasasa)
        Next

        



    End Sub 


والله الموفق

---

ممكن تغير عدد الكلمات من تغيير الرقم  10   في هذا السطر          For x As Integer = 1 To 10

اشكرك وردة
اريد بعد كود حفظ اليوزرات في تيكست 
و كود حذف حرف واحد و من اخر اليوزر
مثلا ظهر لي يوزر ammer.net.
يصبح ameer.net