النص المتحرك

[الشربيني123]

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

النص المتحرك  ولوسمحتم واجهة للفروم  ببسورد  admin / 123 

ولكم كل الشكر والعرفان 

AB.rar

[Shivan Rekany]

3 ساعات مضت, الشربيني123 said:

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

النص المتحرك  ولوسمحتم واجهة للفروم  ببسورد  admin / 123 

ولكم كل الشكر والعرفان 

AB.rar

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

وغيرت في حجم النص

اتفضل قاعدة بياناتك

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

هذه هو الاكواد المستخدمة

Public txtScrollStatus As String ' needed for

Private Sub Form_Load()
' شريط متحرك باعلى النموذج
Me.Caption = "الإدارة المركزية لمنطقة البحر الأحمر.. ترحب بفضيلتكم"

' شريط متحرك بالنموذج
Me.lblscrollinglabel.Caption = (b)

' شريط متحرك بأسفل النموذج
txtScrollStatus = "التعليم الإبتدائي.. يرحب بفضيلتكم" & Space(30)
End Sub

Private Sub Form_Timer()
' تنتنج النص المتحرك في شريط عنوان النموذج
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' تنتنج النص المتحرك في مربع التسمية على النموذج
Me.lblscrollinglabel.Caption = Mid(Me.lblscrollinglabel.Caption, 2, _
(Len(Me.lblscrollinglabel.Caption) - 1)) & Left(Me.lblscrollinglabel.Caption, 1)

' تنتنج النص المتحرك في شريط الحالة للأكسس
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

If b.FontSize = 30 Then
        b.FontSize = 34
            b.ForeColor = vbRed
    ElseIf b.FontSize = 34 Then
        b.FontSize = 38
            b.ForeColor = vbGreen
    ElseIf b.FontSize = 38 Then
        b.FontSize = 30
            b.ForeColor = vbBlue
End If
End Sub

 

AB.rar

[الشربيني123]

الله يبارك فيك وفي كل القائمين على هذا الموقع ..ربنا يجعله في ميزان حسناتك ..البرنامج هذا لله تعالي يمكن الأزهر يستفيد منه ...

اشكرك من قلبي  ...ممكن لو في حاجة معينة ابعتها مرة أخرى؟؟

[Shivan Rekany]

4 ساعات مضت, الشربيني123 said:

ممكن لو في حاجة معينة ابعتها مرة أخرى؟؟

نعم وبالتأكيد لكن هناك قوانين في المنتدى
ومنها

قواعد المشاركة فى الموقع
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

وملاحظة اخيرة 
اذا تم الوصول الى النتيجة اعمل علامة صح امام الجواب الافضل لكي الكل يعرفون ان هذه هو الجواب الافضل بين كل الردود

وافتح موضوع جديد لكل سؤال جديد
ونحن سنكون في خدمتك ان شاء الله بقدر مستطاعنا
تقبل تحياتي

تم تعديل مايو 24, 2017 بواسطه Shivan Rekany

[ابو جودي]

في 5/24/2017 at 10:15, Shivan Rekany said:

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

وغيرت في حجم النص

اتفضل قاعدة بياناتك

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

هذه هو الاكواد المستخدمة

Public txtScrollStatus As String ' needed for

Private Sub Form_Load()
' شريط متحرك باعلى النموذج
Me.Caption = "الإدارة المركزية لمنطقة البحر الأحمر.. ترحب بفضيلتكم"

' شريط متحرك بالنموذج
Me.lblscrollinglabel.Caption = (b)

' شريط متحرك بأسفل النموذج
txtScrollStatus = "التعليم الإبتدائي.. يرحب بفضيلتكم" & Space(30)
End Sub

Private Sub Form_Timer()
' تنتنج النص المتحرك في شريط عنوان النموذج
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' تنتنج النص المتحرك في مربع التسمية على النموذج
Me.lblscrollinglabel.Caption = Mid(Me.lblscrollinglabel.Caption, 2, _
(Len(Me.lblscrollinglabel.Caption) - 1)) & Left(Me.lblscrollinglabel.Caption, 1)

' تنتنج النص المتحرك في شريط الحالة للأكسس
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

If b.FontSize = 30 Then
        b.FontSize = 34
            b.ForeColor = vbRed
    ElseIf b.FontSize = 34 Then
        b.FontSize = 38
            b.ForeColor = vbGreen
    ElseIf b.FontSize = 38 Then
        b.FontSize = 30
            b.ForeColor = vbBlue
End If
End Sub

 

AB.rar

راااااااااااااااائع جدا تسلم ايدك استاذ @Shivan Rekany

[Shivan Rekany]

28 دقائق مضت, ابا جودى said:

راااااااااااااااائع جدا تسلم ايدك استاذ @Shivan Rekany

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

[الشربيني123]

ربنا يعزك ويبارك فيك 

عندي مشكلة في تحرير 

المسلسل لا يعمل  والترتيب في التنقل غير منظم (فهرس علامة الجدولة) 

انا كتبت لك من 3 ايام ( ربنا يعزك ويبارك فيك عندي مشكلة في تحرير المسلسل لا يعمل  والترتيب في التنقل غير منظم (فهرس علامة الجدولة) 

لم ألاحظ انني لم ارسلها لك اعتقدت اني ضغطت على زر (أضف رد)

 

 

[Shivan Rekany]

3 ساعات مضت, الشربيني123 said:

المسلسل لا يعمل  والترتيب في التنقل غير منظم (فهرس علامة الجدولة) 

اهلا بك من جديد
افتح موضوع جديد لهذه السؤال

لكي لا يخرق قوانين المنتدى