Ir para o conteúdo
Retsu9

Visual Basic SaveDialog

Mensagens Recomendadas

Retsu9    13
Retsu9

Bom Dia,

Eu desenvolvi uma aplicação para um jogo a pedido de alguns amigos, mas estou a ter uns problemas com o botão Guardar. o Guardar como funciona perfeitamente...Alguem pode dar uma ajuda? é com alguma urgencia

If nome_fich = Nothing Then
Dim salvar As New SaveFileDialog
salvar.Filter = "*.txt|*.txt"
salvar.FileName = salvar.FileName
If salvar.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim escrever As New System.IO.StreamWriter(salvar.FileName)
escrever.Write(TextBox1.Text)
escrever.Close()
End If
Else
Dim salvar As New SaveFileDialog
salvar.Filter = "*.txt|*.txt"
salvar.FileName = CStr(nome_fich)
Dim escrever As New System.IO.StreamWriter(salvar.FileName)
escrever.Write(TextBox1.Text)
escrever.Close()
End If

este é o codigo que tenho no botao salvar.

Desde ja obrigado.

Editado por Rui Carlos
GeSHi

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nelsonr    333
nelsonr

Boas,

vê se é isto:

' Se não tem um ficheiro definido, pede ao utilizador
If String.IsNullOrEmpty(nome_fich) Then
' Pedir ao utilizador o ficheiro onde vai gravar o conteúdo da textbox1
Dim salvar As New SaveFileDialog
salvar.Filter = "*.txt|*.txt"
If salvar.ShowDialog = Windows.Forms.DialogResult.OK Then
	' Caso tenha confirmado um ficheiro, guardar o caminho/nome
	nome_fich = salvar.FileName
End If
End If

' Se tem o nome do ficheiro definido
If Not String.IsNullOrEmpty(nome_fich) Then
' Gravar conteúdo da textbox1 no ficheiro escolhido
Using escrever As New System.IO.StreamWriter(nome_fich, False)
	escrever.Write(TextBox1.Text)
End Using
End If

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Retsu9    13
Retsu9

Resulta parcialmente. acontece o seguinte, eu abro um ficheiro txt edito-o e meto Guardar, em vez de apenas alterar o conteudo novo ele faz o procedimento de Guardar como... mas se editar novamente sem fechar o programar e meter guardar ele ja guarda normalmente. Não dá para fazer logo ?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nelsonr    333
nelsonr

Se a variavel "nome_fich" vier logo preenchida com o nome do ficheiro, já não pede o ficheiro ao utilizador.

Por isso, quando abres o txt, guarda o nome do ficheiro algures.

Ao gravar, atribuis esse nome à varivavel "nome_fich"

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Retsu9    13
Retsu9

Desde ja obrigado pela ajuda, quando compilo e faço Guardar (ficheiro ja criado, aberto pela aplicação) dá-me este erro:

262a4ua.png

Editado por Retsu9

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Retsu9    13
Retsu9
 Dim abrir As New OpenFileDialog
 TextBox1.Text = Nothing
 abrir.Filter = "*.txt|*.txt"
 If abrir.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
 Dim myfile As String = abrir.FileName
 Dim reader As New System.IO.StreamReader(myfile)
 TextBox1.Text = reader.ReadToEnd
 nome_fich = abrir.FileName

Partilhar esta mensagem


Link 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.