Yön Tuşları İle Formda Resim Yapma

By TarantuLa FaHRi

By TarantuLa FaHRi

Üye
4 Şub 2012
214
1
Çankırı
Şimdi Sizlere Formda Yöntuşları(Ok Tuşları ön,arka,geri,ileri) ile resim çizmeyi göstericem
Çok Basit Bir Mantık İle Lafı Uzatmadan

Formu açıyoruz ve yapıştırıyoruz

Form Kodu;

Option Explicit
Dim x, y As Single
Private Sub Form_Load()
Show
DrawWidth = 8
x = 50
y = 50
Scale (0, 400)-(600, 0)
PSet (x, y)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyRight Then
x = x + 20
Line -(x, y)
End If
If KeyCode = vbKeyLeft Then
x = x - 20
Line -(x, y)
End If
If KeyCode = vbKeyUp Then
y = y + 20
Line -(x, y)
End If
If KeyCode = vbKeyDown Then
y = y - 20
Line -(x, y)
End If
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.