Kod :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
KeyAscii = Asc(UCase(Chr(KeyAscii))) ' UCase ile büyük harfe çevriliyor
Print Chr(KeyAscii)
End Sub
Evet Çok Basit boş sayfaya bu kod yazın ve çalıştırın formun penceresindeyken bişiler yazın ve görün
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
KeyAscii = Asc(UCase(Chr(KeyAscii))) ' UCase ile büyük harfe çevriliyor
Print Chr(KeyAscii)
End Sub
Evet Çok Basit boş sayfaya bu kod yazın ve çalıştırın formun penceresindeyken bişiler yazın ve görün
