[Necro PC]

السلام عليكم إخواني، عندي RichTextBox ، أريد كود : اذا وجد الجملة التالية: Activation was successful ينفذ أمر ما، يعني نفس عمل Cmd و شكرا
   

[messry]

(12-04-21, 11:13 PM)Necro PC كتب : السلام عليكم إخواني، عندي RichTextBox ، أريد كود : اذا وجد الجملة التالية: Activation was successful ينفذ أمر ما، يعني نفس عمل Cmd و شكرا

كود :

   Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
if RichTextBox1.text = "Activation was successful" then
افعل ما تريد هنا
end if
   End Sub

[Necro PC]

(13-04-21, 12:04 AM)messry كتب :

(12-04-21, 11:13 PM)Necro PC كتب : السلام عليكم إخواني، عندي RichTextBox ، أريد كود : اذا وجد الجملة التالية: Activation was successful ينفذ أمر ما، يعني نفس عمل Cmd و شكرا

كود :

   Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
if RichTextBox1.text = "Activation was successful" then
افعل ما تريد هنا
end if
   End Sub

أخي الفاضل، الكود لا يعمل !!!!!!!

[messry]

كود :

   Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
       If RichTextBox1.Text = "Activation was successful" Then
           MsgBox("Teeeeeeeeeeeeeeeeet")
       End If
   End Sub

ارفق المثال وان شاء الله اعدل عليه

[Necro PC]

تفضل أخي الكريم المثال، و صيام مبارك :

[messry]

(15-04-21, 04:45 PM)Necro PC كتب : تفضل أخي الكريم المثال، و صيام مبارك :

علينا وعليكم ان شاء الله
تقبل الله طاعاتكم

تفضل أخي

[Necro PC]

شكرا و بارك الله فيك

[messry]

الشكر لله

سبحان الله وبحمده ، سبحان الله العظيم