هل بالإمكان عمل عرض تقديمي ديناميكي في الفيجوال بيسك

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

أريد عمل ما يلي:

- إظهار بعض التقارير المطبوعة، وتقارير الـ CHART كعرض تقديمي. يعني عرض هذه التقارير بأسلوب العروض التقديمية في الباور بوينت.

لتوضيح الفكرة أكثر:

* مثلاً:

- عرض الموظف المثالي لهذا الشهر: تقرير الإنجاز، تقرير الحضور والغياب، تقرير تقييم الإنجاز، صور من الإنجازات التي قام بعملها ... الخ.

- تظهر التقارير تباعاً على شكل عرض كامل الشاشة، لفترة معينة يعرض تقرير ثم الآخر وهكذا ثم صور الإنجاز ... مع مؤثرات شبيهة لتلك التي تصمم في الباور بوينت.

تحياتي للجميع ....

اخي العزيز ..

الفكرة اللي عندي والتي احب اخدمك بها هي جدا بسيطه ..

وهي كالتالي :

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

على سبيل المثال .. مايسمى بـ Fading وهي طريقة دخول الفورم وخروجه عن طريق التلاعب بشفافيته ..

ولكي تقوم بذلك ..

قم بالتالي ..

1- افتح مشروع جديد .

2- اضف للمشروع 3 Timer اي مؤقتات ..

3- المؤقت الاول والثالث لتكن خاصية التردد Interval = 1 .

4- المؤقت الثاني ليكن التردد له 4000 . اي اربع ثواني .

5- الخاصية Opacity الخاصة بالفورم اجعلها تساوي صفر

6- الكود التالي للمؤقت الاول .

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' دخول الفورم
If Me.Opacity < 100 Then
Me.Opacity += 0.01
Else
Timer1.Enabled = False
End If
End Sub

الكود التالي خاص بالمؤقت الثالث .. وهو الخاص بالخروج ..

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
' خروج الفورم
If Me.Opacity > 0 Then
Me.Opacity -= 0.01
Else
' الانتقال الى النافذة الثانية
Form3.Show()
Me.Hide()
Timer3.Enabled = False
End If
End Sub

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

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
' مؤقت يفيد في الانتقال الى التايمر الخاص بالخروج
Timer3.Enabled = True
Timer2.Enabled = False
Timer1.Enabled = False
End Sub

-------------------------------------------------

هذا تأثير ... معين ..

يمكن اضافة مؤثر بسيط .. اخر .. وهو جميل للخروج من الفورم ..

جربه ..

ضع الكود التالي اما في زر خروج او زر سميه الانتقال للتالي او في مؤقت يعمل بعد مرور زمن معين ..

Dim x As Long
For x = 0 To 249
Do Until Me.Height = 0
Me.Height -= 7
Exit Do
Loop
Next
Dim y As Long
For y = 0 To 249
Do Until Me.Width = 0
Me.Width -= 7
Exit Do
Loop
Next
' اكتب هنا هل تريد الانتقال الى فورم اخر او الخروج من البرنامج
Application.Exit()
Catch ex As Exception
Application.Exit()
Finally
Application.Exit()
End Try

Try

جرب هذه الاكواد ..

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

لكن يمكنك التعامل مع خاصيتين اخرتين بنفس الالية بالضبط وهي Me.Width و Me.Heght .. الطول والعرض ..

اي تقوم بزيادة الطول والعرض الخاص بالفورم ..

لكن يجب ان يبدأ الفورم بالطول والعرض يساوي صفر ..

جرب ماذكر اعلاه .. وان شاءلله تخدمك كمؤثرات عرض للنوافذ ..

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

تحياتي العطرة ..

هل بالإمكان عمل عرض تقديمي ديناميكي في الفيجوال بيسك

مواضيع مشابهة

عدد الزوار حالياً