مشکل در تنظیم اندازه و ترسیم شکل

[MMR_1344]

با سلام
من در حال ساخت اکتیوایکسی هستم که به مشکلات زیر برخورد کردم
1 - برای تنظیم اندازه اکتیو ایکس با فرمی که در اون قرارداره از دو دستور زیر استفاده کردم که عمل نمیکنه


Parent.Controls(Ambient.DisplayName).Top = 0
Parent.Controls(Ambient.DisplayName).Left = 0

2 -برای ترسیم کادر دو اندازه طول و ارتفاع رو از دستورات ScaleWaith و ScaleHeight میگیرم و یک واحد از اون کم میکنم ولی در زمان ترسیم اندازه ها از فرمم کوچکتر میشه
3 - برای ترسیم چند دایره با مرکزیت ثابت و شعاع رو کم کردم و از رابطه زیر استفاده کردم اما متاسفانه شکل درست رسم نمیشه


For J = 0 To 3
r = 10 - J
For I = 0 To 90
L = r * (1 - Cos(PI / 180 * I))
H = r * (1 - Sin(PI / 180 * I))
PSet (L, H), 4003095
PSet (ScaleWidth - L - 1, H), 4003095
Next
Next J

فایل رو پیوست کردم

[MMR_1344]

مشکل اول رو اینجوری حل کردم
پس از دو دستور قبلی این دو دستور رو اضافه کرد


Height=Perent.Height
Width=Parent.Width
اندازه فرمم درست شد برای قرار گرفتن در مختصات صفر و صفر هم دستور زیر رو در رویداد Resize قراردادم


Extender.Move 0, 0, Parent.ScaleWidth, Parent.ScaleHeight
اما تا وقتی برنامه اجراء نشه صفحه ساخته شده به محل واقعی خودش نمیره

[MMR_1344]

نمیدونم این مشکل یا خیلی ساده است که کسی نظر نمیده یا خیلی مشکل به هر حال متشکر میشم نظری رو داشته باشم

[محسن واژدی]

سلام علیکم
مگه مشکلتون برطرف نشد؟

[MMR_1344]

قسمت سوم از ردیف یک هنوز معین نیست (ترسیم چند دایره با مرکزیت ثابت)
انتقال صفحه ایجاد شده به صفر و صفر صفحه اصلی