selam
Benim sormak istedigim ornegin birtane figurunuz var onu baska bir figurun uzerinde gecirdiginiz zaman silinmesini istiyorsunuz.( yani kucuk capta bir oyun)
hangi kotlar gerekli ben erase ile denedim ama olmadi.
Code:_____________________________________________ _________________________
Private Sub Form_Load()
e.Visible = True
If player.Move Then Erase e.Picture ' Burada yanlis yapiyorum
End Sub
Private Sub player_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
If player.Left >= 100 Then player.Left = player.Left - 100
Case vbKeyRight
If Me.Width - player.Width - player.Left >= 100 Then player.Left = player.Left + 100
Case vbKeyUp
If player.Top >= 100 Then player.Top = player.Top - 100
Case vbKeyDown
If Me.Height - player.Height - player.Top >= 100 Then player.Top = player.Top + 100
Case vbKeyEscape
Unload Me
End Select
End Sub
If player.Move Then Erase e.Picture bu code yanlis oraya hangi code gelmesi lazimki e.picture silinsin.
yardimlarinizi bekliyorum
Saygilar Sevgiler.
__________________
Figuru silmek
Programlama0 Mesaj
●22 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Figuru silmek