استخدام With في الكود

  • طباعة
التفاصيل
الزيارات: 4706

بدلا من كتابة الكود التالي

كود: 

Text1.BackColor = vbRed


Text1.FontBold = True


Text1.Height = 100


Text1.Text = "Test"


Text1.Width = 1000


اكتب الكود التالي حيث انه يعتبر أسرع من السابق
كود: 

With Text1


.BackColor = vbRed


.FontBold = True


.Height = 100


.Text = "Test"


.Width = 1000


End With

اكتب الكود التالي حيث انه يعتبر أسرع من السابق

http://arabteam2000-forum.com/index.php

Share |