IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
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