تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] مشكلة بسيطة في طباعة Textbox CoderMM 1 70 12-12-17, 09:54 PM
آخر رد: طالب برمجة
  تمرير الداتا من TextBox الي RichBox khaled12345 6 115 04-12-17, 11:59 PM
آخر رد: khaled12345
  نقل محتويات الداتاقريدفيو الى textbox في الكرستال ريبورت جيولوجي مبتدئ 0 53 26-11-17, 12:35 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] سؤال :- بخصوص ال textbox dubai.eig 6 119 21-11-17, 06:29 PM
آخر رد: dubai.eig
  نقل البيانات من DataGridView الي textbox ahmedbezia 16 239 18-11-17, 08:36 PM
آخر رد: Rabeea Qbaha
  اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات مراد بورجي 13 331 12-11-17, 10:35 PM
آخر رد: Rabeea Qbaha
  [VB.NET] استفسار بخصوص ال textbox dubai.eig 2 83 12-10-17, 09:07 PM
آخر رد: dubai.eig
Exclamation [VB.NET] حدف اسطر في textbox mervandzz 3 83 12-10-17, 02:40 PM
آخر رد: mervandzz
  [VB.NET] استفسار :- تحديث ال TEXTBOX dubai.eig 8 207 10-10-17, 07:03 PM
آخر رد: dubai.eig
  مساعدة في حفظ ماهو مكتوب في textbox اوتوماتيكي trakktour 1 109 01-10-17, 10:30 PM
آخر رد: Amir_alzubidy

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


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