تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف الكلمه المتكرره من التكست بوكس
#1
ممكن كود لحذف الكلمه المتكرره من التكست بوكس
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
PHP كود :
Public Class Form1
    Dim org 
As String ""

 
   Private Sub TextBox2_TextChanged(sender As ObjectAs EventArgsHandles TextBox2.TextChanged
        Button1
.Enabled TextBox2.Text.Trim.Length
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 TextBox2.Text Then GoTo nxt
            lst
.Add(h)

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

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        TextBox1
.Text org
    End Sub
End 
Class 


الملفات المرفقة
.zip   AllowOneWord.zip (الحجم : 23.44 ك ب / التحميلات : 9)
الرد
#3
(31-05-20, 04:59 PM)سعود كتب :
PHP كود :
Public Class Form1
    Dim org 
As String ""

 
   Private Sub TextBox2_TextChanged(sender As ObjectAs EventArgsHandles TextBox2.TextChanged
        Button1
.Enabled TextBox2.Text.Trim.Length
    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 TextBox2.Text Then GoTo nxt
            lst
.Add(h)

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

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        TextBox1
.Text org
    End Sub
End 
Class 
الله يبارك فيك يا كبير
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس ismaeel 3 150 16-10-21, 05:42 PM
آخر رد: ismaeel
  سوال عن اضافه كمبو بوكس الى الداتا جريد فيو alazhry 2 177 09-10-21, 06:45 PM
آخر رد: ahmed4
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 236 05-10-21, 11:14 AM
آخر رد: ابو نور الهدى
  تعبئة داتا كرد فيو من الكمبو بوكس نيمو 2 195 03-10-21, 10:10 PM
آخر رد: نيمو
  كود انتقال الماوس تلقائيا من التيكست بوكس ابو نور الهدى 6 350 16-09-21, 12:00 AM
آخر رد: ابو نور الهدى
  معادلة عد كلمة معينة داخل اكثر من تكست بوكس ابو العلاء 10 520 13-09-21, 12:45 AM
آخر رد: ابراهيم ايبو
Exclamation [سؤال] احتاج مساعدة في حفظ ليست بوكس الى تكست malek369 0 253 24-08-21, 09:12 AM
آخر رد: malek369
  [كود] جعل التاكست بوكس يكتب في سطر واحد zazasami 3 437 30-06-21, 09:31 AM
آخر رد: ابو انس
  السلام عليكم عندي سؤال في الليست بوكس اليوم السابع 1 523 21-06-21, 02:35 PM
آخر رد: alfaiz678
  الرجاء من رواد البرمجة في المنتدي بخصوص استعاء بيانات من موقع لتكست بوكس نور الهدى الهدى 2 793 16-06-21, 09:08 PM
آخر رد: نور الهدى الهدى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم