Nu har jag några frågor här. Om man skriver lite kod i Keypress-eventet (heter det så?) så utförs ju den koden innan bokstaven man trycker på dyker upp i textboxen. Hur gör man för att bokstaven ska komma upp i textboxen först och sen utförs koden?

Om ni inte har svar på den frågan kan ni svara på nästa.

Hur får jag "in" Keyascii i Change-eventet i en textbox? Just nu finns ju bara keyascii i Keypress...

Tacksam för svar

MvH En Lycklig DaPe som nästan löst färgproblemet :-)

Hej
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim tmpStr As String *1
tmpStr = Chr$(KeyAscii)
KeyAscii = 0
DoEvents
Text1 =Text1 & tmpStr
End If

mvh
Sven

Det är mer lämpligt att använda Text1.selText. Då använder den aktuell position. Ersätter eventuell markerad text med tryckt tecken:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim tmpStr As String
tmpStr = Chr$(KeyAscii)
KeyAscii = 0
DoEvents
Text1.selText =tmpStr
End If