الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تنسيق مربع النص

مغلق
بدأه mody131076 في 29 نوفمبر 2004 · 5 رد · 619 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني الأعزاء

اريد كتابة كود في زر امر واحد يظهر عدد من الجمل في مربع نص بحيث تظهر كل جملة في سطر مستقل

بهذا الشكل مثلا ....... مرحبا بكم

في منتجع الأحلام

حيث الطبيعة الخلابة

وشكرا على مساعدتكم

#2

أخي يمكنك حل ذلك عن طريق استخدام إجراء

(Instr)

ولكن يجب أن تعتمد على حرف معين كـ ( . ) و ذلك لكي تعلم البرنامج بأن هذه الجملة تنتهي عند هذه النقطه.

كالتالي:

N=Instr(P1,Text1,".")

حيث N تكون مكان وجود تلك النقطة

P1 مكان بداية البحث فلو كتبت 1 سوف يبدأ البحث من الحرف الأول

Text1 المكان الذي سيتم البحث فيه

"." النص الذي تبحث عنه

بعد ذلك تقوم باقتطاع الجملة بناءا على تلك المعطيات

شكرا

#3

أخي العزيز

شكرا لتواصلك ولكن يبدو اني لم اوضح طلبي و على اي حال سأحاول مجددا

txt1.text="hi every body"&"my name is herby"

هذا الكود مكتوب في رز أمر ليظهر العبارتين السابقتين في صندوق نص وما ارغبه هو ان تظهر كل جملة منفردة في سطر في صندوق النص

وشكرا

#4

اخي العزيز اسف للتاخر عليك بالرد .

كا ما تحتاجه هو جملة VBCrlf بين الجمل .

الاستخدام :

Text1.Text = "Hello" & VBCrlf & "My Name Is Prof_1982" & VBCrlf & "Palestine - Gaza"

ولكن تحتاج لان يكون النص المراد الكتابه فيه يدعم تعدد الاسطر وذلك بجعل الخاصية MultiLine = True

تحياتي لك

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#5

تماماً كما ذكر لك الأخ الفاضل prof_1982

ويمكنك أيضاً استخدام الثابت VBNewLine

ani.gif
#6

يا اخوي في امر بسيط للانتقال للسطر التالي و هو vbNewLine

مثال

text1.Text = "مرحبا" & vbNewLine & "السلام عليكم"

للاستفسار راسلني على البريد

Mody_Alb@Hotmail.com

هذا الموضوع مغلق.

مواضيع مشابهة