TEXTBOX

SANCHESPS 09/11/2012 14:07:55
#413907
SANCHESPS 09/11/2012 14:13:54
#413908
Preciso de ajuda para colocar a informação da textbox uma abaixo da outra alguém pode me ajudar ?
ALTAIR148 09/11/2012 14:19:15
#413909
Como assim?
SANCHESPS 09/11/2012 14:21:40
#413910
eu digito dentro da textbox ela não fica abaixo uma da outra ela salva um do lado do outro
não uso banco de dados salvo em txt .
MADMAX 09/11/2012 14:26:16
#413912
coloca um enter entre as informações

olhe um exemplo

Program that uses vbCrLf [VB.NET]

Module Module1
Sub Main()
[ô] Use vbCrLf.
Dim value As String = [Ô][First[Ô] & vbCrLf & [Ô]Second][Ô]
[ô] Write to console.
Console.WriteLine(value)
End Sub
End Module

Output

[First
Second]
ALTAIR148 09/11/2012 14:26:31
#413913
Poste o código que esta usando.
SANCHESPS 09/11/2012 14:29:30
#413915
galera o código que usei foi esse

------------------------------
Public Class Form1

Private Property print As Object

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim salvarComo As SaveFileDialog = New SaveFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamWriter
Dim Arquivo As String

salvarComo.CheckFileExists = False
salvarComo.Title = [Ô]Arquivos Textos [Ô]
salvarComo.Filter = [Ô]Text files (*.txt)|*.txt|All files (*.*)|*.*[Ô]
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName

If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamWriter(Arquivo)
fluxoTexto.Write(TextBox1.Text)
fluxoTexto.Write(TextBox2.Text)
fluxoTexto.Write(TextBox3.Text)
fluxoTexto.Write(DateTimePicker1.Text)
fluxoTexto.Close()
End If

End Sub
ALTAIR148 09/11/2012 14:35:20
#413917 
 Else
            fluxoTexto = New IO.StreamWriter(Arquivo)
            fluxoTexto.WriteLine(TextBox1.Text)
            fluxoTexto.WriteLine(TextBox2.Text)
            fluxoTexto.WriteLine(TextBox3.Text)
            fluxoTexto.WriteLine(DateTimePicker1.Text)
            fluxoTexto.Close()
        End If
SANCHESPS 09/11/2012 14:44:54
#413919
ALTAIR148
AINDA DA O MESMO ERRO
ALTAIR148 09/11/2012 14:47:45
#413921
Poste ai como ficou.
SANCHESPS 09/11/2012 14:50:41
#413922
Public Class Form1

End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click()

Dim salvarComo As SaveFileDialog = New SaveFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamWriter
Dim Arquivo As String

salvarComo.CheckFileExists = False
salvarComo.Title = [Ô]Arquivos Textos [Ô]
salvarComo.Filter = [Ô]Text files (*.txt)|*.txt|All files (*.*)|*.*[Ô]
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName

If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamWriter(Arquivo)
fluxoTexto.WriteLine(TextBox1.Text)
fluxoTexto.WriteLine(TextBox2.Text)
fluxoTexto.WriteLine(TextBox3.Text)
fluxoTexto.WriteLine(DateTimePicker1.Text)
fluxoTexto.Close()
End If

End Sub
Página 1 de 3 [23 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar