TODOPIC
Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: KALLITOS en 07 de Octubre de 2006, 14:10:25
-
Hola muchachos soy novato en prog de visual ( para hacer programas los hago demasio basico y leyendo de un libro )
Y les quiero preguntar lo siguiente.
Tengo un pic que me envia datos via puerto serie y los manda a un textbox y lo que quiero es que cuando llegue el final de la sarta la nueva sarta que reciba el prog lo haga en el mismo text pero en la linea inferior siguiente osea como cuando uno esta en word y presiona enter
y otra cosa que necesito es que cuando reciba las sartas el textbox desplace hacia abajo o arriba las sartas antes recibidas manteniendo visible la ultima recibida
Al textbox que he puesto en mi prog le he dado multiline = true y scrollbar vertical y el tamaño es grande
Gracias por las respuestas que me pudieran dar...
Salu2
-
mira el link http://www.todopic.com.ar/foros/index.php?topic=13671.0
pero debes saber en que punto vas hacer el "enter"
Salu2
-
Muchas gracias Palitroquez por la pronta respuesta...me funcionó :-/ :-/.....seguiré practicando
Dim n As Byte
Private Sub Command1_Click()
n = n + 1
Text1 = Text1.Text & n & Chr$(13) & Chr$(10)
End Sub
sabes algo sobre la segunda pregunta....
Salu2
-
no entiendo a que te refieres, creo que lo que dices es que lo ultimo que reciba es lo que quedará en la primera linea del textbox. ¿es así?
¿sarta= cadena de texto ó strings?
salu2
-
yes doctor......
ojala y pudieras ejecutar el codigo que puse y notaras que el 1 siempre queda visible y el numero agregado va bajando hasta que se pierde...
sarta por ejemplo $1234,56#
Salu2
-
si lo más importante es ver la última cadena recibida, después de recibir el dato, borra el textbox:
text1.text = ""
y pegas la nueva cadena, si quieres mantener los datos anteriores tendrás que hacer un código que pegue dichas cadenas en forma invertida, en la forma "estandar" las cadenas se pegan de arriba hacia abajo, pero en tu caso debe ser de abajo hacia arriba (por decirlo así) 8)
Salu2
-
Entendido...pero como lo hago...solo dame un empujon
Gracias por tu ayuda. :) :)
-
Hola compañeros, prueba el siguiente código a ver si te sirve:
Dim n As Byte
Private Sub Command1_Click()
n = n + 1
Print_Datos "Número " & n
End Sub
Public Sub Print_Datos(Texto As String)
Dim TamañoTexto As Integer
TamañoTexto = Len(Text1)
Text1.SelStart = TamañoTexto
Text1.SelText = Texto & vbCrLf
End Sub
saludos,
Mario
-
Hola muchach@s estando en mi casa probaba y funciono con este codigo
Dim n As Byte
Private Sub Command1_Click()
n = n + 1
Text1 = n & Text1.Text & Chr$(13) & Chr$(10)
End Sub
el ultimo dato se mantenia en el primer renglon y el resto iba bajando..
Gracias por su ayuda
Salu2