[RESOLVED] Could Someone look this Listview/Edit code over for me

[RRice]

I've got this pretty close to the way i want it to work..but it's still not quit right for some reason..and i know the code is ...well.... crappy lol sorry the switch from vb6 to vb2005 is a bit of a challenge for me.
Before you look the code over here's how i want it to work:

Left Mouse Button Single Click..Nothing more than selecting multiple items
Left Mouse Button Double Click..reserved for opening files from listview
Right Mouse Button Single Click.. Check/UnCheck all Selected items
(Right Mouse Button Single Click can also be used to select and check at same time)
Right Mouse Button Double Click.. Check/UnCheck all items

Below is what i managed to throw together..i'm hoping Ident or someone else here can make heads or tails out of what i got so far..lol and possible show me how to make work 100% the way i want rather than the 50% it's at right now.
oh i should also point out that my coding is well like this..throw something together that works..then refine it..this is non-refined version obviously hehe

I also attached a test pdf so you can fill the ListView with it if you want

Imports System.IO

Public Class Form1
   Dim item As ListViewItem
   Dim CheckAll As Boolean
   Dim CheckMe As Boolean
   Dim A As Long
   Dim Checked As Boolean, CheckedOK As Boolean
   Dim Bip As Integer, Bop As Integer, EditMe As Boolean, I As Long
   Dim SubItem As ListViewItem.ListViewSubItem = Nothing
   Dim Clicker As Boolean
   Private Declare Function ShellExecute _
                   Lib "shell32.dll" _
                   Alias "ShellExecuteA" (ByVal hwnd As Long, _
                                          ByVal lpOperation As String, _
                                          ByVal lpFile As String, _
                                          ByVal lpParameters As String, _
                                          ByVal lpDirectory As String, _
                                          ByVal nShowCmd As Long) As Long

   Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick

      If e.Button = Windows.Forms.MouseButtons.Left Then
         Clicker = False
         CheckAll = False
      End If

      If e.Button = Windows.Forms.MouseButtons.Right Then
         Clicker = True
         If CheckedOK = False Then
            CheckAll = False
            CheckMe = CheckAll
            ListViewCheckedState(True)
            CheckedOK = True
         Else
            CheckAll = False
            CheckMe = CheckAll
            ListViewCheckedState(False)
            CheckedOK = False
            Clicker = False
         End If
         ' Next

      End If

      If TextBox1.Visible = True Then
         'SubItem.Text = TextBox1.Text
         ListView1.Items(Bip).SubItems(Bop).Text = TextBox1.Text
         TextBox1.Visible = False
      End If

   End Sub

    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        Dim HitMe As ListViewHitTestInfo = ListView1.HitTest(e.Location)
        Dim itm As ListViewItem = Me.ListView1.GetItemAt(e.X, e.Y)
        Dim XX As Integer = HitMe.Item.SubItems.IndexOf(HitMe.SubItem)
        Dim info As ListViewHitTestInfo = ListView1.HitTest(e.X, e.Y)
        'itm.Index = Row   XX.ToString = Col Index

      If e.Button = Windows.Forms.MouseButtons.Right Then
         If CheckedOK = False Then
            CheckedOK = True
         ElseIf CheckedOK = True Then
            CheckedOK = False
         End If
         If CheckedOK = False Then
            CheckAll = True
            CheckMe = True
            ListViewCheckedState(False)
            CheckedOK = True
         Else
            CheckAll = True
            CheckMe = False
            ListViewCheckedState(True)
            CheckedOK = False
         End If
         ' Next

      End If


      If EditMe = True Then
         Bip = itm.Index
         Bop = XX
         If XX > 0 Then
            TextBox1.Visible = True
            SubItem = info.Item.GetSubItemAt(e.X, e.Y)
            TextBox1.Top = SubItem.Bounds.Y + 26
            TextBox1.Left = SubItem.Bounds.X + 12
            TextBox1.Height = SubItem.Bounds.Size.Height
            TextBox1.Width = SubItem.Bounds.Width + 3

            TextBox1.Text = SubItem.Text
         Else
            TextBox1.Visible = True
            itm = ListView1.GetItemAt(e.X, e.Y)
            TextBox1.Left = itm.Bounds.X + 36
            TextBox1.Top = itm.Bounds.Y + 26
            TextBox1.Height = itm.Bounds.Size.Height
            TextBox1.Width = ListView1.Columns(0).Width - 23

            TextBox1.Text = itm.Text
         End If
      End If

    End Sub

   Private Sub ListViewCheckedState(ByVal Checked As String)
      If CheckAll = True Then
         For Each item As ListViewItem In ListView1.Items
            If CheckedOK = True Then
               item.Checked = True
            ElseIf CheckedOK = False Then
               item.Checked = False
            End If
         Next
      Else

         For Each item As ListViewItem In ListView1.SelectedItems
            If CheckedOK = True Then
               item.Checked = True
            Else
               item.Checked = False
            End If
         Next
      End If
   End Sub

    Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck

      If CheckAll = True Then

         If CheckedOK = True Then
            e.NewValue = CheckState.Checked
         ElseIf CheckedOK = False Then
            e.NewValue = CheckState.Unchecked
         End If

      ElseIf Clicker = False Then
         If ListView1.SelectedItems.Count > 1 Then
            For Each item As ListViewItem In ListView1.SelectedItems
               If item.Checked = False Then
                  e.NewValue = CheckState.Unchecked
               Else
                  e.NewValue = CheckState.Checked
               End If
            Next
         End If
      ElseIf Clicker = True Then
         If CheckedOK = False Then
            e.NewValue = CheckState.Unchecked
         Else
            e.NewValue = CheckState.Checked
         End If
      End If
   End Sub
 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.Columns.Add("ModelNumber", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("Document", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("ProductType", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("ByteSize", 0, HorizontalAlignment.Left)
        ListView1.Columns.Add("FileSize", 100, HorizontalAlignment.Right)
        ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Location", 0, HorizontalAlignment.Left)
        ListView1.Columns.Add("CrC32", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("FileName", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("WebLink", 0, HorizontalAlignment.Left)

    End Sub

    Private Sub CmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEdit.Click
        If CmdEdit.Text = "Edit Off" Then
            EditMe = True
            CmdEdit.Text = "Edit On"
        ElseIf CmdEdit.Text = "Edit On" Then
            EditMe = False
            CmdEdit.Text = "Edit Off"
        End If
    End Sub

    Private Sub CmdLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLoad.Click
        OpenFileDialog1.ShowDialog()
        Dim filepath As String = OpenFileDialog1.FileName
        Dim inputstream As New IO.StreamReader(filepath)
        Dim newstr() As String

        Do While inputstream.Peek <> -1

            newstr = inputstream.ReadLine().Split("|")

            ListView1.Items.Add(newstr(0))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(1))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(2))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(3))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(4))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(5))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(6))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(7))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(8))
            Me.ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(newstr(9))
        Loop

        inputstream.Close()
    End Sub
End Class