Hvordan åpne en webside fra vb?

[Nerdiboy]

Topic sier vel det meste...

[jan rune]

Er ikke helt rå i visual basic, men her er litt kode...

 

 

Public test As String

Dim mbDontNavigateNow As Boolean

Private Sub Form_Load()

On Error Resume Next

Me.Show

tbToolBar.Refresh

Form_Resize

startside = "http://dokumenter.mine.nu/"

cboAddress.Move 50, lblAddress.Top + lblAddress.Height + 15

 

 

If Len(startside) > 0 Then

cboAddress.Text = (startside)

cboAddress.AddItem cboAddress.Text

startside = "http://dokumenter.mine.nu/trening/index.php"

'try to navigate to the starting address

timTimer.Enabled = True

brwWebBrowser.Navigate (startside)

End If

 

 

End Sub

 

 

 

Private Sub brwWebBrowser_DownloadComplete()

On Error Resume Next

Me.Caption = brwWebBrowser.LocationName

End Sub

 

 

Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

Dim i As Integer

Dim bFound As Boolean

Me.Caption = brwWebBrowser.LocationName

For i = 0 To cboAddress.ListCount - 1

If cboAddress.List(i) = brwWebBrowser.LocationURL Then

bFound = True

Exit For

End If

Next i

mbDontNavigateNow = True

If bFound Then

cboAddress.RemoveItem i

End If

cboAddress.AddItem brwWebBrowser.LocationURL, 0

cboAddress.ListIndex = 0

mbDontNavigateNow = False

End Sub

 

 

Private Sub cboAddress_Click()

If mbDontNavigateNow Then Exit Sub

timTimer.Enabled = True

brwWebBrowser.Navigate cboAddress.Text

End Sub

 

 

Private Sub cboAddress_KeyPress(KeyAscii As Integer)

On Error Resume Next

If KeyAscii = vbKeyReturn Then

cboAddress_Click

End If

End Sub

 

 

Private Sub Form_Resize()

On Error Resume Next

cboAddress.Width = Me.ScaleWidth - 100

brwWebBrowser.Width = Me.ScaleWidth - 100

brwWebBrowser.Height = Me.ScaleHeight - (picAddress.Top + picAddress.Height) - 100

End Sub

 

 

Private Sub statistikk_Click()

 

 

 

End Sub

 

Private Sub timTimer_Timer()

If brwWebBrowser.Busy = False Then

timTimer.Enabled = False

 

Me.Caption = brwWebBrowser.LocationName

Else

 

Me.Caption = "Laster..."

End If

End Sub

 

 

Private Sub tbToolBar_ButtonClick(ByVal Button As Button)

On Error Resume Next

 

 

timTimer.Enabled = True

 

 

Select Case Button.Key

Case "Back"

brwWebBrowser.GoBack

Case "Forward"

brwWebBrowser.GoForward

Case "Refresh"

brwWebBrowser.Refresh

Case "statestikk"

webserver = "http://dokumenter.mine.nu/trening/statestikk.php"

brwWebBrowser.Navigate (webserver)

Case "rekorder"

webserver = "http://dokumenter.mine.nu/trening/rekorder.php"

brwWebBrowser.Navigate (webserver)

Case "stopp"

webserver = "http://dokumenter.mine.nu/trening/stopp.php"

brwWebBrowser.Navigate (webserver)

Case "start"

webserver = "http://dokumenter.mine.nu/trening/index.php"

brwWebBrowser.Navigate (webserver)

Case "mat"

webserver = "http://dokumenter.mine.nu/trening/mattips.html"

brwWebBrowser.Navigate (webserver)

End Select

 

 

End Sub

 

Private Sub trening_Click(Index As Integer)

 

End Sub

[Rep]

Hvis du mener å bare åpne en webside fra VB i standard web browser, og ikke i en browser inne i vb programmet ditt som jan rune sikter til. Kan du bruke dette kode eksemplet.

 

Option Explicit

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 Const SW_NORMAL = 1

 

Private Sub Command1_Click()

ShellExecute hwnd, "Open", "http://www.hardware.no", "", "", SW_NORMAL

End Sub

 

ShelleExecute kommandoen kan du også bruke til å åpne alle type filer i det programmet de er registrert å bli åpnet i.

 

(Redigert pga av en liten bug i kode eksemplet:)

 

[ Denne Melding var redigert av: Rep på 2002-08-26 00:17 ]