Klavye tuşları ile nesne yönlendirme


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: ByClxon    2 Yorum    176 Görüntüleme

Paylaşım Tarihi: 12.05.2016, 08:42:42 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,012 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

'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

Kullanıcı İmzası
#fenerbahçeA.A.K.
nErB8V.png
İletişim İçin Facebook;

https://www.facebook.com/profile.php?id=100012991933980


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



LQgldG.png






 

         


Paylaşım Tarihi: 22.04.2017, 10:13:12 #2
sefa37 Yeğen
Aktif Üye
Status: Çevrimdışı Yorumları:11 Konuları:0 Kayıt Tarihi:06.10.2016 Rep Puanı: 0

başarılı devmını bekliyoruz

Paylaşım Tarihi: 22.04.2017, 10:19:46 #3
Sayko Fedai
Onaylı Uye
Status: Çevrimdışı Yorumları:411 Konuları:51 Kayıt Tarihi:02.01.2016 Rep Puanı: 10

konu hortlatma keyf Big Grin vallaha böyle birşey arıyordum anasayfada gördüm geldim Smile

Kullanıcı İmzası
41JQyQ.jpg





Önceki Konu Sonraki Konu





Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi