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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  componente grid personalizado
PC²
Pontos: 2843 Pontos: 2843
JUCUTUQUARA, VITÓRIA
ES - BRASIL
Postada em 29/07/2004 08:51 hs            
darlan,
 
dá uma olhada no SGrid 2.0, ele é gratis e tem estes recursos , só que a filiação ao banco de dados é manual, tem coisas nota 10 nele como hottrap, edit cell, imagens etc.
 
 

____________________________

PC²   T+

 

     
~Ð@®£@Ñ
Pontos: 2843 Pontos: 2843 Pontos: 2843
PELOTAS
RS - BRASIL
Postada em 29/07/2004 16:42 hs            
valews, vou dar uma olhada.. vou disponibilizar um codigo que fiz pro flex aqui tambem..
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 29/07/2004 16:46 hs            
Muito bom PC, Tem ate os fontes para uma demonstracao. Opsss isso é gratuito ????
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
TÓPICO EDITADO
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 29/07/2004 16:58 hs            
De uma olhada em
 
 
tem ele para baixar. Me avise se deu certo

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
~Ð@®£@Ñ
Pontos: 2843 Pontos: 2843 Pontos: 2843
PELOTAS
RS - BRASIL
Postada em 29/07/2004 20:44 hs            
Rocha, foi mal, exclui meu post, mas entendi.. ja tinha buscado.. depois vi, só que da erro aqui..
naum funciona esse componente..Emoções
     
~Ð@®£@Ñ
Pontos: 2843 Pontos: 2843 Pontos: 2843
PELOTAS
RS - BRASIL
ENUNCIADA !
Postada em 29/07/2004 20:49 hs            
Private Sub flxExemplo_KeyPress(KeyAscii As Integer)
   With flxExemplo
      Select Case KeyAscii
         Case vbKeyReturn, vbKeyTab    '13=ENTER, 9=TAB
            'move para a proxima celula
            If .Col + 1 <= .Cols - 1 Then
               .Col = .Col + 1
            Else
               If .Row + 1 <= .Rows - 1 Then
                  .Row = .Row + 1
                  .Col = 0
               Else
                  .Row = 1
                  .Col = 0
               End If
            End If
         Case vbKeyBack                '8=BACKSPACE
            If Len(.Text) Then
               .Text = Left(.Text, Len(.Text) - 1)    'remove o ultimo caractere
            End If
         Case Is < 32
        
         Case Else
            If KeyAscii = 44 Then                           ',
               If InStr(1, .Text, ",") = 0 Then
                  .Text = .Text & Chr(KeyAscii)
               End If
            ElseIf KeyAscii >= 48 And KeyAscii <= 57 Then   '0, 9
               .CellBackColor = vbYellow
               If (Len(.Text) - InStr(1, .Text, ",") < 2) Or InStr(1, .Text, ",") = 0 Then
                  .Text = .Text & Chr(KeyAscii)
               End If
            End If
      End Select
   End With
End Sub
Private Sub flxExemplo_LeaveCell()
    flxExemplo.CellBackColor = vbWindowBackground
End Sub
 
um exemplo do q fiz no flex
   
Página(s): 2/3     « ANTERIOR    PRÓXIMA »


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