دستور with end With رو یکی برای ما توضیح بده

ممنون میشم درباره دستور With و End With توضیحی همراه مثال بدید

اگه يه كم خودت كنجكاوي به خرج ميدادي ميفهميدي.
توسط اين دستور ميتوني روي يه كنترل تمركز كني و مشخصات اون رو مقدار دهي كني :

کد:

with label1 .caption="majid" backcolor=vbred top=100 left = 20 end with

سلام
در واقع و در باطن دستور with یک متغییر محلی را به عبارتی تخصیص میدهد و اجازه میدهد بدون محاصبات مجدد کارها را انجام دهیم و در نهایت باعث کدنویسی کمتر هم خواهد شد.

کد:

With AAA.BBB.CCC.DDD .X = ... .Y = ... IF (.X = 123) Then ... variant = .W End With

که دستور فوق معادل دستوری زیر خواهد بود:

کد:

Dim temp As TypeName temp = AAA.BBB.CCC.DDD temp.X = ... temp.Y = ... IF (temp.X = 123) Then ... variant = temp.W

این دستور ضمن خلاصه نویسی (همانکه کاربر 3Dmajid هم اشاره کردند.) ، میتواند در سرعت اجرا هم موثر باشد.

چون در همین مثال فوق هر کدام از AAA و BBB و CCC و DDD و... خودشان میتوانند یک متد و تابع و یا مشخصه باشند که محاسبات و عملیاتهایی را انجام دهند و سپس مقداری را باز گردانند، در این صورت مشخص خواهد بود که دستور زیر بسیار کندتر اجرا میشود و باید همه این محاسبات را هربار تکرار کند.

کد:

AAA.BBB.CCC.DDD.X = ... AAA.BBB.CCC.DDD.Y = ... IF (AAA.BBB.CCC.DDD.X = 123) Then ... variant = AAA.BBB.CCC.DDD.W

موفق باشید.

ممنون مشکلم حل شد