Auteur Topic: Textbox (gelezen 1825 keer)

Sunnybat · « **Gepost op:** 30 januari 2026, 21:27:59 »

Hoi,

een klein maar moeilijke vraagje, ik gebruik

If Left(TextBox1.Text, 1) = "C" Then .foto.Picture = LoadPicture("D:\C\" & t_range(1) & ".jpg")
If Left(TextBox1.Text, 1) = "P" Then .foto.Picture = LoadPicture("D:\P\" & t_range(1) & ".jpg")

als er in textbox1 de eerste text begin met C dan zoek hij de text die in textbox1 staat, BV C1 dan zoek hij op hdd in D:\C\ naar C1.jpg en laat die zien
staat er text Cola dan zoek hij op D:\C\Cola.jpg
dit is het zelfde als erin Textbox1 een text staat dit begin met letter P BV Peer dan zoek hij op D:\P\ naar Peer.jpg

nu is de vraag met deze formule

Code: [Selecteer]

Private Sub TextBox18_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     If Button = 1 Then ThisWorkbook.FollowHyperlink "D:\TXT\" & TextBox18 & ".txt"
End Sub

hier maakt het niet uit wat er staat hij zoekt altijd in D:\TXT naar wat er staat in Textbox18 dus staat er peer of appel dan zoek hij peer.txt of appel.txt in D:\TXT\
doe je dubbel klik in Textbox18 waar de text staat dan opend hij de txt ( in Notepad of kladblok ) die in Textbox18 staat
nu is de vraag als de text ook met C begin dus Cola of Cees dat hij deze zoek in d:\C\ en als de text begint met P Peer of Patat dat hij de text zoek in D:\P\

alsvast weer super bedankt

SoftAid · « **Reactie #1 Gepost op:** 30 januari 2026, 21:41:44 »

Sunnybat,

die .txt-bestanden opzoeken via macro gaat hetzelfde als je .jpg's opzoeken, je kan misschien best via SELECT Case werken (alhoewel het ook kan met een "If-IF-Else-Else-End If kan):

Code: [Selecteer]

Private Sub TextBox18_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button <> 1 Then Exit Sub

    Dim s As String
    s = TextBox18.Text

    Select Case UCase(Left(s, 1))
        Case "C"
            ThisWorkbook.FollowHyperlink "D:\C\" & s & ".txt"
        Case "P"
            ThisWorkbook.FollowHyperlink "D:\P\" & s & ".txt"
        Case Else
            ThisWorkbook.FollowHyperlink "D:\TXT\" & s & ".txt"
    End Select

End Sub

Test deze eens uit bij jou....

SoftAid

Sunnybat · « **Reactie #2 Gepost op:** 30 januari 2026, 21:56:40 »

@SoftAid

Nou niet te geloven dit is echt SUPER $_/-\o_$ $_/-\o_$ $_/-\o_$
precies wat ik ( nee de bejaardenhuis ) zocht
werkt perfect, super bedankt ook namen de 65++

SoftAid · « **Reactie #3 Gepost op:** 30 januari 2026, 22:23:16 »

Graag gedaan,

het is vandaag mijn 77 ste verjaardag, dus nog een goede nacht aan mijn collega's 65+- sers daar...

SoftAid

Haije · « **Reactie #4 Gepost op:** 31 januari 2026, 13:13:13 »

Nog van harte gefeliciteerd 💐

SoftAid · « **Reactie #5 Gepost op:** 31 januari 2026, 16:13:26 »

Dank je wel, Haije.

RedHead · « **Reactie #6 Gepost op:** 01 februari 2026, 16:17:46 »

Whoopssss... misbruik van een draadje, maar ook van mij nog van harte gefeliciteerd met je 77ste verjaardag op de 30ste. Respect hoor om dan zo nog met zo'n helpsite bezig te zijn. $\o/$

RedHead · « **Reactie #7 Gepost op:** 01 februari 2026, 16:29:29 »

En nu weer On-topic...

Sunnybat, heb je alleen die 2 "smaakjes" met C en P? Of moet er altijd worden gezocht op de 1e letter van het product dat je daar hebt staan? En heb je dus op D:\ mappen met alle letters van het alfabet? Want dan zou ik voor zoiets gaan...

Code: [Selecteer]

Private Sub TextBox18_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Button <> 1 Then Exit Sub

    Dim s As String
    s = TextBox18.Text

    ThisWorkbook.FollowHyperlink "D:\" & Ucase(Left(s, 1)) & "\" & s & ".txt"

End Sub

SoftAid · « **Reactie #8 Gepost op:** 01 februari 2026, 19:48:38 »

Hallo Leo,

"" ...... om dan zo nog met zo'n helpsite bezig te zijn....""

Dat is een hobby, hé... Andere mensen moeten betalen voor hun hobby te kunnen bedrijven, en ik kan lekker achter mijn PC blijven zitten (Als ik niet in de tuin aan het werken ben. Zeker bedankt voor de felicitaties. Was niet de bedoeling om in de belangstelling te staan. Door die verwijzing van Sunnybat naar zijn pleegkinderen "" in het rustoord"" sloop die ertussen.

Trouwens, jij ook bedankt voor al die tientallen jaren hulp. (Ja, je bent binnenkort ook al 20 jaar op Oplossing.be actief en hoe)

$_/-\o_$ $_/-\o_$

Veel groeten,

Theo

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics