كود البحث داخل الأداه RichTextBox-اكود وتطبيقات برمجية متنوعة Code and applications Multiple programming -Tutorials VB.Nethttp://web00967.com/Images/NotImageProd.jpg

تابعنا على اليوتيوب
لكي يصلك كل جديد
Subscribe to the YouTube channel

تأريخ الإضافة : 13.09.2014
تطبيقات برمجية Software applications
قم بإرسال الموضوع عبر الفيس بوك

التفاصيل :

كود البحث داخل الأداه

RichTextBox

On Error Resume Next

Dim F As String

F = InputBox("Enter Word To Find", "Find")

If F = "" Then Exit Sub

RT.Find(F)

SBAR.Text = " Word Found "