FOCUS MSFLEXGRID
Se alguém puder me ajudar, gostaria de saber porque a rotina abaixo não funciona quando me movimento pelo Grid usando as teclas de direção.
Private Sub MSFlexGrid1_GotFocus()
If MSFlexGrid1.Col = 8 Then
MSFlexGrid1.Text = Mid(Time$, 1, 5)
End If
End Sub
Private Sub MSFlexGrid1_GotFocus()
If MSFlexGrid1.Col = 8 Then
MSFlexGrid1.Text = Mid(Time$, 1, 5)
End If
End Sub
Magron
Para o Grid uma Tecla de Direção não dispara o GotFocus porque o Grid não perdeu o Foco, o Componente GRID é composto de células mas o GotFocus só é disparado quando você "entra" no Grid.
Também no TAB ocorre este "problema" porque o Foco está no Componente Grid que é composto de Células.
Utilize:
Private Sub MSFlexGrid1_EnterCell()
If MSFlexGrid1.Col = 3 Then
MSFlexGrid1.Text = Mid(Time$, 1, 5)
End If
End Sub
Deve resolver o problema.
[s68]
Para o Grid uma Tecla de Direção não dispara o GotFocus porque o Grid não perdeu o Foco, o Componente GRID é composto de células mas o GotFocus só é disparado quando você "entra" no Grid.
Também no TAB ocorre este "problema" porque o Foco está no Componente Grid que é composto de Células.
Utilize:
Private Sub MSFlexGrid1_EnterCell()
If MSFlexGrid1.Col = 3 Then
MSFlexGrid1.Text = Mid(Time$, 1, 5)
End If
End Sub
Deve resolver o problema.
[s68]
Tópico encerrado , respostas não são mais permitidas