HORA AL GUARDAR DATOS EN UN ARCHIVO TXT EN VISUAL BASIC

       

Codigo     Form1.Designer.vb:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>

Partial Class Form1

    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.

    <System.Diagnostics.DebuggerNonUserCode()>

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer. 

    'Do not modify it using the code editor.

    <System.Diagnostics.DebuggerStepThrough()>

    Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.Button2 = New System.Windows.Forms.Button()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.TextBox2 = New System.Windows.Forms.TextBox()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.TextBox3 = New System.Windows.Forms.TextBox()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.TextBox4 = New System.Windows.Forms.TextBox()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.TextBox5 = New System.Windows.Forms.TextBox()

        Me.ListBox1 = New System.Windows.Forms.ListBox()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.Button3 = New System.Windows.Forms.Button()

        Me.TextBox6 = New System.Windows.Forms.TextBox()

        Me.FontDialog1 = New System.Windows.Forms.FontDialog()

        Me.Label7 = New System.Windows.Forms.Label()

        Me.SuspendLayout()

        '

        'Button1

        '

        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button1.Location = New System.Drawing.Point(62, 249)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(112, 41)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "ENVIAR"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Button2

        '

        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button2.Location = New System.Drawing.Point(62, 300)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(112, 36)

        Me.Button2.TabIndex = 1

        Me.Button2.Text = "SALIR"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'TextBox1

        '

        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox1.Location = New System.Drawing.Point(137, 40)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(161, 24)

        Me.TextBox1.TabIndex = 2

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label1.Location = New System.Drawing.Point(13, 39)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(85, 24)

        Me.Label1.TabIndex = 3

        Me.Label1.Text = "Nombre"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label2.Location = New System.Drawing.Point(13, 76)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(87, 24)

        Me.Label2.TabIndex = 5

        Me.Label2.Text = "Apellido"

        '

        'TextBox2

        '

        Me.TextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox2.Location = New System.Drawing.Point(137, 77)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(161, 24)

        Me.TextBox2.TabIndex = 4

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label3.Location = New System.Drawing.Point(13, 114)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(117, 24)

        Me.Label3.TabIndex = 7

        Me.Label3.Text = "Documento"

        '

        'TextBox3

        '

        Me.TextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox3.Location = New System.Drawing.Point(137, 115)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(161, 24)

        Me.TextBox3.TabIndex = 6

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label4.Location = New System.Drawing.Point(13, 155)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(59, 24)

        Me.Label4.TabIndex = 9

        Me.Label4.Text = "Edad"

        '

        'TextBox4

        '

        Me.TextBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox4.Location = New System.Drawing.Point(137, 156)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(161, 24)

        Me.TextBox4.TabIndex = 8

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label5.Location = New System.Drawing.Point(13, 199)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(93, 24)

        Me.Label5.TabIndex = 11

        Me.Label5.Text = "Telefono"

        '

        'TextBox5

        '

        Me.TextBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox5.Location = New System.Drawing.Point(137, 200)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.Size = New System.Drawing.Size(161, 24)

        Me.TextBox5.TabIndex = 10

        '

        'ListBox1

        '

        Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.ListBox1.FormattingEnabled = True

        Me.ListBox1.ItemHeight = 18

        Me.ListBox1.Location = New System.Drawing.Point(391, 13)

        Me.ListBox1.Name = "ListBox1"

        Me.ListBox1.Size = New System.Drawing.Size(257, 220)

        Me.ListBox1.TabIndex = 12

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label6.Location = New System.Drawing.Point(93, -1)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(0, 24)

        Me.Label6.TabIndex = 13

        '

        'Button3

        '

        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))

        Me.Button3.Location = New System.Drawing.Point(460, 300)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(128, 41)

        Me.Button3.TabIndex = 14

        Me.Button3.Text = "GUARDAR"

        Me.Button3.UseVisualStyleBackColor = True

        '

        'TextBox6

        '

        Me.TextBox6.Enabled = False

        Me.TextBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.TextBox6.Location = New System.Drawing.Point(307, 262)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.Size = New System.Drawing.Size(359, 20)

        Me.TextBox6.TabIndex = 15

        Me.TextBox6.Text = "C:\Users\GEOVANNY\Documents\Visual Studio 2015\ab.txt"

        '

        'Label7

        '

        Me.Label7.AutoSize = True

        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Label7.Location = New System.Drawing.Point(243, 263)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(55, 15)

        Me.Label7.TabIndex = 16

        Me.Label7.Text = "RUTA : "

        '

        'Form1

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(669, 353)

        Me.ControlBox = False

        Me.Controls.Add(Me.Label7)

        Me.Controls.Add(Me.TextBox6)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.ListBox1)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.TextBox5)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.TextBox4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.TextBox3)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.Text = "Form1"

        Me.ResumeLayout(False)

        Me.PerformLayout()

    End Sub

    Friend WithEvents Button1 As Button

    Friend WithEvents Button2 As Button

    Friend WithEvents TextBox1 As TextBox

    Friend WithEvents Label1 As Label

    Friend WithEvents Label2 As Label

    Friend WithEvents TextBox2 As TextBox

    Friend WithEvents Label3 As Label

    Friend WithEvents TextBox3 As TextBox

    Friend WithEvents Label4 As Label

    Friend WithEvents TextBox4 As TextBox

    Friend WithEvents Label5 As Label

    Friend WithEvents TextBox5 As TextBox

    Friend WithEvents ListBox1 As ListBox

    Friend WithEvents Label6 As Label

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Label6.Text = DateTime.Now.ToShortTimeString()

    End Sub

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

        ListBox1.Items.Add("-----------------------")

        ListBox1.Items.Add("Nombre:   " & TextBox1.Text)

        ListBox1.Items.Add("Apellido:   " & TextBox2.Text)

        ListBox1.Items.Add("Documento:   " & TextBox3.Text)

        ListBox1.Items.Add("Edad:   " & TextBox4.Text)

        ListBox1.Items.Add("Telefono:   " & TextBox5.Text)

    End Sub

    Friend WithEvents Button3 As Button

    Friend WithEvents TextBox6 As TextBox

    Friend WithEvents FontDialog1 As FontDialog

    Friend WithEvents Label7 As Label

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Dim StreamW As New IO.StreamWriter(TextBox6.Text)

        For i = 0 To ListBox1.Items.Count - 1

            StreamW.WriteLine(ListBox1.Items.Item(i))

        Next

        StreamW.Close()

        StreamW.Dispose()

        MsgBox("guardado con exito")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Label6.Text = DateTime.Now.ToShortTimeString()

        ListBox1.Items.Add(Label6.Text)

        Dim StreamW As New IO.StreamWriter(TextBox6.Text)

        For i = 0 To ListBox1.Items.Count - 1

            StreamW.WriteLine(ListBox1.Items.Item(i))

        Next

        StreamW.Close()

        StreamW.Dispose()

        Close()

        End

    End Sub

End Class