Klavye Tuşları İla Nesne Yönlendirme_YTEragonWTF_

'Klavye tuşları ile nesne yönlendirme
'1 adet shape nesnesi ekleyerek ismini nesne olarak değiştirin.

Dim yon AsString
Dim surat AsInteger
PrivateSub Form_KeyDown(KeyCode AsInteger, Shift AsInteger)
If KeyCode = vbKeyDown Then yon = "asagi"
If KeyCode = vbKeyUp Then yon = "yukari"
If KeyCode = vbKeyLeft Then yon = "sol"
If KeyCode = vbKeyRight Then yon = "sag"
EndSub
PrivateSub Form_Load()
surat = 200
EndSub

PrivateSub Timer1_Timer()
SelectCase yon
Case"sol":
If nesne.Left <= (-nesne.Width) Then
nesne.Left = Form1.ScaleWidth
Else
nesne.Left = nesne.Left - surat
EndIf
Case"sag":
If nesne.Left >= Form1.ScaleWidth Then
nesne.Left = (-nesne.Width)
Else
nesne.Left = nesne.Left + surat
EndIf
Case"yukari":
If nesne.top <= (-nesne.Width) Then
nesne.top = Form1.ScaleHeight
Else
nesne.top = nesne.top - surat
EndIf
Case"asagi":
If nesne.top >= Form1.ScaleHeight Then
nesne.top = (-nesne.Width)
Else
nesne.top = nesne.top + surat
EndIf
EndSelect
EndSub

24 saat mesaj yasağın hayırlı olsun bir daha böyle seri konu açıp site düzenini bozarsan uyarı değil ban yersin.

MorpHeus reyiz adam be işini biliyor

#MorpHeus' Alıntı:

24 saat mesaj yasağın hayırlı olsun bir daha böyle seri konu açıp site düzenini bozarsan uyarı değil ban yersin.

Genişletmek için tıklayın ...

sevgili admin konu açmıştım ama seri konu açan arkadaş yuzunden  actıgım konu alt ta kaldı o yuzden buradan yazıyorum
ekran resmı paylasacagım sıtede url ıstıyo kendı bılgısayarımdakı ekran goruntusunu nasıl konunun ıcıne atıp paylasabılırım yardımcı olurmusun tesekkurler ıyı forumlar.