Como usar um flexgrid?

[Ingrid 0]

Ola, pessoal, estou com uma duvida...Estou lendo um arquivo txt, que possui umas 5 colunas, e preciso jogar essas colunas no MsFlexgrid.......como faco?Sera q aluem pode me ajudar, por favor.....por enquanto tentei com esta codigo, mas sei que esta errado, pois ele coloca tudo na mesma coluna...Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists(Arquivo.Text) Then fluxoTexto = New IO.StreamReader(Arquivo.Text) linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing CaixaTexto.Text &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While fluxoTexto.Close() Else MessageBox.Show("Arquivo não existe") End If

[jeffersonsm 0]

Ingrid, ve se ajuda este codigo..Public Sub CarregaScript(strcarrega As String) Dim coluna As Integer Dim linha As Integer Dim largura_coluna() As Single Dim largura_campo As Single Call AbreBanco("A", "T") Set Rst_Aprove = ConnAprove.Execute(strcarrega) ' define linhas fixas igual a uma e não usa colunas fixas frm_Depuracao.MSFlexGrid1.Rows = 2 frm_Depuracao.MSFlexGrid1.FixedRows = 1 frm_Depuracao.MSFlexGrid1.FixedCols = 0 ' define o numero de linhas e colunas e cria uma matrix com o total de registros a exibir frm_Depuracao.MSFlexGrid1.Rows = 1 frm_Depuracao.MSFlexGrid1.Cols = Rst_Aprove.Fields.Count ReDim largura_coluna(0 To Rst_Aprove.Fields.Count - 1) ' exibe os cabeçalhos das colunas For coluna = 0 To Rst_Aprove.Fields.Count - 1 frm_Depuracao.MSFlexGrid1.TextMatrix(0, coluna) = Rst_Aprove.Fields(coluna).Name largura_coluna(coluna) = frm_Depuracao.TextWidth(Rst_Aprove.Fields(coluna).Name) Next coluna ' exibe o valor de cada linha linha = 1 Do While Not Rst_Aprove.EOF frm_Depuracao.MSFlexGrid1.Rows = frm_Depuracao.MSFlexGrid1.Rows + 1 For coluna = 0 To Rst_Aprove.Fields.Count - 1 If Not IsNull(Rst_Aprove.Fields(coluna).Value) Then frm_Depuracao.MSFlexGrid1.TextMatrix(linha, coluna) = Rst_Aprove.Fields(coluna).Value Else frm_Depuracao.MSFlexGrid1.TextMatrix(linha, coluna) = 1 End If ' verifica o tamanho dos campos If Not IsNull(Rst_Aprove.Fields(coluna).Value) Then largura_campo = frm_Depuracao.TextWidth(Rst_Aprove.Fields(coluna).Value) Else largura_campo = 1 End If If largura_coluna(coluna) < largura_campo Then largura_coluna(coluna) = largura_campo Next coluna Rst_Aprove.MoveNext linha = linha + 1 Loop ' fecha o recordset e a conexao Rst_Aprove.Close Set Rst_Aprove = Nothing Call FechaBanco("A") ' define a largura das colunas do grid For coluna = 0 To frm_Depuracao.MSFlexGrid1.Cols - 1 frm_Depuracao.MSFlexGrid1.ColWidth(coluna) = largura_coluna(coluna) + 240 Next coluna End Sub