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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil شيت كنترول ابتدائى 2019 ـ برنامج كنوز اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





بعض المؤثرات النصية على Label داخل اليوزر فورم

السلام عليكم ورحمة الله وبركاته طلب بعض الاخوة طريقة لعمل مؤثرات على النص داخل ليبل او تكست بوكس قمت بعمل مثال يجمع لبع ..



01-10-2017 11:28 صباحا
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 829
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 482
قوة السمعة : 5985
الاعجاب : 1578
موقعي : زيارة موقعي
 Online 

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

طلب بعض الاخوة طريقة لعمل مؤثرات على النص داخل ليبل او تكست بوكس
قمت بعمل مثال يجمع لبعض المؤثرات سريعا وان كان هناك وقت سأضيف مؤثرات اخرى ان شاء الله
وياريت الاخوة يشاركونا الموضوع
MjkzNzUzMQ6464Untitled
اليكم الكود المستخدم في اليوزر فورم
Private Sub UserForm_Activate()
    Dim str As String, a1, a2, L
    str = Label1.Caption
    Do
        t = Timer
        Do While Timer < t + 0.2
            DoEvents
        Loop
        '+++++++++++++++++++++++++++++++
        If Label3.Visible = False Then
            Label3.Visible = True
        Else
            Label3.Visible = False
        End If
        '++++++++++++++++++++++++++++++
        If Label4.ForeColor = &HC000C0 Then
            Label4.ForeColor = &HFF0000
        Else
            Label4.ForeColor = &HC000C0
        End If
        '++++++++++++++++++++++++++++++
        DoEvents
        L = Len(str) + 1
        If a1 < L Then
            Label1.Caption = Mid(str, 1, a1)
            a1 = a1 + 1
        Else
            If a2 < L Then
                Label2.Caption = Mid(str, 1, a2)
                a2 = a2 + 1
            Else
                a2 = 0
                a1 = 0
            End If
        End If
    Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

الملف مرفق
لرؤية الروابط والمرفقات عليك الرد على الموضوع​
142




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: الصقر، زياد عبد الجليل، محمد أبو عبدو، ashrafsharaf، YasserKhalil، محمد الدسوقى، قتيبة الحسني،


توقيع :Yasser Elaraby
663013020




01-10-2017 11:32 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1442
الجنس : ذكر
الدعوات : 12
يتابعهم : 0
يتابعونه : 380
قوة السمعة : 11844
الاعجاب : 2918
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم

رائع يا عربى 123



تقبل تحياتى111



أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



01-10-2017 11:42 صباحا
مشاهدة مشاركة منفردة [2]
زياد عبد الجليل
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 133
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 6
يتابعونه : 4
قوة السمعة : 377
الاعجاب : 68
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
بارك الله فيك استاذ ياسر هذا ما كنت ابحث عنه منذ فترة شكرا جزيلا استاذي

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




01-10-2017 11:51 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 829
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 482
قوة السمعة : 5985
الاعجاب : 1578
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
تسلم حبيبي الغالي حسام انت الاروع

وجزاكم الله خيرا اخي زياد على مروركم العطر والحمد لله  انك توصلت لطلبك
142

أثارت هذه المشاركة إعجاب: زياد عبد الجليل، الصقر،


توقيع :Yasser Elaraby
663013020



01-10-2017 04:51 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4826
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13885
الاعجاب : 5158
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
جزاك الله خيراً يا عربي يا ملك الحركات والمؤثرات .. شغل الفوتوشوب له جانب مهم في شغلك
وفقك الله لما يحبه ويرضاه ووسع الله عليك رزقك ورزقك راحة البال

أثارت هذه المشاركة إعجاب: Yasser Elaraby،




01-10-2017 07:49 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 432
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 47
يتابعهم : 8
يتابعونه : 307
قوة السمعة : 4159
الاعجاب : 915
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
أخى الحبيب ياسر العربى
بارك الله فيك
ده الشغل المظبوط كله جديد × جديد
زادك الله علما
تقبل تحياتى

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،




02-10-2017 08:06 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 829
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 482
قوة السمعة : 5985
الاعجاب : 1578
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
ربنا يبارك فيك حبيبي ابو البراء
111
أستاذ محمد الدسوقى جزاكم الله خيرا وجودكم معنا أساس التجديد 28
111

أثارت هذه المشاركة إعجاب: محمد الدسوقى،


توقيع :Yasser Elaraby
663013020



02-10-2017 02:54 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 432
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 47
يتابعهم : 8
يتابعونه : 307
قوة السمعة : 4159
الاعجاب : 915
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
أخى الحبيب ياسر العربى
ملحوظة على هذه المؤثرات ، رجاء الإفادة

إذا أردنا الانتقال من خلال الفورم   UserForm1  الذى يحتوى على هذه المؤثرات إلى فورم آخر   UserForm2    باستخدام    CommandButton
لا ينتقل  ـــ >>>> لوجود الكود التالى

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

وعند ايقاف عمل هذه التعليمة السابقة يتم الانتقال من  UserForm1   إلى  UserForm2 وشغالة 100%
ولكن بتظهر مشكلة جديدة وهى تجميد المصنف بمعنى المصنف لا يستجيب لأى إجراء عليه كالكتابة أو المسح أو ... أو حتى فتح محرر VBA 
نظرا لوجود الحلقة التكرارية باستخدام (   Do , Loop )

فالحل إذن ؟؟؟؟؟؟؟؟؟؟؟؟؟
تقبل تحياتى
 





02-10-2017 03:23 مساء
مشاهدة مشاركة منفردة [8]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 829
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 482
قوة السمعة : 5985
الاعجاب : 1578
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
اتفضل اخي الكريم محمد الدسوقي امسح الكود واستبدله بالكود دا
Dim Cancl As Boolean
Private Sub CommandButton1_Click()
    Cancel = True
    Unload Me
    UserForm2.Show
End Sub
Private Sub UserForm_Activate()
    Dim str As String, a1, a2, L
    str = Label1.Caption
    Cancl = False
    Do
        If Cancl = True Then Exit Sub
        t = Timer
        Do While Timer < t + 0.2
            DoEvents
        Loop
        '+++++++++++++++++++++++++++++++
        If Label3.Visible = False Then
            Label3.Visible = True
        Else
            Label3.Visible = False
        End If
        '++++++++++++++++++++++++++++++
        If Label4.ForeColor = &HC000C0 Then
            Label4.ForeColor = &HFF0000
        Else
            Label4.ForeColor = &HC000C0
        End If
        '++++++++++++++++++++++++++++++
        DoEvents
        L = Len(str) + 1
        If a1 < L Then
            Label1.Caption = Mid(str, 1, a1)
            a1 = a1 + 1
        Else
            If a2 < L Then
                Label2.Caption = Mid(str, 1, a2)
                a2 = a2 + 1
            Else
                a2 = 0
                a1 = 0
            End If
        End If
    Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancl = True
End Sub


قمت بتعيين متغير من نوع Boolean لايقاف اللوب عند الخروج من علامة اكس او من زر ذهاب الى فورم اخر
لرؤية الروابط والمرفقات عليك الرد على الموضوع




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :Yasser Elaraby
663013020



02-10-2017 05:02 مساء
مشاهدة مشاركة منفردة [9]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 432
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 47
يتابعهم : 8
يتابعونه : 307
قوة السمعة : 4159
الاعجاب : 915
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
بارك الله فيك أخى الكريم / ياسر العربى
على سرعة الرد والاستجابة
جارى التحميل والتجربة
تقبل تحياتى





02-10-2017 11:00 مساء
مشاهدة مشاركة منفردة [10]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 432
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 47
يتابعهم : 8
يتابعونه : 307
قوة السمعة : 4159
الاعجاب : 915
 offline 
look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
أخى  وأستاذى الكريم / أبو أسيل
تم تجربة هذه المؤثرات على الملف الخاص بعد التعديل على الكود
وشغال 100 %
زادكم الله علما

wub wub wub wub
تقبل تحياتى
 

أثارت هذه المشاركة إعجاب: YasserKhalil، Yasser Elaraby،






الكلمات الدلالية
المؤثرات ، النصية ، Label ، داخل ، اليوزر ، فورم ،


 







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



الساعة الآن 12:47 مساء

أعلن هنا
أعلن هنا
أعلن هنا