Previous Entry Share Next Entry
(no subject)
2012
unknownj
Heh, I'm writing cooler code to deal with text boxes. I no longer use text boxes, I use labels, and play with OnKeyPress events...
Dim CRLF As String
CRLF = Chr$(13) + Chr$(10)
If KeyAscii = 8 Then
  Label0.Caption = Left$(Label0.Caption, Len(Label0.Caption) - 2)
  Label0.Caption = Label0.Caption + "_"
ElseIf KeyAscii = 13 Then
  Label0.Caption = Left$(Label0.Caption, Len(Label0.Caption) - 1)
  Label0.Caption = Label0.Caption + CRLF + "_"
Else
  Label0.Caption = Left$(Label0.Caption, Len(Label0.Caption) - 1)
  Label0.Caption = Label0.Caption + Chr(KeyAscii) + "_"
End If

Ho hum.....

?

Log in

No account? Create an account