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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Draw Suite 2010 Alguém já usou
dummies
CERQUILHO
SP - BRASIL
ENUNCIADA !
Postada em 01/05/2012 20:29 hs         
Pessoal eu gostaria de saber se alguém já usou o Draw Suite 2010
Estou com demo e fazendo alguns testes mas não estou tendo sucesso com o USFlexGrid1 deles.
Eu preencho ele...beleza, mas agora eu quero navegar através das setas do teclado (para cima e para baixo) e gostaria que em algum dos eventos retornasse o ROW que estou navegando, porém até agora não consegui.
Eu já mandei alguns emails para o contato deles porém não me retornaram
Se alguém tiver alguma dica eu agradeço desde já.
   
wellington
não registrado
ENUNCIADA !
Postada em 02/05/2012 10:24 hs   
Olá dummies.....eu utilizo o drawsuite.....e é muito bom.

Pra vc saber qual é a linha faça o seguinte:

grdContas.CellText(Linha, col), onde Linha vc pode obter a linha e Col vc obtem a coluna....
vc pode visualizar pelo msgbox....

qualquer duvida me adciona no skype...wellsoftcompany2011
   
dummies
CERQUILHO
SP - BRASIL
ENUNCIADA !
Postada em 02/05/2012 21:07 hs         
Obrigado pela dica.
O Suporte da DrawSuite também respondeu.
Segue resposta deles:
'Duplo Clique
Private Sub USFlexGrid1_DblClick()
    Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
    Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
    Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub
 
'Clique
Private Sub USFlexGrid1_Click()
    Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
    Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
    Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub
 
E segue abaixo com uma alteração que fiz no evento:
Nesse evento você consegue atualizar os campos usando as setas para cima e para baixo
Private Sub USFlexGrid1_Scroll()
    Text1 = USFlexGrid1.CellText(USFlexGrid1.Row, 0)
    Text2 = USFlexGrid1.CellText(USFlexGrid1.Row, 1)
    Text3 = USFlexGrid1.CellText(USFlexGrid1.Row, 2)
End Sub
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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