تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اقتصاص ما بعد الكلمة في textbox
#1
السلام عليكم

السؤال هو كيفية اقتصاص كلمة معينة بعد كلمة Hi فمثلا عند كتابة Hi Mr.IlI في التكس بوكس يقوم باظهار مسج فيها Mr.IlI وذلك بعد الضغط على enter

تم الحل ... لكن الحل مخبص شوي لكن زابط استخدمت Repalce و Find

PHP كود :
Dim a As Int16
        Dim stt 
As String RichTextBox1.Text



        Dim boxes 
As New StringBuilder(stt)
        If 
RichTextBox1.Text.Contains("HI "Then
            a 
RichTextBox1.Find("HI ")
            
RichTextBox1.Select(a2)
            
Dim word1 As New StringBuilder(RichTextBox1.SelectedText)
            
boxes.Replace(RichTextBox1.SelectedText"")

            
RichTextBox1.Text boxes.ToString()
            
TextBox1.AppendText(RichTextBox1.Text)
            
RichTextBox1.Text ""
        
End If
    
End Sub 
الرد }}}}
تم الشكر بواسطة: الشاكي لله
#2
السلام عليكم...

يمكنك اختصار الكود كالتالي (في الحدث KeyDown لمربع النص):

كود :
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    Dim MyWord As String = "Hi, "
    Dim MyStr As String

    If e.KeyCode = Keys.Enter Then   ' إذا تم الضغط على مفتاح إنتر
        If TextBox1.Text.Contains(MyWord) Then
            MyStr = TextBox1.Text.Substring(TextBox1.Text.IndexOf(MyWord, 1, MyWord.Length) + MyWord.Length)
            MsgBox(MyStr)
        Else
            MsgBox("'" & MyWord.Trim() & "' is NOT found")
        End If
    End If
End Sub
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: mohammed moh , Mr.ILI , kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 48 12-10-17, 09:07 PM
آخر رد: dubai.eig
Exclamation [VB.NET] حدف اسطر في textbox mervandzz 3 54 12-10-17, 02:40 PM
آخر رد: mervandzz
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 157 10-10-17, 07:03 PM
آخر رد: dubai.eig
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 85 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy
  [سؤال] طلب كود لتكرار كلمة في TextBox vbb6 3 86 01-10-17, 04:11 PM
آخر رد: vbb6
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,134 02-09-17, 08:46 PM
آخر رد: ahmedgamal
  نقل عناصر listbox الى textbox بـــكوما مفصولة srca100050 13 343 26-08-17, 06:33 PM
آخر رد: سعود
Wink [مثال] فيديو طريق التعامل مع textbox في شكل إله حسابه alims 1 122 13-08-17, 10:52 PM
آخر رد: Amir_alzubidy
  [VB.NET] طلب كود معرفة TextBox النشطة waelalmsry75 4 147 08-08-17, 02:25 AM
آخر رد: waelalmsry75
  [VB.NET] كيفة معرفة اذا كان في فراغ في Textbox e-coder 3 131 04-08-17, 12:19 AM
آخر رد: سعود

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


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