CURSOR NO FLEXGRID
Olá a Todos ;
Tem como posicionar um cursor (piscando) na celula celecionada?
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
With MSFlexGrid1
If .Col + 1 <= .Cols - 1 Then
.Col = .Col + 1
Else
If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
Else
.Row = 1
.Col = 0
End If
End If
End With
Case vbKeyBack
With MSFlexGrid1
If Len(.Text) Then
.Text = Left(.Text, Len(.Text) - 1)
End If
End With
Case Is < 32
Case Else
With MSFlexGrid1
.Text = .Text & Chr(KeyAscii)
End With
End Select
End Sub
Tem como posicionar um cursor (piscando) na celula celecionada?
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case vbKeyReturn, vbKeyTab
With MSFlexGrid1
If .Col + 1 <= .Cols - 1 Then
.Col = .Col + 1
Else
If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
Else
.Row = 1
.Col = 0
End If
End If
End With
Case vbKeyBack
With MSFlexGrid1
If Len(.Text) Then
.Text = Left(.Text, Len(.Text) - 1)
End If
End With
Case Is < 32
Case Else
With MSFlexGrid1
.Text = .Text & Chr(KeyAscii)
End With
End Select
End Sub
Ricardo acho que o cursor piscando não dá, eu vejo como solução vc colorir a celula que estiver em foco
Tópico encerrado , respostas não são mais permitidas