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:
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.
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.