[اليوم السابع]

محتاج كود اضعه في زر يحذف الرقم والاقواس   وزارة العدل - محاكم الاسرة (230)
من الليست بوكس

[اسامه الهرماوي]

السلام عليكم...
إتبع:
http://vb4arb.com/vb/showthread.php?tid=17137

[tariq2812]

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

       For n = 0 To 5


           Dim s As String = "وزارة العدل - محاكم الاسرة ({0})"

           ListBox1.Items.Add(String.Format(s, n))

       Next


   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       For t = 0 To ListBox1.Items.Count - 1


           ListBox1.Items.Item(t) = ListBox1.Items.Item(t).ToString.Replace("(", "").Replace(")", "")

       Next




   End Sub

[اليوم السابع]

(22-01-20, 01:10 AM)tariq2812 كتب :

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

       For n = 0 To 5


           Dim s As String = "وزارة العدل - محاكم الاسرة ({0})"

           ListBox1.Items.Add(String.Format(s, n))

       Next


   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       For t = 0 To ListBox1.Items.Count - 1


           ListBox1.Items.Item(t) = ListBox1.Items.Item(t).ToString.Replace("(", "").Replace(")", "")

       Next




   End Sub

شكرا لك يا محترم