Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VB 6.0 Hoe maak je een blauwe link naar een webpagina

Anoniem
Wout
11 antwoorden
  • 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?
  • 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…
  • [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:
  • [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
  • Ik mis een leuke opmerking van Wiep
  • [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…
  • [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 ???
  • 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]
  • ik dacht al :D
  • 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.
  • Dat werkt prima en is beter dan shell, bedankt

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.