We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Dim sTemp As String With MSFlexGrid1 sTemp = .TextMatrix(.Row, .Col) If .Col <> 10 Then Exit Sub ' This might need to be 7 Select Case KeyAscii Case 8 ' backspace If Len(sTemp) > 0 Then sTemp = Left$(sTemp, Len(sTemp) - 1) End If Case 27 ' escape sTemp = "" Case 0 To 31 KeyAscii = 0 Case Else sTemp = sTemp & Chr$(KeyAscii) End Select .TextMatrix(.Row, .Col) = sTemp End With MSFlexGridEdit MSFlexGrid1, txtEdit, KeyAscii End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.