اقتصاص ما بعد الكلمة في textbox

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف تغيير صيغه الترميز في اداه TextBox معاذ العامري 1 41 09-08-18, 07:26 PM
آخر رد: Finish
  ازالة الفراغات من textbox nabil.1710 8 132 25-07-18, 10:00 AM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 161 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  إذا كان ال textbox فارغ أريد رسالة خطئء hichem1 8 153 06-06-18, 06:28 PM
آخر رد: hichem1
Question [سؤال] مساعدة أريد أن يستخرج ال textbox من ال webbrowser الذي أضفته في مشروعي hichem1 2 95 06-06-18, 05:02 PM
آخر رد: hichem1
  [سؤال] أريد أن أنشئ textbox غير مسموح بالكتابة عليه مطلقا hichem1 3 107 06-06-18, 03:41 AM
آخر رد: hichem1
  [سؤال] أريد من التكست بوكس (textbox) أن يحفظ البيانات التي كتبت فيه ثم يستعيدها عند فتح الب hichem1 2 127 06-06-18, 01:42 AM
آخر رد: hichem1
Exclamation تنفيذ كود مكتوب في TextBox YousefOkasha 12 338 02-06-18, 12:29 AM
آخر رد: YousefOkasha
  [VB.NET] سؤال في TextBox e-coder 2 118 26-05-18, 05:15 PM
آخر رد: elgokr
  [VB.NET] كيف أتحكم في TextBox DOX.1 9 212 26-05-18, 05:14 PM
آخر رد: elgokr

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


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