VB 6.0 Hoe maak je een blauwe link naar een webpagina

[anoniem]

Ik wil een blauwe link in mijn programma hebben, hoe kan ik dit doen, bij label zie ik niets zitten. Ik heb bij components zitten zoeken en vond daarmicrosoft tranfere protocol, wat kan ik hier mee?

[anoniem]

Labeltje, underline aan, blauw als kleur kiezen, dan in label1_click het volgende zetten: [code:1:737bcdabd9]x=shell("http://fourm.computertotaal.nl")[/code:1:737bcdabd9] Werkt altijd, behalve als de persoon in kwestie geen browser heeft...

[anoniem]

[quote:20cd1e15fa="webspider"]Labeltje, underline aan, blauw als kleur kiezen, dan in label1_click het volgende zetten: [code:1:20cd1e15fa]x=shell("http://fourm.computertotaal.nl")[/code:1:20cd1e15fa] Werkt altijd, behalve als de persoon in kwestie geen browser heeft...[/quote:20cd1e15fa] Dan zal op het scherm van die persoon in kwestie een verkenner venstertje in beeld komen met welk programma de persoon in kwestie het adres wil openen.... :lol:

[anoniem]

[quote:bc19866fdc="Johan Stokking"][quote:bc19866fdc="webspider"]Labeltje, underline aan, blauw als kleur kiezen, dan in label1_click het volgende zetten: [code:1:bc19866fdc]x=shell("http://fourm.computertotaal.nl")[/code:1:bc19866fdc] Werkt altijd, behalve als de persoon in kwestie geen browser heeft...[/quote:bc19866fdc] Dan zal op het scherm van die persoon in kwestie een verkenner venstertje in beeld komen met welk programma de persoon in kwestie het adres wil openen.... :lol:[/quote:bc19866fdc] Maar goed, we praten over VB 6.0, dus de meeste mensen hebben wel een browser denk ik :D

[anoniem]

Ik mis een leuke opmerking van Wiep

[anoniem]

[quote:8ac5bfdda5="Johan Stokking"]Ik mis een leuke opmerking van Wiep[/quote:8ac5bfdda5]Ik mis geen domme, nergens op slaande opmerking van Johan :roll: Leg mij maar eens uit (per e-mail/PB, niet hier) waar dit soort opmerkingen in _vredesnaam_ op slaan...

[anoniem]

[code:1:e76510c284] Private Sub Label3_Click() x = Shell("http://www.hotmail.com") End Sub [/code:1:e76510c284] run-time error: 53 file Not found erhm? huh ???

[anoniem]

Shell zoekt naar een commando, een uitvoerbaar bestand en het kan niet overweg met een webpagina. Wat je wel kunt doen is het volgende [code:1:7d987bfa85]shell "C:\Program Files\Internet Explorer\iexplore.exe www.hotmail.com"[/code:1:7d987bfa85]

[anoniem]

ik dacht al :D

[anoniem]

Beter is nog om: [code:1:06a25c13e4] 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_HIDE = 0 Private Const SW_NORMAL = 1 Private Const SW_MAXIMIZE = 3 Private Const SW_MINIMIZE = 6 Private Sub Label1_Click() ShellExecute hWnd, "open", "http://www.jouwsite.nl/", vbNullChar, vbNullChar, SW_NORMAL End Sub [/code:1:06a25c13e4] te gebruiken, hierdoor krijg je geen runtime error 53 en hoef je ook niet op te zoeken waar de browser zich op de harde schijf bevindt. Zie www.vbwereld.nl -> programmacode -> voorbeeld-projecten -> hyperlink, hier vind je ook muiscursors waardoor je link ook echt een handje heeft.

[anoniem]

Dat werkt prima en is beter dan shell, bedankt

[anoniem]

[knip]