نامگذاری هر pset

[knight-rak]

سلام
می خواستم وقتی روی فرم با دستور pset نقطه ایجاد میکنم هر نقطه یه اسم بخصوص ( شماره بخصوصی ) داشته باشه
در ضمن چون قراره توی برنامه با دستور mouse_move نقطه ها خودشون ایجاد بشن و هر بار هم معلوم نیست که تا چه تعدادی ایجاد بشه چطور باید بگیم که مثلا از نقطه 1 شماره بزن برای نقطه ها تا آخری

امیدوارم منظورم رو رسونده باشم خلاصه توضیحات بالا میشه اینکه میخوام هر نقطه اسم داشته باشه تا بتونم به مختصاتش دسترسی پیدا کنم
تشکر از همگی

[Felony]

برای یه پیکسل که نمیتونید نام در نظر بگیرید ، این کار رو باید برای برنامه خودتون شبیه سازی کنید ، یه نوع داده ای جدید تعریف کنید که حاوی 3 فیلد باشه شامل نام و مختصات X و Y ، حالا یه آرایه از این نوع داده ای به طول مورد نظرتون تعریف کنید ( اگر طول معلوم نیست آرایه رو به صورت پویا تعریف کنید ) هر خانه آرایه شامل سه فیلد میشه : Name و X و Y که میتونید مختصات پیکسل مورد نظر رو همراه با نام مورد نظر برای هر خونه از آرایه در نظر بگیرید .

[knight-rak]

ممنون از جوابتون دوست عزیز
فقط یه سوال دیگه من چطور باید شماره اندیس آرایه رو تغییر بدم ؟
کلا از نام گذاری بیخیال شدم چون وقتی قراره تو آرایه باشه خوب از اندیس آرایه استفاده میکنم ولی به این مشکل بر خوردم که چطور تو حالت mouse_move باید بگم که با هر حرکت ماوس به یه شمارنده مثلا n یدونه اضافه بشه ؟
که بتونم ازش برای تغییر اندیس آرایه استفاده کنم
اینو امتحان کردم نشد دیگه چیزی به ذهنم نمیرسه n=n+1

بازم ممنون

[Felony]

که بتونم ازش برای تغییر اندیس آرایه استفاده کنم
اینو امتحان کردم نشد دیگه چیزی به ذهنم نمیرسه n=n+1
شمارندت رو به صورت سراسری تعریف کن ، مثلا :


Dim n As Integer
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
n = n + 1
Me.Caption = n
End Sub