Ir para o conteúdo
estica

Abrir documento em OpenFileDialog

Mensagens Recomendadas

estica

Para abrir um ficheiro e apresentar em listview eu uso o seguinte condigo mas para o abrir em OpenFileDialog eu estou a ter uma branca :(

Abre duas vezes e depois dá erro na leitura :(

Dim Filename As String
 Dim TFile As System.IO.StreamReader
 Dim sRGB As String()
 Dim S As String
 Dim X, Y As Integer
 Dim S1, S2, S3, S4, S5, S6 As String

 X = OpenButton.Left : Y = OpenButton.Top
 OpenButton.Top = Y + 2 : OpenButton.Left = X + 2
 Call Wait(200)
 OpenButton.Top = Y : OpenButton.Left = X
 ListView1.Items.Clear()
 If MessageBox.Show("Are you sure to open?", "Open", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
	 Try
		 Filename = System.IO.Directory.GetCurrentDirectory & "\Data\DataBase.lst"
		 TFile = My.Computer.FileSystem.OpenTextFileReader(Filename)
		 Do While (TFile.Peek() > -1)
			 X = ListView1.Items.Count
			 S = Trim(TFile.ReadLine)
			 sRGB = S.Split(",")
			 S1 = sRGB(0)
			 S2 = sRGB(1)
			 S3 = sRGB(2)
			 S4 = sRGB(3)
			 S5 = sRGB(4)
			 S6 = sRGB(5)
			 ListView1.Items.Add(S1)
			 ListView1.Items(X).SubItems.Add(S2)
			 ListView1.Items(X).SubItems.Add(S3)
			 ListView1.Items(X).SubItems.Add(S4)
			 ListView1.Items(X).SubItems.Add(S5)
			 ListView1.Items(X).SubItems.Add(S6)
		 Loop
		 TFile.Close()
	 Catch ex As Exception
		 MsgBox(ex.Message)
	 End Try
 Else
 End If

Editado por estica

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

A tua frase não faz lá muito sentido.

Abrir o ficheiro em ListView eu até consigo perceber que é abrir um ficheiro e ler o conteúdo para uma listview, de alguma forma.

Agora, abrir em OpenFileDialog é que não estou a acompanhar.

O OpenFileDialog é um facilitador para a construção de um caminho até um ficheiro. Não abres nada em OpenFileDialog, pelo contrário, usas OpenFileDialog para selecionar o que quere abrir.

No código que metes acima, e correndo o risco de estar a interpretar mal o que pretendes, basta-te substituir a variável Filename por a propriedade que devolve o caminho escolhido no dialog.

Dá uma vista de olhos num artigo da Wiki dedicado a isso:

http://wiki.portugal-a-programar.pt/dev_net:vb.net:common_dialogs


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.