النص داخل التكست بوكس يحتوي علي المطلبوب

[Akram Galal]

السلام عليكم ورحمه الله وبركاته عيد سعيد على الجميع

اذا كان لدينا فورم بها عدد اثنين textbox

أريد كود يقوم بالاتي

اذا كان التكست textbox1 يحتوي في حروفه على حرف معين موجود داخل textbox2 

يظهر رساله مكتوب بها النص يحتوي على المطلوب 

فمثلا اذا كان مكتوب داخل textbox2 حرف "ق" والكلام او النص المكتوب داخل textbox1 يحتوي على حرف "ق" حينئذ تظهر الرساله

واذا كان النص المكتوب داخل بوكس textbox1 لا يحتوي على حرف "ق" لا تظهر الرساله جزاكم الله خيرا

وعيد سعيد على الجميع

 

 

[lionheart]

Try this code

Private Sub UserForm_Initialize()
    With Me.TextBox1
        .Text = "Hello World"
        .Enabled = False
    End With
End Sub

Private Sub TextBox2_Change()
    Dim s As String, i As Long
    s = Me.TextBox2.Value
    For i = 1 To Len(s)
        If InStr(1, Me.TextBox1.Value, Mid(s, i, 1)) > 0 Then
            MsgBox Mid(s, i, 1) & " Is Found In TextBox1"
            s = Replace(s, Mid(s, i, 1), vbNullString)
            Me.TextBox2.Value = s
            Exit For
        End If
    Next i
End Sub