|
|
Postada em 04/04/2006 11:55 hs
Estou fazendo com que o MSFlexGrid mude de linha dando enter com o seguinte codigo: Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
End If
End If
End Sub
Porem a scrollbar, não segue conforme o foco nas celulas. Alguem poderia me ajudar? Um Abração a todos!! |
|
|
|
|
|
|
|
Postada em 04/04/2006 17:15 hs
Tente desta forma: Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
SendKeys("Down") End If
End If
End Sub Aespero que ajude.
|
|
|
|
|
|
Postada em 04/04/2006 17:31 hs
Cara... se eu me lembro tem uma propriedade chamada toprow... ou algo assim... ela vai para a linha q vc quer...
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then
MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.toprow = MSFlexGrid1.Row '<= insira isto
End If
End If
End Sub
É q estou sem vb e não posso dar uma conferida mas acho q é isso... qq coisa é só postar t+ |
|
|
|
|
|
Postada em 05/04/2006 09:29 hs
Opa Aevoug, essa sua solução fez com que o foco não saisse do lugar. Valeu |
|
|
|
|
|
Postada em 05/04/2006 09:31 hs
Grande ghost_jlp, eu cnheço essa propriedade, ela funciona, mas não fica legal, pois deixa a celula sempre no topo, fica estranho. Valeu assim mesmo. |
|
|
|
