Webrowser hvordan?

i din forms resize event

sætter du

'bredde
webbrowser1.width = me.scalewidth
'højde
webbrowser1.height = me.scaleheight

husk at tage højde for om formen minimeres

dvs

if me.windowstate <> vbminimized then

'sæt størrelse på webbrowseren

end if

//vbcoder

Private Sub Command2_Click()
WebBrowser.GoBack
End Sub

Private Sub Command3_Click()
WebBrowser.GoForward
End Sub

Private Sub Command4_Click()
WebBrowser.Stop
End Sub

Private Sub Command5_Click()
WebBrowser.GoHome
End Sub

Private Sub Form_Load()
WebBrowser.GoHome
End Sub

Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then WebBrowser.Width = Me.ScaleWidth And WebBrowser.Height = Me.ScaleHeight
End Sub

Private Sub go_Click()
WebBrowser.Navigate Navig.Text
End Sub

Private Sub navig_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then WebBrowser.Navigate Navig.Text
 
End Sub



Nu har jeg alt det kode nu kan jeg ikke bruge WebBrowser

så prøv den her:


Private Sub Form_Resize()
Dim intTop As Integer
Dim intLeft As Integer
Dim intWidth As Integer
Dim intHeight As Integer

  intTop = 900 '<- her setter du hvor langt fra topen dit vindue skal være.
  intLeft = 50 '<- her setter du hvor langt fra venstre/højer og bund dit _
                  vindue skal være.

  intWidth = (ScaleWidth - (intLeft * 2))
  intHeight = ((ScaleHeight - intTop) - intLeft)

  If WindowState <> 1 Then

    With WebBrowser1 '<- WebBrowser
        .Top = intTop
        .Left = intLeft
        .Width = intWidth
        If intHeight > 0 Then
          .Height = intHeight
        End If
    End With

  End If
End Sub