أرجوا مساعدتى فى text box وهذه المشكله

السلام عليكم

انا كتبت لك كود و جربته و اشتغل تمام الحمدلله :lol:

هذا الكود

Sub FatherName()
'Sub Wriiten by AHMAD FATHY :: midoalx@hotmail.com ::
Dim Check As Integer
Dim FatherText As String
Check = InStr(Text1.Text, " ")
If Not Check = 0 Then
Text1.SelStart = Check
Text1.SelLength = Len(Text1.Text)
FatherText = Text1.SelText
Text2.Text = FatherText
End If
End Sub
Private Sub Command1_Click()
Call Me.FatherName
End Sub

شاهد الملف المرفق B)

Father name.zip

انا متشكر جدا انا مش عارف اشكرك ازاى كود رائع

بارك الله فيك وبسم الله ما شاء الله عليك يا استاذ أحمد

ممتاز يا أبو حميد

بارك الله فيك

يا استاذ احمد فهل من الممكن تعديل المثال ليكون هكذا

ولنفرض انى عندى واحد text فيه اسم الطالب الرباعى

مثلا أحمد مراد حلمى حسن

وعندى اربعة text اخرين

فكيف أجعل text

الاول يمتلأ باسم الاول فقط (أحمد)

والثانى باسم الاب فقط (مراد)

والثالث باسم الجد فقط (حلمى)

والرابع بالاسم اللقب (حسن)

واكون شاكر لك

الاخ احمد الكود رائع ويعمل جيدا ولكن نرجوا شرح الكود بمعنى ما هى الدالة الثابتة المستخدمة هنا نرجوا شرح الكود بالتفصيل كى نقوم بعمل كوبى وبيست فقط وانما نكون على علم بما نفعل واشكرك مرة اخرى على الكود الجميل

ما أدري الأخ أحمد أعتقد إنه مشغول وسأشرح الكود بالنيابة عنه وبعد إذنه طبعا

السطر الأول والثاني يعرف متغيرين الأول ليضع فيه رقم أول مسافة في النص Check والثاني سيخزن فيه قيمة نص الأب بعد حذف الاسم الأول

السطر الثالث : وهنا يستخدم دالة Instr والتي تعيد رقم حرف معين داخل نص مثل

a = instr("ahmmed","m")
print a
ستكون a قيمتها 3

واستخدمت هنا لأيجاد ترتيب أو ل مسافة بالنص لنأخذ ما بعدها ولكن هنا يحدث خطأ إذا المستخدم ضغط مفتاح المسافة في البداية فإن النص بالكامل سيخرج معنا ولذلك كان يجب استخدام دالة LTrim لحذف المسافات في البداية

بعد ذلك يتم عمل شرط إذا وجد مسافة بمعنى أن المتغير Check لا يساوي صفر أي توجد مسافة لذلك إذا لم تضع مسافة في النص فلن تحصل على شيئ وإذا وجد مسافة يقوم بعمل التالي

1 - يحدد النص المطلوب بدء من المسافة باستخدام الطريقة Selstart بمعنى بداية النص المطلوب

2 - يحدد طول النص بالكامل كطول للنص المحدد باستخدام الدالو len والتي تعيد طول نص معين ليضعه كطول للنص المطلوب SelLength

3 - يضع ناتج التحديد باستخدام الطريقة seltext للمتغير fathename

ثم بعد ذلك يتم تعبئة مربع النص الثاني باستخدام المتغير

بعد ذلك يتم استدعاء الإجراء من خلال الدالة call مع اسم الإجراء ويمكن عدم كتابة الدالة call والإكتفاء باسم الإجراء مباشرة

أرجو ان يكون الكود تم فهمه ...... وأعتذر مسبقا للأخ أحمد ولكن القصد إفادة الجميع

ولكم تحياتي

3 -

فهل من الممكن تعديل المثال ليكون هكذا

ولنفرض انى عندى واحد text فيه اسم الطالب الرباعى

مثلا أحمد مراد حلمى حسن

وعندى اربعة text اخرين

فكيف أجعل text

الاول يمتلأ باسم الاول فقط (أحمد)

والثانى باسم الاب فقط (مراد)

والثالث باسم الجد فقط (حلمى)

والرابع بالاسم اللقب (حسن)

واكون شاكر لك

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

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

أخي العزيز :: مراد :: كيف حالك ؟

تفضل ما تريده ولولا ضيق الوقت لكتبت لك الشرح

ملاحظة : المثال عملته باستخدام المصفوفات

SplitName.zip

مشكور اخى المثال جميل جدا