أكاديمية الصقر للتدريب

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


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



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





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

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



01-10-2017 11:28 صباحا
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 

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

طلب بعض الاخوة طريقة لعمل مؤثرات على النص داخل ليبل او تكست بوكس
قمت بعمل مثال يجمع لبعض المؤثرات سريعا وان كان هناك وقت سأضيف مؤثرات اخرى ان شاء الله
وياريت الاخوة يشاركونا الموضوع
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
 
 
  Text Effects.rar   تحميل rar مرات التحميل :(93)
الحجم :(18.746) KB




توقيع :Yasser Elaraby
663013020





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

رائع يا عربى 123



تقبل تحياتى111






توقيع :الصقر

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




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






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

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




توقيع :Yasser Elaraby
663013020




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






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






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



توقيع :Yasser Elaraby
663013020




02-10-2017 02:54 مساء
مشاهدة مشاركة منفردة [7]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 528
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 479
قوة السمعة : 6379
الاعجاب : 21
 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
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1019
الجنس : ذكر
الدعوات : 12
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 562
قوة السمعة : 7228
الاعجاب : 45
موقعي : زيارة موقعي
 offline 
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 لايقاف اللوب عند الخروج من علامة اكس او من زر ذهاب الى فورم اخر
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Text Effects.rar   تحميل rar مرات التحميل :(14)
الحجم :(20.177) KB




توقيع :Yasser Elaraby
663013020




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






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

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







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


 







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



الساعة الآن 10:01 مساء

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