logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





01-10-2017 11:28 صباحاً
السلام عليكم ورحمة الله وبركاته

طلب بعض الاخوة طريقة لعمل مؤثرات على النص داخل ليبل او تكست بوكس
قمت بعمل مثال يجمع لبعض المؤثرات سريعا وان كان هناك وقت سأضيف مؤثرات اخرى ان شاء الله
وياريت الاخوة يشاركونا الموضوع
MjkzNzUzMQ6464Untitled
اليكم الكود المستخدم في اليوزر فورم
CODE
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


الملف مرفق
attachText Effects.rar
142
 
 
  Text Effects.rar   تحميل rar مرات التحميل :(163)
الحجم :(18.746) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، نصر الإيمان، مالك ماريه، abouelhassan، hassona229،


توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  01-10-2017 11:32 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

رائع يا عربى 123


تقبل تحياتى111




توقيع :الصقر

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


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




look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  01-10-2017 11:51 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
تسلم حبيبي الغالي حسام انت الاروع

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



توقيع :Yasser Elaraby
663013020

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




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




look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  02-10-2017 08:06 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
ربنا يبارك فيك حبيبي ابو البراء
111
أستاذ محمد الدسوقى جزاكم الله خيرا وجودكم معنا أساس التجديد 28
111



توقيع :Yasser Elaraby
663013020

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

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

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

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

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




look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  02-10-2017 03:23 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
اتفضل اخي الكريم محمد الدسوقي امسح الكود واستبدله بالكود دا
CODE
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 لايقاف اللوب عند الخروج من علامة اكس او من زر ذهاب الى فورم اخر
attachText Effects.rar
142
 
 
  Text Effects.rar   تحميل rar مرات التحميل :(27)
الحجم :(20.177) KB


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


توقيع :Yasser Elaraby
663013020

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




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

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




look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  20-02-2020 01:49 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 11-02-2020
رقم العضوية : 18031
المشاركات : 13
الجنس :
تاريخ الميلاد : 14-2-1990
قوة السمعة : 20
الاعجاب : 0
شكرا لك جزاك الله خيرا

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



look/images/icons/i1.gif بعض المؤثرات النصية على Label داخل اليوزر فورم
  20-02-2020 06:00 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
تسلم يا عربي .. أعمالك نبراس لكل متعلم

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



اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >





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









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

الساعة الآن 04:56 PM