rl28

Membros
  • Content Count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutro

About rl28

  1. Boa noite, Criei um código em vb.net onde recebe dados de 2 textbox e salva em um .txt,porém, só esta salvando uma linha no txt e cada vez que insiro um novo dado, substitui a linha que já estava inserida, podem me ajudar? Precisava algo que criasse uma nova linha e salvasse as novas informações, mantendo as últimas. Segue código abaixo: Public Class frmTransacao Dim Writer As System.IO.StreamWriter Dim acao As String Private Sub btninserir_Click(sender As Object, e As EventArgs) Handles btninserir.Click 'Grava arquivo txt com os campos "codigo e descricao" buscando o nome do arquivo o mesmo do form/tela' Writer = New IO.StreamWriter("C: \Users\rl\Desktop\" & Me.Text & ".txt") acao = btninserir.Text Writer.WriteLine("Código:" & textcodigo.Text & Space(1) & "Decrição:" & textdescricao.Text & Space(1) & "Ação:" & btninserir.Text) textcodigo.Text = String.Empty textdescricao.Text = String.Empty MessageBox.Show("Dados Salvos com Sucesso!") Writer.Close() End Sub
  2. Boa noite, Estou querendo ler todos arquivos que meu sistema gerou na minha máquina no formato .txt e carregar os mesmos em uma gridview, assim deixando apenas uma tela de consulta dos dados salvos nos arquivos txt, porém, meu código não está conseguindo consultar os arquivos, abaixo código: Public Class formListaTransacao Private Sub formListaTransacao_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dt As New DataTable dt.Columns.Add("Código") dt.Columns.Add("Descrição") dt.Columns.Add("Ação") Dim Arquivo As New System.IO.StreamReader("C:\Users\rl\Desktop\" & Me.Text & ".txt", System.Text.Encoding.Default) While Arquivo.Peek() <> -1 dt.Rows.Add(Arquivo.ReadLine()) End While DataGridView2.DataSource = dt End Sub Tela do gridview: Informação que consta no txt e que deve carregar no gridview:
  3. Boa noite!Andei procurando em alguns fóruns a respeito de alterar a informação do text da form, mas não encontrei muita coisa. Por exemplo, cada vez que clico em uma ação/botão, ele abre um form, só que traz o nome que informei nas propriedades, gostaria que cada vez que eu abrisse a form, mostrasse o nome diferente de cada uma, assim consigo controlar cada transação que estiver aberta.Abri um form, tela 1, chamei de novo, tela 2 e assim por diante.. Montei um código mas está dando erro, vi em um fórum a dica, mas no meu carro não consegui fazer rodar ainda..segue abaixo:Public Class Principal Public formularios As New Collection Private Sub Button2_Click(sender As Object, e As EventArgs) Handles abretransacao.Click Dim Form As New Form() Static intnumero As Integer intnumero = intnumero + 1 Form.Caption = "Formulário # " & intnumero ---- aqui onde está dando erro, informando que é uma expressão e por isso não pode ser um destino de uma atribuição Form.Show() End SubCódigo original que peguei:Public formularios As New CollectionPrivate Sub Command1_Click()Dim NovoForm As New Form1Static intnumero As Integer intnumero = intnumero + 1 NovoForm.Caption = "Formulário # " & intnumero NovoForm.BackColor = QBColor(intnumero) formularios.Add NovoForm NovoForm.ShowEnd Sub