ظهور كلمة بين كلمات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94) +--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167) +--- الموضوع : ظهور كلمة بين كلمات (/showthread.php?tid=4256)

ظهور كلمة بين كلمات - سانسيفا - 20-09-12 اكتب في التكست بوكس 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 __________________