Klavye Tuşları İle Nesne Yönlendirme


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

Yazar: Dark Hack    0 Yorum    71 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 15.05.2016, 23:34:09 #1
Dark Hack Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:218 Konu Sayısı:52 Üyelik Tarihi:08.05.2016

'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









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

Konuyu görüntüleyenler:
1 Misafir