؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/

سلام دوستان
به یک تابع معرفی کنید که به طور همزمان top and left دو تا لیبل رو جابه جا کنه (هر چه زود تر بهتر )

راستی اگه کد کلیدهای جهت دار بذارید ممنون میشم
آخه پیدا نکردم

چرا API

کد:

---

Private Sub Change()
Dim Left1 As Integer
Dim Top1 As Integer

Left1 = Label1.Left
Top1 = Label1.Top
Label1.Left = Label2.Left
Label1.Top = Label2.Top
Label2.Left = Left1
Label2.Top = Top1
End Sub

---

اقای جمشیدی ممنون اما:
این رو که خودم بلد بود اما اگه بخام برای تک تگ لیبلهای روی فرم این رو بنویسم که خیلی کار داره حدودا9*9*9*9*9*9*9*9*9*99*9*بار باید این رو بنویسم فگر میکنم که خیلیجالب نباشه ، مگه نه؟

اگه لیبل هاتو ایندکس کنی این کار خیلی راحتتره!!
یا اگه نمیشه ایندکس بشن این دستوراتو بریز تو یه تابع که دو تا پرامتر بگیره.
پارامتر هاشم لیبل هات باشن بعد این تابع رو کال کن.

نظر دوستمون هم عالی بود

کد:

---

Private Sub Change(Lbl1 As Label, Lbl2 As Label)
 

Dim Left1 As Integer

Dim Top1 As Integer

 

Left1 = Lbl1.Left

Top1 = Lbl1.Top
Lbl1.Left = Lbl2.Left
Lbl1.Top = Lbl2.Top
Lbl2.Left = Left1
Lbl2.Top = Top1
End Sub

Private Sub Command1_Click()
Change Label1, Label2

End Sub

---

ممنون اقای جمشیدی عزیز اما من می خوام از کلیدهای جهتی برای تغییر مکانشون استفاده کنم

خوب اینم آسونه شما برای این کار یک شیئ نیاز دارید که یکسره فکوس روی اون باشه (مثلا Form) حالا

کد:

---

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
End Sub

---

بقیش هم مشخصه

Left Arrow -> 37
Up Arrow -> 38
Right Arrow -> 39
Down Arrow -> 40

چرا از خواص شي گراي وي بي استفاده نمي كنيد.

کد:

---

Dim CtrlObj As Object
For Each CtrlObj In Form1
    CtrlObj.Top = 100
Next

---

ممنون از کمک دوستان