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

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Trocando a ordem das colunas de um flex sem esforço
Postada em 13/9/2003 por Ð@®l@n            
'muitas vezes precisamos trocar as ordens das colunas
'rapidamente em um flex, imagine horas e horas de tempo
'perdidos codificando, a coluna da qtde era a 3º agora
'passou para a 5º, o nome era a segunda coluna agora
'passou para a 3º e assim sucessivamente, em função
'muitas vezes da necessidade do cliente.
'Abaixo mostrarei como se faz isso de forma rápida e
'sem esforço
Private Type flexTxt    'Qualquer flex
     tflex As String    'define texto
     Lflex As Integer   'define largura
End Type

Private tflx() As flexTxt

''''' total de colunas no flex
Private Const cst_COLUNAS = 4
''''' ordem das colunas
'troque a ordem das colunas aqui e veja o resultado
Private Const cst_CDID = 0
Private Const cst_NOME = 1
Private Const cst_QTDE = 2
Private Const cst_PREC = 3

Private Sub Form_Load()
   ReDim tflx(cst_COLUNAS)
  
   tflx(cst_CDID).tflex = "Codigo"
   tflx(cst_CDID).Lflex = 1000
  
   tflx(cst_NOME).tflex = "Nome"
   tflx(cst_NOME).Lflex = 2000
  
   tflx(cst_QTDE).tflex = "Qtde"
   tflx(cst_QTDE).Lflex = 1000
  
   tflx(cst_PREC).tflex = "Preco"
   tflx(cst_PREC).Lflex = 1000
  
   'inclua um flexgrid em seu projeto
   'funciona tb com MSHFlexGrid1
   With MSFlexGrid1
        .Cols = cst_COLUNAS
        .Rows = 1
        For i = 0 To .Cols - 1
            .ColWidth(i) = tflx(i).Lflex
            .Row = 0
            .Col = i
            .Text = tflx(i).tflex
        Next
   End With
End Sub

'até a próxima
 


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