enter vervangen door Shift-enter in string (VBA)

Status
Niet open voor verdere reacties.

Michel5

Gebruiker
Lid geworden
10 okt 2004
Berichten
106
Raar vraagje, maar ik kom er niet uit.
Ik heb in een dialoogscherm een tekstvak.
De gebruiker kan jier informatie invoeren compleet met nieuwe regel.

Maar nu het probleem:
Indien de gebruiker in het tekstvak op een Enter klikt krijg ik een nieuwe alinea.
dit wil ik niet omdat de alinea opgemaakt is met verkeerd om inspringen.
shift-enter werkt overigens niet in een tekstvak, daarbij maakt de gebruiker daar toch geen gebruik van

Wat ik wil is dat de enters uit het tekstvak vervangen worden door shift-enters.

Wie weet hiervoor een oplossing
 
De oplossing

Na een avond speuren en proberen heb ik hem.



dim Zoekin, Zoeknaar, Vervangdoor,Textbox1 as string

ZoekIn = Textbox1
ZoekNaar = Chr(13) + Chr(10)
VervangDoor = Chr(11)
Textbox1 = Replace(ZoekIn, ZoekNaar, VervangDoor)
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan