تقييم الموضوع :
  • 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
__________________
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ظهور error اثناء التحزيم استايل 1 104 18-08-16, 05:14 PM
آخر رد: Ashraf Elafify
Rainbow [سؤال] البحث عن كلمة داخل عدة الروابط dlshad24 3 440 03-07-15, 05:54 PM
آخر رد: dlshad24
  تلوين كلمة البحث sameerhesen 13 2,090 26-08-13, 08:57 AM
آخر رد: VB_Coder
  اريد كود تغير كلمة في نص او جملة .. جديد 3 620 19-08-13, 09:01 PM
آخر رد: AGASHE
  AccessPass معرفة كلمة سر قواعد البيانات derbaliammar 4 872 03-08-13, 06:21 AM
آخر رد: سعود
  طلب مساعدة في قراءة كلمة بمجرد التأشير عليها بالماوس khalid tharwat 1 434 02-06-13, 10:59 PM
آخر رد: khalid tharwat
  ممكن طبط خاصية البرنامج عند اول ظهور له wolf1120 3 487 29-05-13, 09:05 PM
آخر رد: ALBRNS
  ظهور رسالة عند حفظ الملف shamal 3 392 25-03-13, 12:55 AM
آخر رد: VB_Coder
  كيف اجعل صندوق النص لا يقبل الا كلمات انكليزية ابو عمر المولى 5 667 19-03-13, 06:03 PM
آخر رد: ابو عمر المولى
  كود لمسح كلمة معينة من تكست مجاهد2010 2 435 06-02-13, 02:34 AM
آخر رد: مجاهد2010

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


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