Textbox help

[batori]

Hi,

well i got a textbox1, and multiline=1.

i cant make this thing work..

when i paste a text into the texbox to make automatically a new line for pasting...and not allowing to press enter...
i m going crazy with this thing...

and...1 more thing...textbox1 on multiline puts the pointer by default at a new line below the last text:

text bla bla bla
bliblibli
blublublu
| | this is where the pointer goes by default

i cant make it go back...i mean i can with sendkeys {backspace}

but i thiunk all would be solved not allowing enter to be pressed nad deleting the last empty line in the textbox..
please any help?

[Hack]

Welcome to the forums.

To not allow the use of the Enter Key do this

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then KeyAscii = 0
End Sub

Beyond that I don't know what you are trying to do.

[akhileshbc]

Welcome to vbforums

can you explain me some more

[batori]

thanks

well...i just want when pasting into a text box a text to put every pasted text in a new line...and after pasting all....(lets say clicking a button) to remove last empy line) and not to permit pressing enter ( i dont know the chr for enter)

[MartinLiss]

...textbox1 on multiline puts the pointer by default at a new line below the last text:

text bla bla bla
bliblibli
blublublu
| | this is where the pointer goes by default.....:

Pasting text into a multiline textbox does not put the pointer on a new line, but rather at the end of the last line so there is probably a blank line at the end of the data you are pasting.

[RobDog888]

You can set the cursor position with the .SelStart and .SelLength properties of the trextbox control. To position it upon a paste operation you will have to subclass the textbox and watch for the WM_PASTE message and then make an additional call to set those properties after the paste operation message.

'Positions the cursor at the end of the text.
Me.Text1.SelLength = 0
Me.Text1.SelStart = Len(Me.Text1.Text)

[batori]

that did not work for me

im trying now to implement pasting + vbcrlf i hope it will work.
after that block the Enter char....

any ideas how to do that?
i know something about visual but not too much

[Hack]

I told you how to block the Enter Key in Post #2 (and that does work)

[batori]

ups sorry...i had so many replies i didnt notice xD
ok m8, ill test this soon...ill let u know

[lone_REBEL]

If you want to clear out any trailing empty lines, this would do that:

Do While Right(Text1.Text,2) = vbNewLine
   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2)
Loop

[batori]

Welcome to the forums.

To not allow the use of the Enter Key do this

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then KeyAscii = 0
End Sub

Beyond that I don't know what you are trying to do.

that's ok.i would like to put a new line after the pasted text...automatically...i tried with

CODE]Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
else
text1.text=split(text1.text,vbcrlf)
End If

End Sub[/CODE]

that did not help

now i got a problem that i can delete some lines and let them be empty and i dont want that i prevented that partially with the blocking of Enter...but i still can get emtpy lines between the text lines....

[batori]

If you want to clear out any trailing empty lines, this would do that:

Do While Right(Text1.Text,2) = vbNewLine
   Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2)
Loop

this is working...
thanks m8

[akhileshbc]

text1.text=split(text1.text,vbcrlf)

Why are you using this for..???

[batori]

naah..i dont use it..i tought it will work but i found out later it wont help
now i got everything set....
now i need to make this thing : when i keypress on text1 i need the text from clipboard and paste it in ( i know how to do that), but, after the paste i need a vbnewline automatically...i tried that with this

Text1.Text=Text1.text + vbnewline

but this brings me to the first line and when i write i get the words in backward mode LOL

[akhileshbc]

use like this:

Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & vbNewLine

[batori]

use like this:

Text1.SelStart = Len(Text1.Text)
Text1.Text = Text1.Text & vbNewLine

not working as i tought...
well it keeps making new lines but i get the pointer at position 0, and when i type i get the words in backwards in the first line only...
i would need that when i paste the text, to go directly to a new line into i will paste again some text,and then again a new line automatically where ill put again pasted text....and so on...

[akhileshbc]

what code do you have so far.????

[batori]

i have many code...but i dont have any good code for this small operation...it seems complicated for that...

ex:
you staart with a blank textbox,you dont permit entering Enter, and everytime you paste a text CTRL+V your text is pasated on the first line and the pointer goeas automatically on the second line waiting for the next paste command...and them you paste again and the pointer goes automatically on the third line..i cant achieve that

i tried the code i got here and the one i wrote..but they just kept making empty lines (which can be hanled by the code given up) but the problem is that everytime i write or paste my text goes in the first line

[akhileshbc]

Something like this...????

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
Text1.Text = Text1.Text & vbNewLine
End Sub

[batori]

thats nice but...

i cant delete any line and when i paste in the first line the first line becomes empty...and the pasted textz goes to second line...

[akhileshbc]

Oho, you want to replace each line when you paste. Is that so...?
I will work on it and will soon reply(tomorrow), 'cause I am now on a trip to my homeland
c u 2morrow

[Hack]

What is in this text box anyway?

I've never heard of anyone wanting to do the things to text in a textbox that you are doing.

[akhileshbc]

After some experiments, I came up with this code...
I don't have any idea... The below one will select the first line in a multiline textbox, when it gots the focus...
I think others have good solutions than this...
-Best wishes

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = InStr(1, Text1.Text, vbNewLine)
End Sub

[batori]

ill try that now m8...

@Hack
well of course, i have strange idea coming to my mind

[batori]

edit

nope m8, i tried the last code and it seems to do nothing much...

but,this code seems to be very useful, just when i paste in the first line i get the pasted text in the second line,that's the problem...

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then KeyAscii = 0
Text1.Text = Text1.Text & vbNewLine
End Sub

[akhileshbc]

If we are able to find the cursor position, then it will be some more easy to solve the problem....

@@@@To other members:
Does anybody know how to find the position of the cursor in a textbox..???

[anhn]

If we are able to find the cursor position, then it will be some more easy to solve the problem....

@@@@To other members:
Does anybody know how to find the position of the cursor in a textbox..???

The cursor position is what you already knew and used: Text1.SelStart
but you set it to a new value (Text1.SelStart = n) instead of read it (n = Text1.SelStart)

[batori]

this code seems to be easy but insted it's quite tricky xD