المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : درس , اضافة تأثير جميل الى الفورم VB.Net


eshrag.net
07-26-2010, 03:22 PM
قم باضافة تايمر الى الفورم واجعل المدة الزمنية = 100

ثم اضف اليه زر
وأضف هذا الكود

كود PHP:
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Width += 10
Me.Height += 10
If Me.Width = 400 AndAlso Me.Height = 400 Then
Timer1.Stop()
End If
End Sub
End Class




ماذا يستحدث ؟
عند الضغط على الزر سيبدأ عمل التايمر , ثم؟

سيقوم التايمر بالآتي

زيادة طول وعرض الفورم بمقدار 10 كل جزء من ثانية , واذا ما وصل كلاهما الى 400 فان التايمر سيتوقف

تابع هذا الفيديو لتعرف
http://www.mediafire.com/?pwo1m1y0ob1vtlq