Browsercontrol: code

• Voor het positioneren van de browser, in de Resize gebeurtenis van het formulier.
  
  With brwBrowser
  .Top = 0
  .Left = 0
  .Width = Me.Width - 200 'om de randen wat te laten uitkomen
  .Height = Me.Height - 600
  End With
  
• Voor het navigeren:
  
  Dim URL As String
  URL = InputBox("Geef het adres", , "http://")
  If Not URL = "" Then brwBrowser.Navigate2 URL
  
• Natuurlijk willen we de titel van het document tonen, wat we deon bij NavigateComplete2
  
  Dim titel As String
  titel = brwBrowser.Document.Title
  If titel = "" Then titel = brwBrowser.Document.URL
  Me.Caption = brwBrowser.Document.Title
  
• Om een nieuw venster te openen:
  
  Private Sub mnuFileNew_Click()
  Dim frm As New frmMain
  Load frm
  frm.Show
  End Sub
  
  En om het actieve venster te sluiten
  
  Unload Me
  
• De navigeringsopdrachten zijn methodes van de browser:
  
  Private Sub mnuGoBack_Click()
  brwBrowser.GoBack
  End Sub
  
  Private Sub mnuGoForward_Click()
  brwBrowser.GoForward
  End Sub
  
  Private Sub mnuGoHome_Click()
  brwBrowser.GoHome
  End Sub
  
  Private Sub mnuGoSearch_Click()
  brwBrowser.GoSearch
  End Sub
  
  En eigenlijk moeten we daar foutenafhandeling bij doen. Probeer maar eens.
  

[VB Web] - [hlrnet] - [copyright]