Ricardo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 29/07/2005 18:10 hs
Olá pessoal , o q eu estou precisando é o seguinte Tenho um flexgrid onde carrego com uma formatação X na largura de uma determinada coluna , só q quando os dados cadastrados tem mais q 20 letras ele corta e mostra as 15 primeiras letras, só q a palavra ou frase fica estranha fica feio. Dai eu vi na net um esqueminha bem legal ,tipo quando a palavra ou frase tiver chegando no limite da linha ele adiciona tres pontinhos. | DATA | DESCRICAO | VALOR | 02/05/2005 CABO FLEXIVEL P... 120,52 é um tipo de frescurinha mais pode ficar legal. se alguém tiver umas idéias.. |
|
|
|
|
|
|
|
Postada em 30/07/2005 23:53 hs
Este lance dos pontinhos eu não sei mais o código abaixo também é interessante,ele ajusta o tamanho do FlexGrid de acordo com com os dados nele contido.....Public Function Ajusta()'Função Ajusta as colunas do grid para o tamanho do texto contido nas celulas Dim Max_Wid As Single Dim Wid As Single Dim Max_Row As Integer Dim R As Integer Dim C As Integer Screen.MousePointer = vbHourglass 'Ajusta as colunas do grid para o tamanho do texto contido nas celulas Max_Row = Grid.Rows - 1 For C = 0 To Grid.Cols - 1 Max_Wid = 0 For R = 0 To Max_Row Wid = TextWidth(Grid.TextMatrix(R, C)) If Max_Wid < Wid Then Max_Wid = Wid Next R Grid.ColWidth(C) = Max_Wid + 240 Next C Screen.MousePointer = vbDefaultEnd Function
|
|
|
|
Ronaldo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2008 19:36 hs
Pessoal, preciso excluir linhas no flex grid, estou conseguindo, utilizando o removeitem com rowsel, o problema é quando a linha´a ser excluída é a última aí ele da erro, alguém sabe como posso excluir a última linha de uma flex |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2008 19:47 hs
E ai Ronaldo tudo bem primeiramente, por favor crie um novo tópico com sua duvida, cadastre-se no site é facil e gratis, pois repare que pra fazer um pergunta você ressucitou um post de 2005, bom quanto a sua pergunta é o seguinte a unica maneira que encontrei foi tratar o erro de forma que solucione o problema veja como fiz: ' Primeiro tratei o erro 'On Error Goto TrataErro ' Seu código que exclui as linhas Exit Sub TrataErro:
If Err.Number = 30015 Then
Grid.Cols = 1
Grid.Rows = 1
Grid.ColWidth(0) = 0
linhas = 0
End If |
|
TÓPICO EDITADO
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/06/2008 10:03 hs
Com certeza esta dando erro no seu codigo, não pode dar erro no controle por remover uma linha....
O que vc pode fazer é um for next limpando o conteudo dele, (vai ficar a linha em branco), dai seu código na hra de jogar algum conteudo no grid tem q pegar a linha em branco.
for coluna = 0 to grid.cols -1
grid.textmatrix(grid.rows, coluna) = ""
next
Isso não ira remover a linha, apenas limpar seu conteudo.
T+
|
|
|
|
