جعل النص في أداة الـ Label يظهر بشكل رأسي

[ياسر خليل أبو البراء]

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

إخواني وأحبابي في الله

أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر)

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

Private Sub UserForm_Initialize()
    'تعريف المتغير من النوع النصي
    Dim Word As String
    'تعريف متغير من النوع عدد صحيح
    Dim I As Integer
    
    '[Label] تعيين عنوان لأداة الـ
    Label1.Caption = "YasserKhalil"
    
    'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة
    For I = 1 To Len(Label1)
    
        'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى
        'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة
        'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة
        'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة
        '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي
        Word = Word & Mid(Label1, I, 1) & Chr(13)
        
    'الانتقال للحرف التالي
    Next I
    
    'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى
    Label1 = Word
End Sub

يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم

وإليكم الملف المرفق التالي فيه تطبيق للكود

 

حمل الملف من هنا

 

ولا تنسونا بصالح الدعاء

تقبلوا وافر تقديري واحترامي

[سليم حاصبيا]

اكثر من رائع

و لكن كيف التعامل معه باللغة العربية

اعنقد انه يجب استعمال Text Direction لهذا الغرض

[ياسر خليل أبو البراء]

الأروع هو مرورك العطر بالموضوع أخي الغالي سليم

الملف يمكن التعامل معه باللغة العربية بدون مشاكل .. قم باستبدال كلمة YasserKhalil بالاسم باللغة العربية "سليم حاصبيا" وشوف النتيجة بنفسك

تقبل تحياتي

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير ياسر خليل أبو البراء على الهديّة الرّائعة

جزاك الله خيرًا وزادها بميزان حسناتك

 

[ياسر العربى]

الرخم وصل

عمل جميل بس احط التاتش الترفيهي

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

من غير كود   

 

Label Vertical Text YasserKhalil.rar

[ياسر خليل أبو البراء]

أخي الحبيب عبد العزيز

جزيت خيراً على مرورك العطر بالموضوع وبارك الله فيك على كلماتك الطيبة والمشجعة

 

أخي الغالي ياسر العربي

جزيت خيراً على مرورك الرخم والعطر بالموضوع .. وبسم الله ما شاء الله بدون أكواد (حسستني إنك اخترعت الذرة) .

رخامة برخامة هقول الناس إنت عملت ايه عشان يظهر بالشكل دا بدون كود ..كتبت حرف وبعدين Shift + Enter وبعدين حرف وبعديها Shift + Enter و بعدين حرف ...إلخ إلخ

بس بصراحة عجبني التاتش .. هل التاتش له علاقة بالماتش اللي اتفرجت عليه؟

تقبل وافر تقديري واحترامي

 

[أبوبسمله]

تاكش رائع جزاكم الله خيرا

ضحكتونى قبل ما انا 

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

 

[ياسر العربى]

11 دقائق مضت, ياسر خليل أبو البراء said:

هل التاتش له علاقة بالماتش اللي اتفرجت عليه؟

اسكت بقي متفكرنيش 

ابو صلاح كان عامل شوية شغل عاليين  وجاب راموس ومارسيلو الارض بس النصيب بقي

[سليم حاصبيا]

نفس الشيء لكن بالمعادلة التالية:

=IF(ROWS($A$1:A1)>LEN($A$1),"",MID($A$1,ROWS($A$1:A1),1))

بالنسبة للكود ما رأيك اخي ياسر ان نجعل المستخدم يختار الكلمة بذاته من خلال هذا السطر مثلاً

Label1.Caption = cells(1,1).value

 

[ياسر خليل أبو البراء]

أخي الكريم سليم

لم أفهم دور المعادلة في الموضوع ..

بالنسبة لسطر الكود إضافة جيدة حتى يكون هناك مرونة ..عموماً اللعب بالأكواد متاح للجميع ، يمكنك الإضافة والتعديل والابتكار والإبداع (كل يدلي بدلوه .. ما عدا ياسر العربي عشان دلوه فاضي )

[أبوبسمله]

2 ساعات مضت, سليم حاصبيا said:

نفس الشيء لكن بالمعادلة التالية:

=IF(ROWS($A$1:A1)>LEN($A$1),"",MID($A$1,ROWS($A$1:A1),1))

بالنسبة للكود ما رأيك اخي ياسر ان نجعل المستخدم يختار الكلمة بذاته من خلال هذا السطر مثلاً

Label1.Caption = cells(1,1).value

 

اخى سليم

ممكن مثال للتوضيح لكى نفهم المعادله 

وزياده من كرمك اضافة تعديل الكود وشرح ما تم تعديله لكى افهم واعرف كيف يتم التعديل ونحاول بعد كده 

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

[سليم حاصبيا]

نفضل اخي هذا مثال مرفق

اما بالنسبة للكود  يصبح هكذا (يجب ةضغ الكلمة المطلوبة في الخلية A1)

Private Sub UserForm_Initialize()
    'تعريف المتغير من النوع النصي
    Dim Word As String
    'تعريف متغير من النوع عدد صحيح
    Dim I As Integer
    
    '[Label] تعيين عنوان لأداة الـ
    Label1.Caption = Cells(1, 1).Value
    
    
    
    'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة
    For I = 1 To Len(Label1)
    
        'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى
        'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة
        'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة
        'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة
        '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي
        Word = Word & Mid(Label1, I, 1) & Chr(13)
        
    'الانتقال للحرف التالي
    Next I
    
    'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى
    Label1 = Word
End Sub

 

 

Book1.rar

تم تعديل فبراير 18, 2016 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب سليم على الإضافة الرائعة

تقبل فائق تقديري واحترامي

 

[أبوبسمله]

جزاك الله خيرا اخى سليم

بالتوفيق اخوانى الافاضل بارككم الله

 

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الحبيب أحمد ..

مشكور على دعائك الطيب ومتابعتك المستمرة للموضوعات المختلفة

[محمد علي الطيب]

الاخ والاستاذ ياسر خليل أبو البراء

تحية طيبة

عمل رائع من استاذ

[ياسر خليل أبو البراء]

مشكور على مرورك الطيب والعطر أخي الطيب محمد علي الطيب

[arsalanamin2]

في 2/18/2016 at 13:29, سليم حاصبيا said:

نفضل اخي هذا مثال مرفق

اما بالنسبة للكود  يصبح هكذا (يجب ةضغ الكلمة المطلوبة في الخلية A1)

Private Sub UserForm_Initialize()
    'تعريف المتغير من النوع النصي
    Dim Word As String
    'تعريف متغير من النوع عدد صحيح
    Dim I As Integer
    
    '[Label] تعيين عنوان لأداة الـ
    Label1.Caption = Cells(1, 1).Value
    
    
    
    'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة
    For I = 1 To Len(Label1)
    
        'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى
        'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة
        'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة
        'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة
        '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي
        Word = Word & Mid(Label1, I, 1) & Chr(13)
        
    'الانتقال للحرف التالي
    Next I
    
    'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى
    Label1 = Word
End Sub

 

 

Book1.rar

 

[أ / محمد صالح]

ما شاء الله

ربنا يبارك فيكم جميعا أحبتي في الله

رغم إن مشاركتي متأخرة لكن أبا البراء يعرف مكانته في قلبي

هدية رائعة وخفيفة الدم مثل مبتكرها

 والآن هذا دور دلوي

أحول الحوار لمسابقة لعكس اتجاه الكتابة من أسفل إلى أعلى

ورونا ابداعاتكم

[سليم حاصبيا]

49 دقائق مضت, أ / محمد صالح said:

ما شاء الله

ربنا يبارك فيكم جميعا أحبتي في الله

رغم إن مشاركتي متأخرة لكن أبا البراء يعرف مكانته في قلبي

هدية رائعة وخفيفة الدم مثل مبتكرها

 والآن هذا دور دلوي

أحول الحوار لمسابقة لعكس اتجاه الكتابة من أسفل إلى أعلى

ورونا ابداعاتكم

استاذ محمد

لك ما تريد لكن بالمعادلات في الصفحة وليس اليوزر فورم

بالنسبة لليوزر فورم يكفي ان تعكس الحلقة التكرايرة لتصبح هكذا

For I = Len(Label1) To 1 Step -1

 

reverse text.rar