URL openen

Status
Niet open voor verdere reacties.

bonnowagt

Gebruiker
Lid geworden
7 dec 2006
Berichten
445
Ik heb in een richtextbox.text een url staan die ik wil openen. In de programmeerversie lukt het prima maar zodra ik compileer lukt het niet.

Ik heb diverse manieren geprobeerd te weten:
Code:
Dim webAddress As String = RichTextBox1.Text
        Process.Start(webAddress)

Code:
CreateObject("Wscript.Shell").Run(RichTextBox1.Text)

Code:
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 Sub Command1_Click()
   Dim r As Long
   r = ShellExecute(0, "open",richtextbox1.text, 0, 0, 1)
End Sub

Code:
Diagnostics.Process.Start(RichTextBox1.Text(e.LinkText))

Alle drie codes werken in de programmeerstand maar nit in de compile versie.


Echter, wat ik niet begrijp. Ik heb elders in het programma de laatste mgoelijkheid staan en dan werkt het wel in beide standen.
 
Toch inmiddels uitgevonden. Voor wie er iets aan heeft:
Code:
 Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click
        Dim URL As String
        Dim browser As String = RichTextBox1.Text
        URL = RichTextBox1.Text
        Try
            If Not (browser = RichTextBox1.Text) Then
                Try
                    Process.Start(browser, URL)
                Catch ex As Exception
                    Process.Start(URL)
                End Try
            Else
                Process.Start(URL)
            End If

        Catch ex As Exception
            MsgBox("Deze URL werkt niet")
        End Try
    End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan