القوانين العامة لمنتديات الخوارزمى ... مشاهدة الإدارة ونقص عدد المشرفين ... للتقدم بطلب للإشراف ... مسابقة ترشيح المشرف العام

خدمات مركز الخوارزمى

خريطة الموقع

معرض الصور

مركز تحميل الصور و الملفات

القرآن الكريـــم

تفسير القرآن الكريــم

المرجع الدينى الشامل

مكتبة البرامج

مكتبة الدروس


« آخـــر الــمــواضــيــع »
         :: ينفع اسافر عن طريق ابن خالي (آخر رد :صانع القادة)       :: ما تشوف يا خوارزمى اللى بيحصل ده (آخر رد :domokh)       :: امـــي لــم نبـــن اليــوم قصـــرا فـي الجنــه!!! (آخر رد :حسناء)       :: العصائر المثلجة مضرة بالأسنان (آخر رد :حسناء)       :: الحمية النباتية تساعد مرضى الروماتيزم (آخر رد :حسناء)       :: مشروبات للصحة واللياقة (آخر رد :حسناء)       :: إبحث عن أي مرض في هذا الباحث الصحي‏ (آخر رد :Dr*.-.*GoHaRy)       :: سيارة Corvette Z06‏ (آخر رد :domokh)       :: هذي قصور داخل سفية ...روعه (آخر رد :حسناء)       :: عطورات (آخر رد :حسناء)       :: شجرة الصفصآف والإسبرين (آخر رد :تبارك)       :: معلومات عامه (آخر رد :domokh)       :: رقم قياسي لحواء (آخر رد :تبارك)       :: ماأغناه رغم فقره !! .. سبحان الله (آخر رد :حسناء)       :: معجزة هيلين كيلر (آخر رد :domokh)       :: كبت الدموع يؤدي إلى إصابتك بالصداع والأمراض لماذا؟‏ (آخر رد :domokh)       :: العناية بالظهر (آخر رد :domokh)       :: اشياء عجب والله (آخر رد :domokh)       :: هل ترمى اكياس الشاى بعد استعمالها ؟؟؟!!! (آخر رد :domokh)       :: اسماء الجن (آخر رد :تبارك)      



العودة   :: مركز الخوارزمى للترجمة وخدمات الإنترنت العودة ركن الكمبيوتر و الإنترنت العودة قسم البرمجة وقواعد البيانات
قسم البرمجة وقواعد البيانات ASP.net SQL, ADO.net, C#, PHP , CGI , MySQL , JavaScript , Html , Delphi , Ajax ...



تحريك الكلام داخل الليبل

قسم البرمجة وقواعد البيانات


 
   
أدوات الموضوع انواع عرض الموضوع
قديم 29-10-2005, 05:32 PM رقم المشاركة : 1
معلومات العضو
عضو
نحن نتطلع الى التميز
إحصائية العضو








آخر مواضيعي

FemTo متواجد حالياً


افتراضي تحريك الكلام داخل الليبل

تحريك الكلام داخل الليبل.........وهنا محتاجين 2 تايمر وليبل


Dim Llabel As Integer


Private Sub Form_Load()
Form1.ScaleMode = 3
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Llabel = Llabel + 10
Label1.Left = Llabel
If Llabel > 300 Then
Timer1.Interval = 0
Timer2.Interval = 100
End If
End Sub

Private Sub Timer2_Timer()
Llabel = Llabel - 10
Label1.Left = Llabel
If Llabel < 0 Then
Timer1.Interval = 100
Timer2.Interval = 0
End If
End Sub







رد مع اقتباس