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

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Ajusta as colunas do MsFlexGrid para o tamanho do texto contido nas células
Postada em 1/8/2003 por Juninho         
Private Sub CmdAjustar_Click()

   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 = GRADE.Rows - 1
  
   For C = 0 To GRADE.Cols - 1
  
      Max_Wid = 0
      
      For R = 0 To Max_Row
      
         Wid = TextWidth(GRADE.TextMatrix(R, C))
         If Max_Wid < Wid Then Max_Wid = Wid
        
      Next R
      
      GRADE.ColWidth(C) = Max_Wid + 240
      
   Next C
  
   Screen.MousePointer = vbDefault

End Sub
 


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