ايران ويج

نسخه‌ی کامل: رسم
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
من می خوام یه 6 ضلعی رسم کنم کمکم کنید
(۱۶-تير-۱۳۸۸, ۰۰:۵۰:۵۸)mzd72 نوشته است: [ -> ]من می خوام یه 6 ضلعی رسم کنم کمکم کنید

سلام

فکر کنم با line باید رسم کنی
سلام
یک مثال ساده :

Me.AutoRedraw = True
Me.DrawWidth = 2
Line (2130, 45)-(4110, 1215)
Line (4110, 1215)-(4125, 3510)
Line (4125, 3510)-(2130, 4665)
Line (2130, 4665)-(120, 3525)
Line (120, 3525)-(135, 1215)
Line (135, 1215)-(2130, 45)

موفق باشید