Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
If Not isRecursive Then
If Not PreviouslySelected = -1 Then
ListView1.Items.Item(PreviouslySelected).BackColor = Color.White
ListView1.Items.Item(PreviouslySelected).ForeColor = Color.Black
End If
If CheckBox1.Checked = True Then
ListView1.SelectedItems(0).BackColor = Color.DodgerBlue
ListView1.SelectedItems(0).ForeColor = Color.White
PreviouslySelected = ListView1.SelectedItems(0).Index
Dim ts = Mid(ListView1.SelectedItems(0).ToString, 16, Len(ListView1.SelectedItems(0).ToString))
ts = ts.Remove(ts.Length - 1)
Try
PictureBox1.Image = Image.FromFile(globaldata & "\Photos\" & ts & ".jpg")
Catch ex As Exception
PictureBox1.Image = Global.WindowsApplication1.My.Resources.Resources.rbphoto
End Try
Me.isRecursive = True
ListView1.SelectedIndices.Clear()
End If
Else
Me.isRecursive = False
End If
End Sub
Private Sub ListView_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Dim ts = Mid(ListView1.SelectedItems(0).ToString, 16, Len(ListView1.SelectedItems(0).ToString))
ts = ts.Remove(ts.Length - 1)
searchForm.receivedDetail = ts
searchForm.Show()
isFrmMainNedded = False
Me.Close()
End Sub