move sanırım:)

ögrenmek itedigim mesala bir cizgi var ve bir tus ben tusa bastıgımda gizginin tusa dogru gelmesini nasıl saglayabilirim yani kısaca tusa basıcam cizgi yavas yavas tusa gelecek yardım ederseniz sevinirim

iyi gunler.

Private Sub Form_Load()
Timer1. Interval = 500
Timer1. Enabled = False
End Sub

Private Sub Timer1_Timer()
If Line1. Top > 1000 And Line1. Left > 1000 then
Line1. Top = Line1. Top - 1
Line1. Left = Line1. Left - 1
End If
End Sub

Private Sub Command1_Click()
Timer1. Enabled = True
End Sub

Bas butona çalışsın.

olmadı yinede saol

En basit ve sabit yolu;


Private Sub Command1_Click()
Line1.X1 = Line1.X1 + 30
Line1.X2 = Line1.X2 + 30

End Sub

En basit ve sabit yolu;


Private Sub Command1_Click()
Line1.X1 = Line1.X1 + 30
Line1.X2 = Line1.X2 + 30

End Sub

demissin fakat bu sekilde tusa gitmez benim istedigim oyle olmasıydı
neyse onemli degil yine de saolun teşekkurler

bu kodun işini görmesi lazım eğer istediğin bu ise
- bir komut butonu çiz
bu butonu çift tıkla ve aşagıdaki kodu oraya yapıştır.
-ve bir line çiz onunda ismi line1 olacak değilse ismi ne ise onu aşagıdaki kodda bulunan "line1" yerine senin çizdiğin çizginin adını yazmalısın.
butonu tıkladığında çizgi yaklaşacaktır.
###############################################
sol = Command1.Left
ust = Command1.Top

soluzak = sol - Line1.X1
If soluzak < 0 Then
If Abs(soluzak) <> 0 Then
Line1.X1 = Line1.X1 - 100 'buradaki 100 değeri bir seferdeki yakınlaşma ölçüsüdür.
Line1.X2 = Line1.X2 - 100
End If
GoTo 5
End If
Line1.X1 = Line1.X1 + 100
Line1.X2 = Line1.X2 + 100
5
###############################################
Bu kodla her tıklamada çizgi butona yaklaşacak 100 değeri kadar ama eğer tek tıklamada kayarak gelmesini istersen timer nesnesi kullanman lazım istersen onun kodunuda yazıp gönderirim kolay gelsin..