[VB6] Text in Textbox als Link

[hoschi111]

Hi Leute,
brauche mal wieder hilfe, und zwar, möchte ich den Text in einer Textbox mit dem Standartmäßigen Browser verknüpfen.
Also, dass, wenn man auf den Text in der Textbox klickt, man direkt in seinem Browser auf die Seite gelinkt wird.
(in der Textbox steht "Greetz to Free-Hack.com" )

Hoffe ihr habt mich verstanden und danke schonmal!

[nom]

für ie hätte ich was hier:

Private Sub Text1_Click()
shell("explorer.exe http://free-hack.com")
End Sub

für standart Browser kA aber muss halt in Text1_Click() rein

[hoschi111]

Danke dir.
(Bitte noch nicht Closen)

[Trii]

Dann kannst du natürlich noch die Farbe des Links ändern damit jeder sieht das es ein Link ist (Standart: Blau).

[hoschi111]

Jop, shell (explorer.exe yxz) ist der Standartbrowser

[Sawyer]

also diese Methode ist zwar kurz , ABER normal kann man den standardbrowser (oder besser gesagt eine Seite im Standartbrowser) mittels API aufrufen

aber das geht eben auch

MfG

[wond9R]

ich mach das immer mit nem button,sieht dann so aus:

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 Result&, Buff$
Buff = "http://www.deineseite.de"
Result = ShellExecute(0&, "Open", Buff, "", "", 1)

[hoschi111]

Super Lösung, danke, es funktioniert!!