http://snippets.dzone.com/posts Mon, 06 Oct 2008 12:54:09 GMT DZone Snippets: Kfenn's Code Snippets http://snippets.dzone.com/posts/show/4841 //Code for an ASCII Alt-Key code generator <br /> <br /><code> <br />Option Explicit <br /> Dim CurCharacter As String <br /> Dim Code As Integer <br /> <br />Private Sub cmdTranslate_Click() <br /> Call Translate <br /> Call Output <br />End Sub <br /> <br /> <br />Private Sub txtEnter_Change() <br /> If txtEnter.Text = "" Then <br /> cmdTranslate.Enabled = False <br /> Else <br /> cmdTranslate.Enabled = True <br /> End If <br />End Sub <br /> <br />Private Function Translate() <br /> CurCharacter = txtEnter.Text <br /> Code = Asc(CurCharacter) <br />End Function <br /> <br />Private Function Output() <br /> txtTranslation.Text = "Alt + " & Code <br /> txtEnter.SetFocus <br />End Function <br /> <br />Private Sub txtEnter_KeyDown(KeyCode As Integer, Shift As Integer) <br /> If (KeyCode = 13) And (cmdTranslate.Enabled = True) Then <br /> Call Translate <br /> Call Output <br /> ElseIf Not KeyCode = 13 Then <br /> Else <br /> txtTranslation.Text = "NO INPUT" <br /> End If <br />End Sub <br /></code> Tue, 04 Dec 2007 16:29:50 GMT http://snippets.dzone.com/posts/show/4841 KFenn (Kristian)