Pessoal estou usando o seguinte código para editar um grid:
Private Sub MSFlexGrid_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
''move para a proxima celula.
With MSFlexGrid
If .Col + 1 <= .Cols - 1 Then
.CellBackColor = &H8000000E
.Col = .Col + 1
.CellBackColor = &HC0FFFF
Else
If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
Else
.Row = 1
.Col = 0
End If
End If
'End With
MovimentaGrid
Case vbKeyBack
With MSFlexGrid
'remove o ultimo caractere
If Len(.Text) Then
.Text = Left(.Text, Len(.Text) - 1)
End If
End With
Case Is < 32
Case Else
With MSFlexGrid
.Text = .Text & Chr(KeyAscii)
End With
End Select
End Sub
Tem como eu colocar um prompt? Tipo o caracter | Piscando?