اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

نجوم المشاركات

Popular Content

Showing content with the highest reputation on 03 أكت, 2011 in all areas

  1. وعليكم السلام هذا الكود يفي بالغرض 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
×
×
  • اضف...

Important Information