كيف اقسم الكلام الذي داخل مربع النص على مربعين نص

ملاحظة : بسم الله الرحمن الرحيم و السلام عليكم ليست هي المكتوبة ( هذا مجرد مثال ) و انما على حسب ادخال المستخدم

لا احد يقول لي

اقتباس

text4.text="بسم الله الرحمن الرحيم"

text2.text = " السلام عليكم و رحمة الله و بركاته

و شكرا

يعنى عايز أول سطر بـ Textbox وثانى سطر بـ Textbox آخر ؟

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

بالفعل اخي تستطيع فعل ذلك باستخدامك الى الداله Split وهي تقسيم النص إلى أجزاء أو كلمات وذلك بناءا على تحديدك شرط التقسيم , وفي مثالك مثلا شرط التحديد هو سطر سطر فلابد من استدام المعامل الثابت وهو vbCrLf حيث انها تقوم بوضع ناتج عملية التقسيم في Array مؤقته او افتراضية قمت بتعريفها مسبقا وذلك يكون الكود هكذا وهو مرفق ايضا :

Dim strText() As String
Dim strYourText As String
Dim I As Integer

strYourText = txtYourText.Text

strText() = Split(strYourText, vbCrLf)

For I = 0 To UBound(strText)
	MsgBox strText(I)
Next I

بالتوفيق ...

A7med_prof

HowToUseSplit.zip

التقسيم فى هذة الحالة بالثابت VbNewLine

اقتباس

التقسيم فى هذة الحالة بالثابت VbNewLine

اخي بالطبع يصلح استخدام المعامل الثابت VbNewLine سيؤدي نفس النتيجة

بالتوفيق .........

A7med_prof

منطقيا VbNewLine تنفع , بس سبحان الله ساعات مبتنفعش على عكس الـ vbCrLf

يعنى تهييس من الـ VB كالعادة

يا اخي شكرا على المثال لكن هذا في مسج بوكس

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

و الي انا ابغاه مثل ما قال الاخ

((يعنى عايز أول سطر بـ Textbox وثانى سطر بـ Textbox آخر ))

و شكرا

نفس الفكرة بتاعة الأخ احمد :rolleyes: , و هى شغالة تمام :)

جرب المرفق.

و من Msgbox لـ Textbox ايه المشكلة :blink: ؟!

Split.rar

اقتباس

منطقيا VbNewLine تنفع , بس سبحان الله ساعات مبتنفعش على عكس الـ vbCrLf

يعنى تهييس من الـ VB كالعادة

على الأغلب هو مش "تهييس" :)

اقتباس

vbNewLine Constant for NewLine; platform specific

vbCrLf Constant for Carriage-return/Linefeed combination; equivalent of Chr$(13)+Chr$(10

مشكور جدا و المثال اشتغل 100%

و شكرا مرة اخرى

معك حق اخي / ciphe هو في حاجة اسمها الفجوال يهيس ههههههههههههههه

انا اللي اعرفو الجهاز يهنج , الجهاز استهلكت مصادره لكن الفجوال يهيس ههههههههه

واعرف كمان ان انا اقول للفجوال اجمع يجمع اطرح يطرح يعني اللي بقلهوله ينفذه

عارف , بس التهيسس هو ان احيانا بتنفع و الله أعلم.

أما للأخ POP EL VB فأن كنت جديد بالـ VB6 فهتشوف كتير و بلاش تعلق بالطريقة دى.

اخي انا اتحدث عن مواجهتي واحتكاكي انت تقول كلام غير منطقي للاسف ومبرري لما ذكرته مسبقا.

انا ليس مبتدأ أنا ابرمج VB منذ فتره طويله .

وكويس جدا انك قولت الله اعلم .

لو عرفت ما قابلت بمشروعى Yomna Snapshooter لعرفت أنى على حق.

الـ VB و خصوصا الـ IDE ممتلئين بأخطاء و طبعا مع ايقاف دعم Microsoft لا نتوقع تصحيحها.

اخي الكلام ده تقوله لواحد لسه A B C برمجه لكن لواحد زي اسف ان اقو لك مش مقتنع بكل ده Snapshooter ايه اللي انت بتتكلم عنه ده اي انا دارس وليس هاوي

أنا غلطان يا أستاذى الفاضل , اتمنى ان ده يكون آخر نقاش بيننا.

:lol:

لا حول ولا قوة الا بالله

ربنا يهديك اخي محمد

هل ستقوم بتغير كل ما بداخل txtbox بمعنى انك تقوم بتعديل ما كتبته مسبقا...؟؟؟

بدل ما تستخدم txtbox

يمكنك استخدام label

ويمكنك كتابة ما تريد و تظبط الفونت و اللون بتاع الكلام اللى جوه ال label

وتعمل اللون بتاع ال lable

Backcolor

change it 2

Transparent

بس كدا يبءا شفاف و الكلام بس اللى ظاهر

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

ازاى تعمل مربع نص فيه سطرييين..؟..؟.؟.؟

و اذا كنت لا تريد عرض المشكلة مباشرة و تريد عرضها فى مثال طب ليه.؟.؟.؟

اعذرنى مش فاهمك

أنا جربت اطبق الفكرة عشان اوصل لحل ...؟؟؟

POP EL VB كتب:

:lol:

لا حول ولا قوة الا بالله

ربنا يهديك اخي محمد

متشكرين ياعم و ربنا يكملك بالعقل.

الأخ POP EL VB .

لا أرى أي داعٍ لجميع ردودك في هذا الموضوع فليس لها علاقة بالموضوع نهائياً وإنما هي مجرد تجريح علني مقصود + غرور ...

كنت أقصد في ردي على الأخ العزيز msayed2004 هو التنبيه لما ذكر في VB بأن vbNewLine هي platform specific فربما يكون السبب هنا ...

طبعاً من المعروف أن مشاكل VB كثيرة جداً ...

اخى POP EL VB بما انك تشكر فى الفى بى بهذه الطريقة فمن الواضح انك لم تتعامل معها كثيرا فمن يعرف ما يواجهنى فى تصميم كل اداه تحتاج دوال الرسم لا يقول ذلك كعدم تنفيز الامر وعند نقلة الى مشروع اخر ينفذ او كظهور سائل الخطا الخاصة بوجود عيب فى البرنامج لمحاولة عبثة بنظام التشغيل

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

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

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

اختم قولى ب(رحم الله امرا عرف قدر نفسة)

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