tuşların ascii kod karşılıkları

klavyedeki sayısal ve alfasayısal tuşların ascii kod karşılıklarını bulan küçük bir örnek

Private Sub Komut4_Click()

On Error Resume Next

Me.Metin2.Value = Asc(Me.Metin0.Value)

End Sub



Private Sub Komut5_Click()

Metin2.Value = " "

Metin0.Value = " "

Metin0.SetFocus

End Sub

Teşekkürler Sn.coskun_cakal

Teşekkürler...

(14/12/2010, 15:50)Stryker yazdı: Teşekkürler Sn.coskun_cakal