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

ممكن كود لحذف الكلمه المتكرره من التكست بوكس

[سعود]

PHP كود :

Public Class Form1
    Dim org As String = ""

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Button1.Enabled = TextBox2.Text.Trim.Length
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        org = TextBox1.Text
        Dim lst As New List(Of String)
        For Each h As String In TextBox1.Text.Split(" ")
            If lst.Contains(h) And h = TextBox2.Text Then GoTo nxt
            lst.Add(h)

nxt:
        Next
        TextBox1.Clear()
        For Each h As String In lst
            TextBox1.AppendText(h & " ")
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = org
    End Sub
End Class 


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

(31-05-20, 04:59 PM)سعود كتب :

PHP كود :

Public Class Form1
    Dim org As String = ""

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Button1.Enabled = TextBox2.Text.Trim.Length
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        org = TextBox1.Text
        Dim lst As New List(Of String)
        For Each h As String In TextBox1.Text.Split(" ")
            If lst.Contains(h) And h = TextBox2.Text Then GoTo nxt
            lst.Add(h)

nxt:
        Next
        TextBox1.Clear()
        For Each h As String In lst
            TextBox1.AppendText(h & " ")
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = org
    End Sub
End Class 


الله يبارك فيك يا كبير