Pessoal,

 

No msflexgrid tem como programar setas ? Quando o usuário pressionar as teclas para cima ou para baixo mudaria de registro mas selecionando a linha inteira tem como fazer isso ?

 

Rafael

tenta fazer isso no evento Keycode , qdo ele pressionar essas teclas ele vai identificar neste evento, dai qdo executar esse evento vc posiciona no registro anterior ou no proximo registro .

 

se vc nao entender me avise ]

 

Ok

 

Mas como tratar a propriedade Keycode no msflexgrid ?

Segue o codigo que estou aplicando, gostaria que o msflexgrid fosse acionado pelas teclas p/ cima e p/ baixo.

 

Private Sub Form_Load()
  Dim i As Integer
 
  Screen.MousePointer = vbHourglass
  Centralizachild Me
  Set rs = Db.OpenRecordset("SELECT * FROM tb_usuarios ORDER BY usuario")
  i = 1
  Do While Not rs.EOF
     grdUsuarios.TextMatrix(i, 1) = rs!usuario
     grdUsuarios.TextMatrix(i, 2) = rs!senha
     grdUsuarios.TextMatrix(i, 3) = rs!nivel
     rs.MoveNext
     grdUsuarios.Rows = grdUsuarios.Rows + 1
     i = i + 1
  Loop
  grdUsuarios.Rows = grdUsuarios.Rows - 1
  grdUsuarios.FormatString = "    | USUÁRIO                             | SENHA                |^NÍVEL   "
  Screen.MousePointer = vbDefault
  Exit Sub
End Sub
Private Sub grdUsuarios_Click()
  Screen.MousePointer = vbHourglass
  txtUsuario = grdUsuarios.TextMatrix(grdUsuarios.Row, 1)
 
  LimpaGrade grdUsuarios
  Set grdUsuarios.CellPicture = picSeta.Picture
  grdUsuarios.ColSel = 3
  grdUsuarios.BackColorSel = &H800000
  grdUsuarios.ForeColorSel = &HFFFFFF
  Screen.MousePointer = vbDefault
  Exit Sub
End Sub

To apanhando bastante pra conseguir fazer o msflexgrid responder ao acionamento de teclas, tentei o exmplo abaixo mais dá erro, esse evento está errado ?

 

Private Sub grdUsuarios_KeyPress(KeyCode As Integer, Shift As Integer)
   Screen.MousePointer = vbHourglass
   Select Case KeyCode
   MsgBox KeyCode
       Case Is = vbKeyUp
           MsgBox "ok"

   End Select
   Screen.MousePointer = vbDefault
   Exit Sub
End Sub