|
ASCII Kodu
Bir form oluşturun boyutları;
ScaleHeight:990
ScaleWidth :2535
Sonra kod kısmına şu kodu girin...
Dim Tus As String
Dim Kod As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
frmAscii.Cls
Tus = Chr(KeyAscii)
Kod = KeyAscii
Print
Print "Basılan Tuş =>", Tus
Print
Print "ASCII Kodu =>", Kod
End Sub
programı exe ye çevirip kullanabilirsiniz...
|
