نص في أداة العنوان يكبر ويصغر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default نص في أداة العنوان يكبر ويصغر

مُساهمة من طرف Admin في الأحد يونيو 24, 2007 10:47 am

Private Sub Form_Load()
Label1.Caption = "السلام عليكم"
Label1.Font = "Tohama" 'اسم الخط
Label1.AutoSize = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Static C
C = C + 1
Label1.FontSize = Abs(C) + 8 'حجم الخط
'السطران التاليان لتعديل موقع النص في المنتصف
Label1.Top = (Height - Label1.Height) / 2
Label1.Left = (Width - Label1.Width) / 2
If C = 50 Then C = -50
End Sub


عدل سابقا من قبل في الخميس أغسطس 16, 2007 10:39 am عدل 1 مرات

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

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

default رد: نص في أداة العنوان يكبر ويصغر

مُساهمة من طرف سما في الأربعاء أغسطس 15, 2007 3:52 pm

والله مشكور صراحة كل اكوادك روعة

سما
عضو نشط
عضو نشط

عدد الرسائل : 12
تاريخ التسجيل : 15/08/2007

معاينة صفحة البيانات الشخصي للعضو

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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