Ricardo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/09/2010 23:06 hs
Olá a todos gostaria de uma ajuda pra tornar um grid mais simpatico.
vamos lá
Tenho este código que carrega o grid:
TB_ESPECIE.Open "SELECT * FROM ESPECIE ", BD_CAIXA
linhas = TB_ESPECIE.RecordCount
Grade.Rows = linhas
Grade.Row = 0
Grade.Col = 1
Grade.RowSel = Grade.Rows - 1
Grade.ColSel = Grade.Cols - 1
Grade.Clip = TB_ESPECIE.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)
Grade.TopRow = Grade.Rows - 1
Grade.Row = Grade.Rows - 1
Grade.RowSel = Grade.Rows - 1
Grade.ColSel = Grade.Cols - 1
É o seguinte gostaria de tres coisa:
A primeira e´ que ao carregar o grid a escrita fica próxima a linha ,teria uma maneira de dar um espaço e dai trazer as infomações tipo:
|Escrita proxima a linha
| Escrita com dois espaço.
A segunda é o seguinte:
Na segunda coluna carregar icones tipo de um image ou diretório .
E a Terceira Zebrar ele.
Se alguem tiver alguma idéia
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/09/2010 08:42 hs
1º - Qto ao espaço, vc teria de administrar qdo colocar sem e com espaço. 2º - Colocar ícones vc precisaria adquirir uma flex de terceiros que tem esta possibilidade e que custa barato. 3º zebar o grid: Call GridZebrado(grdItens, 0) 'Zebrar a partir da coluna 0
Public Sub GridZebrado(wGrid As MSFlexGrid, wColInicial As Integer)
Dim iLinha As Integer, lCorPar As Long, lCorImpar As Long
lCorPar = &H80000018
lCorImpar = &HE0E0E0
wGrid.FillStyle = flexFillRepeat
For iLinha = 1 To wGrid.Rows - 1
With wGrid
.Row = iLinha
If EhImpar(iLinha) Then 'Se a linha for impar:
'Seleciona a partir da primeira coluna
.Col = wColInicial
'Seleciona até a última coluna
.ColSel = .Cols - 1
'Aplica a cor
.CellBackColor = lCorImpar
Else 'Se a linha for par:
'Seleciona a partir da primeira coluna
.Col = wColInicial
'Seleciona até a última coluna
.ColSel = .Cols - 1
'Aplica a cor
.CellBackColor = lCorPar
End If
End With
Next
wGrid.FillStyle = flexFillSingle
If wGrid.Rows > 1 Then
wGrid.Row = 1
End If
End Sub
|
|
|
|
®ogerVB
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/09/2010 09:44 hs
Para o seu grid ficar mais "manipulável" vc teria que mudar esse jeito de preenchimento (ctrl +V)... Faça um loop para preencher o grid e vc poderá colocar o que quiser na celula, inclusive formatar campo s numéricos e tal. Abraço. |
|
|
|
APW
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/09/2010 17:42 hs
para adicionar icones vc usa a propriedade msflexgrid.cellpicture |
|
|
|
Juan Carlos R.A
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/09/2010 13:53 hs
a dica pode ate ser boa para zebrar, mais quando vc tiver mais de 10.000 registros o mshflexgrid fica lento para carregar as informações da tabela
|
|
|
|
