Textbox1 & enters

[That Guy]

ahya daar,
ik had eventjes een vraagje, sinds ik bezig ben met een programma om uit een ftp bestanden te halen en te laten zien (dat werkt allemaal perfect) heb ik er ook een
upload functie opgezet. Het punt is nu alleen dat als je in de textbox (textbox1) "enters"
invoert, hij die niet opslaat (gaat om .ppf bestanden, eventjes zelf bedacht formaat).

dus als ik dit invoer en op "upload" druk:
"Mijn naam is Vegras
Ik ben 17 jaar en een beetje"

komt er in de ftp een bestand (mijnnaami.ppf) te staan, maar deze heeft, als ik m download en open in kladblok:
"Mijn naam is VegrasIk ben 17 jaar en een beetje"

doe kan ik de enters zegmaar "bewaren"?
:thumb:

 

[niekfct]

ik weet niet of het hetzelfde is in visual basic.. maar in java zijn de 'enters' /n..
mss kun je op een of andere manier die gebruiken??

 

[That Guy]

visual basic: een enter is "vbCrLf"...
maar dat werkt niet echt goed. Wat wel zou kunnen
is dat ik op de "keypress" event van text1 zet:

if Keyascii = 13 then
text1.text = text1.text & "<enter>"
end if

en dan later, in het programma dat het laat zien, alle "<enter>"'s replacen met vbCrLf.

het enige probleem is dat als je bij het upload-form op enter dan drukt, dat de curser in text1 helemaal in het begin te staan komt. iemand daaroor een oplossing, want dan ben ik eruit ^^'

:thumb:

 

[kaasprofeet]

Mijn suggestie is {ENTER} maar ik weet het niet cker.

 

[That Guy]

haha, nee.
ik bedoel dat als ik deze code heb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Text1.Text & "<enter>"
End If
If KeyAscii = 9 Then
Text1.Text = Text1.Text & Chr(9)
End If
End Sub

dan komt de curser steeds aan het begin van text1 te staan, dat moet einde
van text1 worden, maar ik heb geen idee hoe ik dat moet oplossen, is vast
wel ergens een simel stukje code voor? =/

:thumb:

 

[That Guy]

ik heb de oplossing, eigenlijk simpel, beetje denkwerk:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = 13 Then
Text1.Text = Text1.Text & "<enter>"
Do Until i = Len(Text1.Text)
SendKeys "{right}"
i = i + 1
Loop
End If
If KeyAscii = 9 Then
Text1.Text = Text1.Text & Chr(9)
Do Until i = Len(Text1.Text)
SendKeys "{right}"
i = i + 1
Loop
End If
End Sub

thanks voor alle help! =D :thumb: