السلام عليكم ورحمة الله وبركاته
سؤالي هو عن ال font اللي في label تكبير ال font وتصغيره عن طريق timer كيف؟
هذا كود التكبير أبغي له تكمله حق التصغير يعني مثل يروح ويجي وسامحونه على السؤال بالاسلوب العامي وشكرا.
Private Sub Timer1_Timer()
Static i
i = i + 10
Label1.FontSize = i
If Label1.FontSize > 215 Then
Timer1.Enabled = fales
End If
End Sub
هذا الكود يكبر ويصغر
Private Sub Timer1_Timer() Static i nn: i = i + 10 Label1.FontSize = i If Label1.FontSize > 215 Then i=i-10 label1.fontsize=i if label1.fontsize<15 then goto NN end if Timer1.Enabled = fales End If End Sub هذا تعديل سريع وغير مجرب أتمنى أن يفي بالغرض
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
شكرا ل omani على الرد
مشكور وجزاك الله خير يا ال omani جربت الكود يكبر ما يصغر
هذا الموضوع مغلق.