у меня есть исходники локального чата ,, мне надо сделать чё нибудь штоб было как в асе написал нажал ентр отправилось сообщение и поле осталось пустое ,
а у меня всё не так пишешь сообщение жмёшь ентр сообщение отправляется но и остаётся в поле ввода штоб написать другое надо удалить то што написал ,,
помогите сделть штоб оно исчезала
Код:
Private Sub Text2_KeyPress(KeyAscii As Integer) 'если нажат энтер и Вы соединены, то отправить данные и сообщить об этом If KeyAscii = 13 And ws.State = sckConnected Then ws.SendData txtName & ": " & Text2: Me.stat.Caption = "Отправлены данные" '... а если не соединены, то подсказать совет... If KeyAscii = 13 And ws.State <> sckConnected Then Me.stat.Caption = "Сначала соединитесь с сервером" End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
'если нажат энтер и Вы соединены, то отправить данные и сообщить об этом
If KeyAscii = 13 And ws.State = sckConnected Then ws.SendData txtName & ": " & Text2: Me.stat.Caption = "Отправлены данные"
'... а если не соединены, то подсказать совет...
If KeyAscii = 13 And ws.State <> sckConnected Then Me.stat.Caption = "Сначала соединитесь с сервером"
End Sub