حرکت هم زمان دو شی در form

[good_boy]

سلام
چطور میشه دو یا چند شی برای مثال : label
بتونن هم زمان روی فرم جابجا بشن
با تشکر

[vbhamed]

سلام

اگر منظورتون در حالت طراحی فرم هستش می‌تونید کلید Ctrl رو پایین نگه دارید و سپس با ماوس هر چند تا شیء رو خواستید انتخاب کنید و سپس اونها رو حرکت یا تغییر اندازه بدین

ولی اگر در حالت اجرای برنامه قراره اینکار انجام بشه در کدی که برای شیء اول نوشتید هر موقع اون رو حرکت دادید شیء دوم رو هم به نسبت جابجایی اون جابجا کنید مثلا اگر شیء اول 10 پیکسل به چپ حرکت کرده شیء دوم رو هم 10 پیکسل به چپ حرکت بدین و ...

[good_boy]

سلام ممنونم که پاسخ دادین
دقیقا نمیدونم چطور تغییر بدم که هم زمان بشه
این سورسم هست:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command1_Click()

If Label1.Left < Label2.Left Then

While Not Label1.Left = Label2.Left
Label1.Left = Label1.Left + 4
DoEvents
Sleep 1
Wend

End If

If Label1.Left > Label2.Left Then

While Not Label1.Left = Label2.Left
Label1.Left = Label1.Left - 4
DoEvents
Sleep 1
Wend

End If

If Label1.Top < Label2.Top Then

While Not Label1.Top = Label2.Top
Label1.Top = Label1.Top + 4
DoEvents
Sleep 1
Wend
End If





If Label1.Top > Label2.Top Then

While Not Label1.Top = Label2.Top
Label1.Top = Label1.Top - 4
DoEvents
Sleep 1
Wend
End If

'////////////////////////////
'/////////////////////////////////////////////
'///////////////////////////////////////////////////////////
If Label3.Left < Label2.Left Then

While Not Label3.Left = Label2.Left
Label3.Left = Label3.Left + 4
DoEvents
Sleep 1
Wend

End If

If Label3.Left > Label2.Left Then

While Not Label3.Left = Label2.Left
Label3.Left = Label3.Left - 4
DoEvents
Sleep 1
Wend

End If

If Label3.Top < Label2.Top Then

While Not Label3.Top = Label2.Top
Label3.Top = Label3.Top + 4
DoEvents
Sleep 1
Wend
End If





If Label3.Top > Label2.Top Then

While Not Label3.Top = Label2.Top
Label3.Top = Label3.Top - 4
DoEvents
Sleep 1
Wend
End If

End Sub

[vbhamed]

سلام
این همه کد برای چیه ؟ دقیقا نگفتید می‌خواین چطوری حرکت بدین، با ماوس یا توسط کد
اگر با کد باشه که هر موقع یکی از اشیاء رو تغییر مکان دادین همونجا اشیاء دیگه رو هم به همون مقدار تغییر مکان بدین

[good_boy]

سلام
با کد
نمیدونم چطور بنویسم که با هم حرکت کنند
روش کد نوشتن این قسمتو دقیقا نمیدونم چطور ایجاد کنم

[vbhamed]

سلام
چطوری نداره خیلی ساده، مثلا وقتی می‌نویسید label1.left = label1.left + 15 زیرش هم بنویسید label2.left = label2.left + 15
همینطور تا آخر