TEXT. no funciona correctamente
Publicado por JOSE LUIS (2 intervenciones) el 07/05/2019 20:37:19
Por favor,
con el siguiente codigo, se recibe, unos valores por puerto serie, se envian a dos Text, uno funciona correctamente y el otro no consigo llegar a su solucion.
Donde puede estar el problema para solucionarlo???
-----------------------------------------------------------------------------------
este Text es Multilinea y funciona correctamente
Text_Mensajes1.Text = Text_Mensajes1.Text & dato_recibido1
-----------------------------------------------------------------------------------
este Text es una linea y varias veces se muestra sin valor
Text100.Text = dato_recibido1
-----------------------------------------------------------------------------------
con el siguiente codigo, se recibe, unos valores por puerto serie, se envian a dos Text, uno funciona correctamente y el otro no consigo llegar a su solucion.
Donde puede estar el problema para solucionarlo???
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MSComm_Puerto_Serie_OnComm()
' Variable para almacenar datos.
Dim dato_recibido1 As String
' Los datos recibidos lo almacena en la variable.
dato_recibido1 = MSComm_Puerto_Serie.Input
' Los datos de la varible lo muestra en el Text.
Text_Mensajes1.Text = Text_Mensajes1.Text & dato_recibido1
Text100.Text = dato_recibido1
' Mantiene el scroll en la entrada de cada mensaje.
'Text_Mensajes1.SelStart = Len(Text_Mensajes1.Text)
End Sub
-----------------------------------------------------------------------------------
este Text es Multilinea y funciona correctamente
Text_Mensajes1.Text = Text_Mensajes1.Text & dato_recibido1
-----------------------------------------------------------------------------------
este Text es una linea y varias veces se muestra sin valor
Text100.Text = dato_recibido1
-----------------------------------------------------------------------------------
Valora esta pregunta
0
