- -
ASCII Kodu Bulma
(
https://www.ircforumlari.net/visual-basic/124436-ascii-kodu-bulma.html)
Cemalizim | 19 Temmuz 2008 16:57 | ASCII Kodu Bulma PHP- Kodu: Dim strKey As String Dim strAscii As String
Private Sub cmdChart_Click() 'Open the chart form frmChart.Show End Sub
Private Sub cmdGen_Click() ' Unload all forms Unload frmChart Unload frmASCII End Sub
Private Sub Picture1_Click() Shell "start mailto: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ?Subject=ASCIICodeGenerator" End Sub
Private Sub txtKey_KeyPress(KeyAscii As Integer) ' If text boxes contain any data, clear them If txtKey.Text <> "" And txtAscii.Text <> "" Then txtKey = "": txtAscii = "" End If ' strAscii holds the ASCII value of the key pressed strAscii = KeyAscii ' txtAscii box displays the ASCII code txtAscii.Text = strAscii ' Check for non display keys Select Case strAscii Case 13 ' If enter ket was pressed txtKey.Text = "Enter" Case 8 ' If backspace key was pressed txtKey.Text = "BackSpace" Case 27 ' If Esc key was pressed txtKey.Text = "Esc" Case 32 'If spacebar was pressed txtKey.Text = "SpaceBar" End Select
End Sub
Alıntı |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:29. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net