السلام عليكم
ممكن كود بحث في التكست
يعني فيه زرين الاول "بحث" والثاني "التالي"
زر البحث يبحث والزر التالي يعني يدور في الكلمه نفسها مره ثانيه
ممكن يامبرمجن العرب
Professional VB99
GHOST2010
باشا
بلال
بحث في تكست
مغلق
وعليكم السلام
هذا كود البحث :
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
ولكن يجب ان يكون في تكستين او اذا تبين بحث في تكست واحد انا حاظر بس اتوقع
هذا افضل
أعتقد الأخ professional VB99 جاء برد مقنع
وإليك مثال لكن بدون حكاية التالي دي
يعني
يبحث يبحث يبحث وإذا وصل إلى نهاية الـ Text يبحث في البداية ثانية
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Sub![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
اخي بلال مامعنى قولك برد مقنع
هذا الموضوع مغلق.