سؤال مهم عن التكست بوكس؟

تحتاج الى 3 تكست بوكس و زر

Private Sub Command1_Click()
For i = 0 To Len(Text1.Text)
y = Mid$(Text1.Text, i, 1)
If y = " " Then
d = i
GoTo f
End If
Next
f:
Text2.Text = Left(Text1.Text, d)
Text3.Text = Right(Text1.Text, Len(Text1.Text) - d)
End Sub

الأخ العزيز هشام نصر اشكرك على سرعة استجابتك .واشكرك ايضا على هذا الكود الجميل

وجزاك الله خيرا

الأخ العزيز هشام

طيب لو التكست فيه 3 كلمات وعايز كل كلمة تطلع فى تكست هيبقى ايه الكود لانىلما جربتها خد

الكلمة االثانيى والثالثه فى تكست واحده وبعد كده قسمهم ياريت لو تعرف ترد عليا

بسم الله الرحمن الرحيم

- قم بوضع اداة تكست (Text1) ,و ستحتوي على النص المراد تقسيمه.

- اضف لست بوكس (List1). وستوضع بها الكلمات المقسمه.

- اضف رز امر.(Command1).

ضع الكود التالي في زر الأمر

Private Sub Command1_Click()
Dim a() As String
a() = Split(Text1.Text, " ")
For i = 0 To UBound(a())
List1.AddItem a(i) 'للتخزين داخل القائمة
Next i
End Sub

المثال في المرفقات

VB-LOVE

vb.rar

أحباب إذا كان الاسم الأول مركب مثلا : عبد الله عبد الرحمن

ما الحل ...؟

ولو مش عايز اخزنها فى ليست وعايز اخزن الكلمات فى تكستات عشان بقرى من التكستات وبخلى قيم تشتغل على اساس القراءات دى بليز ياريت تحولها ترمى فى تكستات واكون عاجز عن الشكر

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

أزيكوا يا شباب . عملت الكود بتاع تخزين قيم تقطيع التكست جوا مجموعه من التكستات (string tokenizer) بتعديل على كود الأخ هشام جزاه الله خير والكود هوا

Private Sub Command2_Click()

Dim a() As String

a() = Split(Text1.Text, " ")

For i = 0 To UBound(a())

Text2.Text = a(0)

Text3.Text = a(1)

Text4.Text = a(2)

Next i

End Sub