الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بحث في تكست

مغلق
بدأه بنت البرمجه في 16 يونيو 2005 · 4 رد · 537 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

ممكن كود بحث في التكست

يعني فيه زرين الاول "بحث" والثاني "التالي"

زر البحث يبحث والزر التالي يعني يدور في الكلمه نفسها مره ثانيه

ممكن يامبرمجن العرب

Professional VB99

GHOST2010

باشا

بلال

#2

وعليكم السلام

هذا كود البحث :

Text1.SelLength = 0
b = Text1.SelStart
a = InStr(b + Len(Text2), Text1, Text2, vbTextCompare)
 If a Then
    Text1.Refresh
    Text1.SelStart = a - 1
    Text1.SelLength = Len(Text2)
    Text1.SetFocus
 End If

وهذا كود التالي

Text1.SelLength = 0
b = Text1.SelStart
a = InStr(b + Len(Text2), Text1, Text2, vbTextCompare)
 If a Then
    Text1.Refresh
    Text1.SelStart = a - 1
    Text1.SelLength = Len(Text2)
    Text1.SetFocus
 End If

ولكن يجب ان يكون في تكستين او اذا تبين بحث في تكست واحد انا حاظر بس اتوقع

هذا افضل

#3

أعتقد الأخ professional VB99 جاء برد مقنع

وإليك مثال لكن بدون حكاية التالي دي

يعني

يبحث يبحث يبحث وإذا وصل إلى نهاية الـ Text يبحث في البداية ثانية

Search.zip

#4

مثال أخر

زيادة الخير خيرين

Search in Text.zip

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#5

اخي بلال مامعنى قولك برد مقنع

هذا الموضوع مغلق.

مواضيع مشابهة