چگونه line رو به صورت عقربه ساعت بچرخونم؟

[mahdi.r1374]

:اشتباه:لطفا کمک کنید.:اشتباه:

[Slytherin]

:اشتباه:لطفا کمک کنید.:اشتباه:

یه تایمر با اینترول 5 و دو تا لیبل و یک لاین روی فرم بگذارید و کد های زیر رو وارد کنید:
Private Sub Timer1_Timer()

PSet (Line1.X2, Line1.Y2), vbGreen

Label1.Left = Line1.X1
Label1.Top = Line1.Y1
Label2.Left = Line1.X2
Label2.Top = Line1.Y2

Label1.Caption = "(" + CStr(Line1.X1) + "," + CStr(Line1.Y1) + ")"
Label2.Caption = "(" + CStr(Line1.X2) + "," + CStr(Line1.Y2) + ")"


If Line1.X1 = Line1.X2 And Line1.Y1 > Line1.Y2 Then
Line1.Y2 = Line1.Y2 + 1
Line1.X2 = Line1.X2 + 1
End If
If Line1.X1 = Line1.X2 And Line1.Y1 < Line1.Y2 Then
Line1.Y2 = Line1.Y2 - 1
Line1.X2 = Line1.X2 - 1
End If

If Line1.X1 < Line1.X2 And Line1.Y1 > Line1.Y2 Then
Line1.X2 = Line1.X2 + 3
Line1.Y2 = Line1.Y2 + 3
ElseIf Line1.Y1 < Line1.Y2 And Line1.X1 < Line1.X2 Then
Line1.X2 = Line1.X2 - 3
Line1.Y2 = Line1.Y2 + 3
ElseIf Line1.X1 > Line1.X2 And Line1.Y1 < Line1.Y2 Then
Line1.X2 = Line1.X2 - 3
Line1.Y2 = Line1.Y2 - 3
ElseIf Line1.X1 > Line1.X2 And Line1.Y1 > Line1.Y2 Then
Line1.X2 = Line1.X2 + 3
Line1.Y2 = Line1.Y2 - 3
End If

End Sub

گمان کنم تغریبا همون چیزی هست که شما می خواهید...

[ameri110]

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

[ho3ein.3ven]

ممنون عالی بود

[ameri110]

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

[mahdi.r1374]

از همه شما به خاطر کمک کردن به من تشکر می کنم.

[ho3ein.3ven]

لطفا برای تشکر کردن از گزینه تشکر استفاده کنید.

بروی چشم داداش