21-01-20, 11:17 PM
21-01-20, 11:56 PM
22-01-20, 01:10 AM
كود :
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 Sub24-01-20, 04:41 AM
(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