نجوم المشاركات
Popular Content
Showing content with the highest reputation on 03 أكت, 2011 in مشاركات
-
وعليكم السلام هذا الكود يفي بالغرض Private Sub Command1_Click() If Len(Text1) < 10 Then Me.Text1.FontSize = 10 End If If Len(Text1) > 10 Then Me.Text1.FontSize = 8 End If If Len(Text1) > 15 Then Me.Text1.FontSize = 7 End If End Sub على ان الخط الافتراضي = 10 عدل في عدد الاحرف حسب حاجتك1 point