[Etos]

السلام عليكم 

اريد تحديد الحرف من خلال رقمه في النص 

مثال 
او افترضنا ان text بداخله stay
اريد في text2 ان يظهرلي الحرف الثالث الموجود ف النص 
الذي هو هنا حرف A

ارجو تكون الفكره وصلت

[Mohamad Anan]

و عليكم السلام و رحمة الله و بركاته

PHP كود :

Text2.Text = Mid$(Text1.Text, 3, 1) 


و إن كنت لا تعرف رقم الحرف في النص:

PHP كود :

Text2.Text = Mid$(Text1.Text, InStr(1, Text1.Text, "a", vbTextCompare), 1) 


[Etos]

طيب بعد اذنك
لو عايز حرفين مع بعض
اكتب رقمهم ازاي ف الكود

[Mohamad Anan]

مرحبا أخي الكريم

لتحديد اكثر من حرف عدل آخر رقم

PHP كود :

Text2.Text = Mid$(Text1.Text, 3, 2) 


[elkhateeb11]

(15-10-17, 11:20 AM)Mohamad Anan كتب : مرحبا أخي الكريم

لتحديد اكثر من حرف عدل آخر رقم

PHP كود :

Text2.Text = Mid$(Text1.Text, 3, 2) 


كل الشكر للاخ محمد
بس سؤال لو حبيبت اعرض اول مقطع من النص كأن يكون النص "محمد احمد"
واريد ان يعرض لى "محمد" فقط
مع الشكر

[AL_BRNS]

السلام عليكم

جرب التالي

PHP كود :

Private Sub Command1_Click()
Dim x() As String
x = Split(Text1.Text, " ")
Text2.Text = x(0)
End Sub 


بالتوفيق .