درخواست پروژه حرکت دادن یک خط یا مستطیل

[O R A C L E]

با سلام خدمت دوستان .
استاد ما یه پروژه داده که با Line و اشکال هندسی یه ماشین رسم کنیم که از سمت چپ بره راست و دوباره برگرده سرجاش .
حالا خواستم ببینم اگه کسی پروژه رو داره یه کمکی به ما بکنه ممنون میشم .

[Mr'Jamshidy]

چون این پروژه شما از تعداد زیادی خط استفاده میشه شما باید یک فرمان کلی بنویسی و از نصبت دادن مقتصاد به دونه دونه اشیا باید پرهیز کنی
این کد رو من بهت میدم اما بقیه کارا پای خودت

Dim MyControl As Object
For Each MyControl In Me.Controls
With MyControl
.Left = .Left + 1
.Top = .Top + 1
End With
Next

هر بار که این کد رو اجرا کنی تمام اشیا داخل فرم یک Twip به راست و یک Twip به پایین حرکت میکنن که البته این Twip بستگی به ScaleMode فرمت داره
که البته اگر از Line بخوای استفاده کنی بجای خاصیت Left و Top باید از خواصی مثل X1 و X2 و Y1 و Y2 استفاده کنی

خوب دیگه موفق باشی

[vbhamed]

سلام

شما اول با خطوط و اشكال يك ماشين رسم كنيد بعدش تو يك حلقه For ابتدا صفحه رو پاك كنيد بعدش مختصات X نقاط رسم شده رو زياد كنيد و دوباره ماشين رو رسم كنيد
اينطوري كلا شيء ترسيمي به سمت راست حركت مي كنه، تا يه جايي هم كه رفت بعدش برگردونيد اول