Tekst in TextBox omzetten in een hyperlink

[arnose09]

Na lang zoeken toch maar even deze posten.

Zie mijn bijgesloten bestand.

Ik wil de tekst in de TekstBox als hyperlink weergeven. Kan dat?

Bekijk bijlage hyperlink.xlsm

 

[abracadaver909]

Hoi,

Het is me nog niet helemaal duidelijk, maar volgens mij bedoel je zoiets:

TextBox1.Text = "http://www." & TextBox1.Text

Als je dit toevoegd achter de knop en bijvoorbeeld "hotmail.com" invult en op de knop drukt, dan zou de text in de textbox van "hotmail.com" naar "http://www.hotmail.com" moeten veranderen.
En daarna natuurlijk de andere commands achter de knop uitvoeren.

Ik hoop dat je hier wat aan hebt.

Met vriendelijke groet,

Chris Verschoor

 

[arnose09]

Hoi,

Het is me nog niet helemaal duidelijk, maar volgens mij bedoel je zoiets:

TextBox1.Text = "http://www." & TextBox1.Text

Dank maar dit is niet wat ik bedoel.

In het bestandje opent een formulier. De gebruiker klikt op 'Selecteer' waarna er een verkenner scherm wordt geopend.

Nu selecteert de gebruiker een bestand en klikt op 'Openen'.

De link naar de file wordt nu in de TextBox ernaast weergegeven maar als gewone tekst.

Mijn vraag is nu, kan de TextBox deze bestandsnaam met pad weergeven als (hyper)link in de TexBox? (Als je klikt op de link in de TextBox van het UserForm, wordt het bestand geopend).

 

[abracadaver909]

Hallo,

Ok. Ja, dan gaat mijn uitleg het niet worden, he?
Probeer anders te google-en op Filesearch in VB. Volgens mij komt daar cat wel een stukje codering boven om de gevonden bestanden met pad in een lijst te plaatsen.

Ik zou het voor de rest ook niet weten, mijn skills zijn nog te klein daarvoor.

Veel succes ermee!

Mvg,
Chris Verschoor

 

[arnose09]

Dank Chris, ik heb gisteren ook al lopen zoeken naar een dergelijk stukje code maar helaas niet gevonden.

Is er misschien iemand anders die hier wat mee kan?

 

[arnose09]

Probleem opgelost door de volgende code te gebruiken:

Private Sub FILELINK_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then ThisWorkbook.FollowHyperlink FILELINK
End Sub

De eigenschappen van de TextBox heb ik vervolgens aangepast in blauw onderstreept om het er ook als een hyperlink te doen uitzien.