[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

[RRice]

one more addition ..i noticed that when i'm in edit mode when i double clicked to open the edit line the check state would change with each double click, so i added this

  Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
      If EditMe = True 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
      End If
   End Sub

This seems to only keep items that are unchecked from becoming checked lol More refinment i guess lol crap doesn't really work at all either grrrr

[RRice]

I'm actually kinda glad this hasnt gotten any reply's yet lol made me think even harder..i scrapped the above so it's only now just for ref..and i focused on the left click first..that is trying to get it stop checking /unchecking when i clicked or double clicked..

using the code provided by Ident i can now start this again..
to stop any all checking left or right clicks i did this.

 Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
    ListViewCheckedState(False)
  End Sub

From here maybe i can sort out all checks and clicks :-)
Course if this doesn't all work out ....er I'll be back hehe

[RRice]

I think i found what i was looking for

not sure if it can be coded a little better or not..but just in case anyone else is looking to do the same thing i was here's what i did.

  Private inhibitAutoCheck As Boolean

  Private Sub listView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
    inhibitAutoCheck = True
  End Sub

  Private Sub ListView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseUp
    inhibitAutoCheck = True
  End Sub

  Private Sub listView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
    If inhibitAutoCheck Then
      If e.CurrentValue = CheckState.Unchecked Then
        e.NewValue = CheckState.Checked
      ElseIf e.CurrentValue = CheckState.Checked Then
        e.NewValue = CheckState.Unchecked
      End If
    End If
  End Sub