20-09-12, 10:01 PM
اكتب في التكست بوكس
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
__________________
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
__________________