ساخت كنترلي با حداقل 100 Object بوسيله حلقه for

[parselearn]

با سلام
من دارم كنترلي شبيه به كنترل mbmap ساخت آقاي mb925 درست مي كنم

اما مشكلم اينجاست، وقتي كه مي خوام مثلا 500 تا خانه درست كنم با حلقه
برنامه تا موقعي كه شي ها درست بشن قفل مي كنه

آيا روشي هست كه بشه اين پروسه رو سريعتر كرد



For i = 1 To 500
Load PMap(i)
PMap(i).Left = PMap(i - 1).Left + PMap(i - 1).Width + 30
PMap(i).Top = PMap(i - 1).Top
End If



روش سريعتري وجود داره؟

[xxxxx_xxxxx]

سلام.
توي حلقه بنويسيد: DoEvents
اين كار باعث نميشه كه برنامه سريعتر عمل كنه، و بلكه شايد كندتر هم بشه ولي در زمان اجراي دستورات درون حلقه برنامه قفل نمي كنه چون cpu آزاده كه به ساير وفقه ها هم سوئيچ كنه پس برنامه قفل نمي كنه.
راستي، Next i بعد از End if هست ديگه. درسته؟
موفق باشيد

[parselearn]

ممنونم
ولي سرعت واقعا كمه

در كنترلي كه mbt925 درست كردن
هنگامي كه مثلا 1000 تا خانه تعيين ميشه كمتر از چند صدم ثانيه نمايش داده ميشه

آقاي mbt925 اگه ممكنه در مورد روش بوجود آوردن كنترلها توضيح بدهيد
با تشكر

[vbhamed]

سلام

من فكر مي كنم بهتره يك PictureBox بزاريد، خاصيت AutoRedraw اون رو True كنيد
و به جاي بارگذاري Object ها، از دستوران Line و Circle و ... براي كشيدن مستطيل هاي مدل دار و رنگي و دايره و ... استفاده كنيد

[Mbt925]

در این کنترل از توابع API مختص رسم اشکال استفاده شده.
در ضمن شیب رنگ در هر سلول وجود داره.

از بهینه سازی های بسیار زیاد و جزئی در این کنترل استفاده شده تا مشکل سایر کنترل هاور نداشته باشه.