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

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

كود:


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 |

معلومات إضافية