USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Problemas com a ScrollBar no MSFlexGrid
Fabbro
MACEIO
AL - BRASIL
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!!
     
Aevoug
não registrado
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.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
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+
     
Fabbro
MACEIO
AL - BRASIL
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
     
Fabbro
MACEIO
AL - BRASIL
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.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página