making a SAVE AS to save text boxes in a windows form VB2010 Express

flexcom · July 19th, 2011, 11:58 AM

i am making a program that has 5 text boxes (TextBox1-TextBox5) and i am wanting to be able to click a save button and it pop up a SaveFileDialog asking me where i want to save the file and under what name. (Kart Setup 7-9-2011) then at a later date be able to fill in the text boxes and push the save button and it ask me again where to save it, so that i am making a new text file for each time i push save. Then if need be i want to be able to push a OpenFileDialog button and open the text files placing the info from the TextBox1 back in TextBox1 and so forth down the line of text boxes. I am new to visual basic i am in dear need of some help on this.
Thank you all for any help

GeneBuchite · July 28th, 2011, 08:36 AM

Open A New Project, Locate The Dialog tab in the toolbox. Drag OpenFileDialog & SaveFileDialog OnTo The Form. Copy & Paste text Over all text in Form1.vb. PLace 5 Text boxes on the form. Then PLace 2 Buttons on the Form

When you run the Program it should work as advertised.. if not repost any other questions.

Code:

 Imports System.IO


Public Class Form1
    Dim ires As Integer = 0
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ires = InputBox("Save Which TextBox " & vbCrLf & " Enter A NUmber Between 1 and 6... 6 Being All Boxes", " Enter A Number 1-6")
        If ires < 1 Or ires > 6 Then Exit Sub

        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim myStream As New StreamWriter(SaveFileDialog1.FileName, True)
            Select Case ResizeRedraw
                Case 1
                    myStream.Write(TextBox1.Text)
                Case 2
                    myStream.Write(TextBox2.Text)
                Case 3
                    myStream.Write(TextBox3.Text)
                Case 4
                    myStream.Write(TextBox4.Text)
                Case 5
                    myStream.Write(TextBox5.Text)
                Case 6
                    MsgBox(" Place a Do Loop Code Here To Loop 6 Times And Either Prompt 5 times FOr a Filename Or INcerment File Name For Each TextBox")

            End Select

            myStream.Close()

        End If


    End Sub



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

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Dim myReader As New StreamReader(OpenFileDialog1.FileName)
            TextBox1.Text = myReader.ReadToEnd
            myReader.Close()

        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        TextBox1.Multiline = True
        TextBox1.Size = New Size(500, 500)

        TextBox2.Multiline = True
        TextBox2.Size = New Size(500, 500)
        TextBox3.Multiline = True
        TextBox3.Size = New Size(500, 500)
        TextBox4.Multiline = True
        TextBox4.Size = New Size(500, 500)
        TextBox5.Multiline = True
        TextBox5.Size = New Size(500, 500)
    End Sub
End Class

The Magic is in the top line " Imports System.IO" Which Sets the reference to The Input/Output Streams.

Just be sure to space the textboxes plenty far apart!

Good Luck