Using KeyPress to compare KeyAscii Values

[BrianS]

Need assistance in using the KeyPress Sub to translate a Carriage Return and a Space into a different character.

What I am trying to accomplish is when a person hits Carriage Return in a text field, it converts it into \n and when they hit space it converts it into _ .

I understand I need to use

Private Sub Form_KeyPress (KeyAscii as Integer)
If KeyAscii = Asc (13) (I assume this is right for a CR?)
Then KeyAscii = Asc (92) & Asc (110) (Hoping this produces a \n)

But for some reason, it wont recognize Asc (13) as a carriage return. I even tried Asc ("13") but that doesnt seem to work either.

Any help would be appreciated.

[leinad31]

Asc() returns an integer from the first character in the string.

Select Case KeyAscii
Case vbKeyReturn 
   KeyAscii = vbNewline
Case vbKeySpace
   KeyAscii = Asc("_")
Case Else
 
EndSelect

[brucevde]

The KeyAscii paramter already contains the ansi value for the keystroke, there is no reason for the conversion.

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text1.SelText = "\n"
        KeyAscii = 0
    End If
End Sub

[BrianS]

Thanks to both of you, worked like a charm.

[BrianS]

One other question I have, if I want to write a Quote, how would I go about entering that?

I have a API call to write keys and strings to an .ini file, but one entry needs to have quotes around it, like "entry".

So my current code is:

API_WritePrivateProfileString("Engine.R6MissionDescription", "m_AudioBankName", Text12.Text, spath2)

I need the text in text12.text to have quotes around it when I write it.

[manavo11]

Somehting like this? (I'm just guessing) :

API_WritePrivateProfileString("Engine.R6MissionDescription", "m_AudioBankName", """" & Text12.Text & """", spath2)

[brucevde]

I assume you do not want to have the quotes appear in the TextBox. To include quotes in a string you need to double them up. Its best to use a constant, makes your code easier to read

Public Const Double_Quotes As String = """"
 
Dim strData As String 
 
strData = Double_Quotes & Text12.Text & Double_Quotes 
 
API_WritePrivateProfileString("Engine.R6MissionDescription", "m_AudioBankName", strData,spath2)

[BrianS]

Fantastic, thanks again guys.

[manavo11]

You're welcome