Programlama Rehberi

Klavye tuşları ile nesne yönlendirme



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

Dim yon As String
Dim surat As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then yon = "asagi"
If KeyCode = vbKeyUp Then yon = "yukari"
If KeyCode = vbKeyLeft Then yon = "sol"
If KeyCode = vbKeyRight Then yon = "sag"
End Sub
Private Sub Form_Load()
    surat = 200
End Sub

Private Sub Timer1_Timer()
    Select Case yon
        Case "sol":
            If nesne.Left <= (-nesne.Width) Then
                nesne.Left = Form1.ScaleWidth
            Else
                nesne.Left = nesne.Left - surat
            End If
        Case "sag":
            If nesne.Left >= Form1.ScaleWidth Then
               nesne.Left = (-nesne.Width)
            Else
                nesne.Left = nesne.Left + surat
            End If
        Case "yukari":
            If nesne.top <= (-nesne.Width) Then
               nesne.top = Form1.ScaleHeight
            Else
               nesne.top = nesne.top - surat
            End If
        Case "asagi":
            If nesne.top >= Form1.ScaleHeight Then
                nesne.top = (-nesne.Width)
            Else
               nesne.top = nesne.top + surat
            End If
    End Select
End Sub

kaynak: vbprogramlama . tr . cx

Yazar: jeofizikçi
Kategori: BASIC / Visual BASIC
Düzey: Düzey
Eklenme Tarihi: 2009-02-18
Okunma: 2334
Puan: 8
Yorum sayisi: 1

Yorumlarınız(1)

mrb jeofizikçi bu kod çok işime yaradı tşk ederim ama çözemediğim bir kısım var yardımcı olurmusun sorun şu yön tuşununun gittiği yönünün aksine gitmemesini istiyorum bu penceredeki aynı kod üzerinden nasıl yapabiliriz örneğin sola giderken sağa gitmeyecek
extra_60 tarafından eklendi / 2010-12-03 15:34



2004-2009 © Programlama Rehberi, tüm hakları saklıdır.