|
|
|
|
|
|
|
|
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 
|
|
|
|
|
