اربد
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

اربد

منتدى معلومات عامة
 
صفحة الاعلاناتالمنشوراتالرئيسيةأحدث الصورالتسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر

 

  اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
يوسف علاوي

يوسف علاوي



 اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Empty
مُساهمةموضوع: اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك    اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Icon-new-badge12/10/2011, 17:29

شاهد الكود

Private Sub Form_Load()
Me.Label1.Top = 0
End Sub

Private Sub Timer1_Timer()
a = Me.Height
b = 200
If Me.Label1.Top < a Then 'Me.Height Then
Me.Label1.Top = Me.Label1.Top + b
Exit Sub
End If
For m = 1 To (Int(a / b) + 1)
Me.Label1.Top = Me.Label1.Top - 200
For x = 1 To 1000000
Next
Next
End Sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
theredrose

theredrose



 اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Empty
مُساهمةموضوع: رد: اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك    اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Icon-new-badge16/10/2011, 01:07

ابداع يا يوسف
الرجوع الى أعلى الصفحة اذهب الى الأسفل
يوسف علاوي

يوسف علاوي



 اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Empty
مُساهمةموضوع: رد: اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك    اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك Icon-new-badge16/10/2011, 01:10

من بعدك يا وعد
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
اكواد فيجوال بيزك Visual Basic – كود تحريك نص بطريقة مسلية للفجوال بيسك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
اربد :: تكنولوجيا :: كمبيوتر و برامج-
انتقل الى: