مبتدی: حرکت یک label [بایگانی]

masoud.r

سه شنبه 21 اردیبهشت 1389, 01:09 صبح

چطوری میتونم یک برنامه بنویسم که با کلید های جهت نما یک label یا تصویر یا هر چیز دیگه جابجا بشه

M.T.P

سه شنبه 21 اردیبهشت 1389, 10:28 صبح

چطوری میتونم یک برنامه بنویسم که با کلید های جهت نما یک label یا تصویر یا هر چیز دیگه جابجا بشه

1. یه پروژه جدید ایجاد کنید/
2. یک Label به فرم اضافه کنید.
3. خصوصیت Keypreview فرم رو True کنید.
4. کد زیر رو به فرم اضافه کنید.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then Label1.Move Label1.Left - 100
If KeyCode = 38 Then Label1.Move Label1.Left, Label1.Top - 100
If KeyCode = 39 Then Label1.Move Label1.Left + 100
If KeyCode = 40 Then Label1.Move Label1.Left, Label1.Top + 100
End Sub

5. لذت ببرید.:قلب:

نکته: با این کد هر کنترلی که خواستین رو میتونین جابه جا کنید به شرط اینکه به جای کلمه Label1 در کدهای بالا اسم کنترل مورد نظر رو تایپ کنید.