איך אני מזיז מלבן בVB?

[SweeT_EviL]

ולא דרך SHAPE

אני רוצה להזיז מלבן בלי יהיה לי כזה קפיצות (של המחיקות מסך) ואני לא ממש יודע איך

אני רוצה שתראו לי עם LINE לא הפקד אלה עם FORM1.LINE...

כאילו

form1.line(x1,y1)-(x2,y2),vbcolor,b

מה שאני ניסיתי זה עם 2 טיימרים

אחד מוחק כל X זמן תמסך והשני עושה תמלבן כל X/2 זמן - בעיקרון זה היה כל 2 מוחק וכל 1 עושה...

אבל לא משנה איך שיניתי את זה זה לא עזר תמיד היה קפיצות כאלה,לא יודע

[Ghosthunter]

ניסית לשנות את הAUTO REDRAW(נראה לי שקוראים לזה ככה).

אתה יכול להשתמש בIMAGE.

[SweeT_EviL]

אה?

[Ghosthunter]

לא משנה(הAUT OREDRAW לא משפיע).

לא שמתי לב שאתה משתמש ב- 2 טיימרים. למה שלא תשתמש בTIMER אחד?

לדוגמא:

Dim x1, x2, y1, y2, h, w, addx, addy

Private Sub Form_Initialize()
x1 = 5
w = 500
x2 = x1 + w
addx = 50
y1 = 80
h = 500
y2 = y1 + h
addy = 20
End Sub

Private Sub Timer1_Timer()
Form1.Cls
Form1.Line (x1, y1)-(x2, y2), vbcolor, B
x1 = (x1 + addx) Mod Form1.width
y1 = (y1 + addy) Mod Form1.height
x2 = x1 + w
y2 = y1 + h
End Sub

עובד טוב.

[SweeT_EviL]

תודה!