Text2 send text1 with enter

[ACiD]

Задача такая:

Нужно послать текст из одного Text'a в другой и очистить первый
при нажатии клавиши Enter(типа терминала):

Код: Выделить всё

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
  Text1.Text = Text1.Text + Text2.Text + vbNewLine + "# "
  Text2.Text = "" ' ------------------здеся не очищается------------------
End If
End Sub


--если указать Text2.MultiLine = False,
то будет слышен "Beep"(что не нужно),
--а если Text2.MultiLine = True, то Text2.Text = ""
не будет стирать перевод каретки на след. строку, т.е. нужно так:


# asdfasdfasdf
# asdfsadfsda
# asadasdasdds


а происходит вот так:


#
asdasdas
#
asdasddssfs
#
aadasdsfdf


помогите пожалуйста исправить хотябы одну из ошибок.

[tyomitch]

KeyCode сбрасывай в 0

[ACiD]

Не доганяю. Мозгов наверное мало.
Что KeyCode = 0? Куда надо вставлять?

[vvs_adm]

Код: Выделить всё

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then
      KeyCode = 0
      Text1.Text = Text1.Text + Text2.Text + vbNewLine + "# "
      Text2.Text = "" ' ------------------здеся очистится------------------
   End If
End Sub

P.S.: да что ж такое. Второй раз пишу не проверяя, второй раз ошибка

[ACiD]

Всёравно такая хрень остаётся:
#
asdasdas
#
asdasddssfs
#
aadasdsfdf

[ACiD]

А вот так идёт, спасибо

Код: Выделить всё

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  KeyAscii = 0
  Text1.Text = Text1.Text + Text2.Text + vbNewLine + "# "
  Text2.Text = ""
End If
End Sub


Ещё вопросик. Как сделать так, чтобы VScroll text'a всегда
находился внизу(чтобы читать последние сообщения)?

[Amed]

Text1.SelStart = Len(Text1.Text)

[Хакер]

А вот так идёт, спасибо
Ещё вопросик. Как сделать так, чтобы VScroll text'a всегда
находился внизу(чтобы читать последние сообщения)?

Код: Выделить всё

Text2.SetLengh = 0
Text2.SelStart = Len(Text2.Text)

[ACiD]

Все йдёт. Спасибо!