This month’s featured course covers 16 hours of training in installation, management, and deployment of VMware vSphere virtualization environments. It's free for Premium Members, Team Accounts, and Qualified Experts!
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Dim sTemp As String With MSFlexGrid1 sTemp = .TextMatrix(.Row, .Col) 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 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.