majed-soft
للبرمجيات، وتصاميم مواقع الأنترنت
قائمة الأعظاء
الصفحات
مؤلفاتي
برامج خدميه
دليل المواقع
البرامج المتميزة
إتصل بنا
الصفحة الرئيسية
2011/03/03
كود إهتزاز الفورم
الكود البرمجي الذي يعمل على إهتزاز الفورم كما في برنامج الماسينجر
Public Class Form1 Dim x As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Interval = 3 Me.Timer1.Enabled = True x = 5 Me.TextBox1.AppendText("Buzz!!" & vbNewLine) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Left = Me.Left + x Me.Top = Me.Top + x x = -x Me.Timer1.Interval = Me.Timer1.Interval + 3 If Me.Timer1.Interval >= 99 Then Me.Timer1.Enabled = False End If End Sub End Class
ماجد سوفت للبرمجيات
majedsoft@hotmail.com
No comments:
Post a Comment
ضع تعليقك هنا وسيتم عرض التعليق خلال 24 ساعة :
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment
ضع تعليقك هنا وسيتم عرض التعليق خلال 24 ساعة :