Een veld voor hyperlinks

[Jesse2]

Ik weet dat het mogelijk is om hyperlinks toe te voegen aan knoppen via de code:

Dim strInput As String
strInput = " "
Application.FollowHyperlink strInput, , True
End Sub

nu zou ik graag een veld maken waarin het mogelijk is om hyperlinks toe te voegen als er op deze hyperlinks geklikt word worden deze geopend.
ik ben benieuwt naar de reactie!

 

[OctaFish]

Dat is heel simpel: de FollowHyperlink kun je op elk tekstvak zetten dat je daarvoor wilt gebruiken. Handige optie is bijvoorbeeld de gebeurtenis <Bij Dubbelklikken>. Je opdracht ziet er dan zo uit:

Private Sub Tekstvak_DoubleClick()
   Application.FollowHyperlink Me.Tekstvak.Value, , True
End Sub

 

[Jesse2]

hmm het toevoegen van een bestandslocatie lukt maar het toevoegen van een site werkt niet.
ik krijg de melding deze lactie kan onveilig zijn wilt u doorgaan dan klik ik op ja en dan komt er een foutmelding.
een bestandlocatie is geen probleem.

 

[Tardis]

Gebruik

Application.FollowHyperlink "http://" & Me.naamtekstveld.Text

of, als dat niet werkt, deze

Application.FollowHyperlink "http://" & Me.naamtekstveld

Tardis

 

[Jesse2]

De bovenste code werkt goed voor websites, Het probleem is dat een link van een bestandslocatie het bij die code niet meer doen.

 

[OctaFish]

Tja, een bestand is nu eenmaal iets anders als een website. Als je geen onderscheid kunt maken op basis van de tekst in het tekstvak, heb je een probleem... Je kunt bijvoorbeeld een check doen of de schijfaanduiding in het tekstvak staat. Dat werkt natuurlijk alleen als je die ook opslaat. Het mooiste is als je de inhoud van het tekstvak altijd kunt vertrouwen, i.e. als er een bestandsnaam staat, dat je die gelijk kunt openen omdat het volledige pad (schijf+pad+bestandsnaam) er in staat, en bij een webpagina ook http:// etc.

 

[Jesse2]

het probleem is dat de ene code voor websites werkt en de andere voor bestanden.
ik heb het idee misschien twee vakken te maken één voor websites en één voor bestanden.

 

[OctaFish]

Als ik het zelf test, werkt het alletwee prima. Ik neem in het tekstvak dan wel het volledige pad op (inclusief schijf en mappen), en bij een website zet ik er http:// voor. Dan is één regel code genoeg om zowel een website als een bestand te openen. Zorg er dus voor dat de tekst in het tekstvak volledig is.

 

[Jesse2]

Opgelost!
erg bedankt