Maintain selecting Listview after navigating Webbrowser

[Vizier87]

Hi guys,

I have been migrating my VB2010 solutions to VS2013 and found a little..... inconvenience in the new platform. I was using a Listview to navigate through .pdf documents on a WebBrowser and it worked okay. However, in the current environment, (which I'm not sure whether pertinent to the behavior of the program), here's the problem>>

The WebBrowser, after navigating a document, keeps on being selected. I have tried to always return to selecting the Listview as the main browsing tool as I would like to browse through the documents by just pressing the "down" button of the keyboard. It looks like this:

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
       
        WebBrowser1.Navigate(Path & "\" & ListView1.FocusedItem.Text())
        ListView1.Select()
 
End Sub

I also tried using ListView1.Select() upon DocumentCompleted or Navigated, but it doesn't work.

Any suggestions? Thanks.

Vizier87

[.paul.]

Try putting the ListView1.Select() in the WebBrowser_DocumentCompleted event.

[Vizier87]

Well as stated in the first post it didn't work. Any other suggestions?

[.paul.]

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
        ListView1.Select()
    End If
End Sub

[Vizier87]

Hi Paul, it still didn't work. I'm pretty confused here. However, if I did it like this:

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        MsgBox("")
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then ListView1.Select()
    End Sub

Then the listview will be selected. I suppose the MessageBox "exits" the selection of the Webbrowser but I don't know why

If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then ListView1.Select()

only didn't work.

[IanRyder]

Hi,

Are you sure you have provided all the relevant information here about the errors that you may be getting? I have just tried what you are doing and the initial thing that struck me is that you are not checking to make sure an item is selected in the ListView before you use the FocusedItem Property.

What happens when you move to different items in the ListView is that the current selected item is deselected which raises the SelectedIndexChanged Event and then the new item is selected which again raises the SelectedIndexedChanged event. Due to this you need to make sure that an item is selected in the ListView before you use it and one way to do this is to check the SelectedIndicies property.

The next thing to realise is that the ListView control does not lose the Focus when you navigate to the selected file in a WebBrowser in this way and therefore there is no need to call the ListViews’s Select Method. Have a play with this which works fine for me:-

'Create a ListView with a Header and some PDF Items
With ListView1
  .View = View.Details
  .Columns.Add(New ColumnHeader With {.Text = "URL", .Width = -2})
  .Items.Add(New ListViewItem("PDFDoc1.pdf"))
  .Items.Add(New ListViewItem("PDFDoc2.pdf"))
  .Items.Add(New ListViewItem("PDFDoc3.pdf"))
End With
 
'Navigate to a file if an item is selected in the ListView - Notice that the Control does NOT Lose Focus
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
  If ListView1.SelectedIndices.Count > 0 Then
    Dim Path As String = "c:\temp"
    WebBrowser1.Navigate(Path & "\" & ListView1.SelectedItems(0).Text())
  End If
End Sub

I hope that helps.

Cheers,

Ian

[Vizier87]

Hi Ian, thanks a lot for the input. I did realize SelectedIndexChanged event will be raised twice for this case. I changed my code to this as you suggested:

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
        
        If ListView1.SelectedIndices.Count > 0 Then
            WebBrowser1.Navigate(Path & "\" & ListView1.FocusedItem.Text())
        End If
 
    End Sub

And it still happened. As I rolled my scroller on my mouse after clicking on an item on the Listview (with the intent of scrolling down the Listview), but after the document finishes loading the Webbrowser is the one which gets to be scrolled. It's driving me crazy.

However, I do have something. I wrote this to check the DocumentCompleted event like this:

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then MsgBox("")
End Sub

....the blank message box doesn't appear after loading the .pdf after I selected an item on the Listview!

Appreciate your help bros. Cheers.