تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ظهور كلمة بين كلمات
#1
اكتب في التكست بوكس
ahmed is 'eating' and khalid ........ etc

......................

في زر الكوماند ضع الكود التالي
Private Sub Command1_Click()
S1 = InStr(1, Text1.Text, "'", vbBinaryCompare)
S2 = InStr(S1 + 1, Text1.Text, "'", vbBinaryCompare)
MyStr = Mid(Text1.Text, S1 + 1, (S2 - S1) - 1)

MsgBox MyStr
End Sub
__________________
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية معالجة مشكلة ظهور اللغة العربية على شكل رموز Emad Nashaat 1 192 08-06-17, 05:16 AM
آخر رد: Amir_alzubidy
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 3 633 14-03-17, 01:02 AM
آخر رد: عبد العزيز البسكري
  ظهور error اثناء التحزيم استايل 1 283 18-08-16, 05:14 PM
آخر رد: Ashraf Elafify
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 671 03-07-15, 05:54 PM
آخر رد: dlshad24
  تلوين كلمة البحث sameerhesen 13 2,550 26-08-13, 08:57 AM
آخر رد: VB_Coder
  اريد كود تغير كلمة في نص او جملة .. جديد 3 800 19-08-13, 09:01 PM
آخر رد: AGASHE
  AccessPass معرفة كلمة سر قواعد البيانات derbaliammar 4 1,071 03-08-13, 06:21 AM
آخر رد: سعود
  ممكن طبط خاصية البرنامج عند اول ظهور له wolf1120 3 626 29-05-13, 09:05 PM
آخر رد: ALBRNS
  ظهور رسالة عند حفظ الملف shamal 3 490 25-03-13, 12:55 AM
آخر رد: VB_Coder
  كيف اجعل صندوق النص لا يقبل الا كلمات انكليزية ابو عمر المولى 5 808 19-03-13, 06:03 PM
آخر رد: ابو عمر المولى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم