GUI 2 Form 1

Imports System.IO

Public Class Form1
    Dim sFileName As String = Application.StartupPath & "\VB.txt"
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myFileStream As New FileStream(sFileName, FileMode.Create, FileAccess.ReadWrite, FileShare.None)
        Dim myWriter As New System.IO.StreamWriter(myFileStream)
        myWriter.WriteLine(RichTextBox1.Text)
        myWriter.Flush()
        myWriter.Close()
        myFileStream.Close()
        RichTextBox1.Text = ""
    End Sub

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




            Dim myFileStream As New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read)
            Dim myReader As New StreamReader(myFileStream)
            Dim sFileContents As String = myReader.ReadToEnd()
            RichTextBox1.Text = sFileContents
            myReader.Close()
            myFileStream.Close()
        Catch ex As FileNotFoundException
            MessageBox.Show("File ga ada coeq")
        Catch ex As Exception
            MessageBox.Show("pokoknya ada error")
        End Try
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        Dim item As ListViewItem
        For Each item In ListView1.SelectedItems
            TextBox1.Text = item.Text
            TextBox2.Text = item.SubItems(1).Text
            TextBox3.Text = item.SubItems(2).Text

        Next
    End Sub

    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        For Each i As ListViewItem In ListView1.SelectedItems
            ListView1.Items.Remove(i)
        Next
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim data(2) As String
        Dim itemList As ListViewItem
        data(0) = TextBox1.Text
        data(1) = TextBox2.Text
        data(2) = TextBox3.Text
        itemList = New ListViewItem(data)
        ListView1.Items.Add(itemList)
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        SaveFileDialog1.initialdirectory = Application.StartupPath
        SaveFileDialog1.Title = "Save Text Files"
        SaveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
        SaveFileDialog1.FilterIndex = 2
        SaveFileDialog1.ShowDialog()

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.InitialDirectory = Application.StartupPath
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Dim item As ListViewItem
        Dim SFileName As String = SaveFileDialog1.FileName
        Dim MyFileStream As New FileStream(SFileName, FileMode.Create, FileAccess.Write, FileShare.None)
        Dim MyWriter As New StreamWriter(MyFileStream)
        For Each item In ListView1.Items
            MyWriter.WriteLine(item.Text & vbTab & item.SubItems(1).Text & vbTab & item.SubItems(2).Text)
            MyWriter.Flush()
        Next
        MyWriter.Close()
        MyFileStream.Close()
        ListView1.Items.Clear()
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim SfileName As String = OpenFileDialog1.FileName.ToString()
        Dim dataPerLine As String = Nothing
        Dim data() As String
        Dim itemlist As ListViewItem
        Dim MyFileStream As FileStream
        MyFileStream = New FileStream(SfileName, FileMode.Open, FileAccess.Read, FileShare.None)
        If MyFileStream.CanRead = True Then
            Dim MyReader As New StreamReader(MyFileStream)
            While (Not MyReader.EndOfStream)
                dataPerLine = MyReader.ReadLine()
                data = dataPerLine.Split(New Char() {Chr(9)})
                itemlist = New ListViewItem(data)
                ListView1.Items.Add(itemlist)

            End While
            MyReader.Close()
            MyFileStream.Close()
        End If


    End Sub

End Class