Asunto: Escribir automaticamente hasta cambio de linea
Hola, estoy haciendo un cliente TCP con visual basic y tengo una duda tonta pero q no doy con la solucion.
Cada vez que hago una conexion, desconexión, petición de datos.. etc quiero que en la pantalla se muestre una linea de '*' para separar las secciones. Por ejemplo, al conectar y enviar los datos quiero q aparezca:
Conectando..
Conexión establecida
*************************************************
Datos enviados
*************************************************
Mi duda es como hacer para que visual escriba los asteriscos '*' hasta el final de la caja de texto. Hasta ahora lo hacía a mano pero al cambiar de ordenador, con diferente configuración grafica los asteriscos eran demasiados o demasiado cortos. ¿Como puedo hacer para q ocupen toda la pantalla?
Gracias
Publicado:
Jue May 03, 2007 9:05 am
occam25 Usuario
Registrado: May 02, 2007 Mensajes: 2
Asunto:
Bueno.. lo he hecho de una manera q no se si es muy correcta pero por ahora funciona bien (aunq no lo he probado aun en otros ordenadores).
He dividido el ancho de la caja (4455) por el numero de asteriscos q entraban de punta a punta (5 para obtener lo que ocupa cada asterisco (77). Asi con un For puedo añadir el numero exacto de '*'. (Le resto tres porq es lo que se come la scroll bar). Todo esto lo he metido en una función (Separar)
Os pongo el codigo por si os puede servir:
Código:
Private Sub Separar()
Dim i As Integer
txtRecibir.Text = txtRecibir.Text & vbCrLf
For i = 1 To Math.Round(txtRecibir.Width / 77 - 3)
txtRecibir.Text = txtRecibir.Text & "*"
Next i
txtRecibir.Text = txtRecibir.Text & vbCrLf
End Sub
Publicado:
Jue May 03, 2007 9:33 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto:
occam25 escribió:
Bueno.. lo he hecho de una manera q no se si es muy correcta pero por ahora funciona bien (aunq no lo he probado aun en otros ordenadores).
He dividido el ancho de la caja (4455) por el numero de asteriscos q entraban de punta a punta (5 para obtener lo que ocupa cada asterisco (77). Asi con un For puedo añadir el numero exacto de '*'. (Le resto tres porq es lo que se come la scroll bar). Todo esto lo he metido en una función (Separar)
Os pongo el codigo por si os puede servir:
Código:
Private Sub Separar()
Dim i As Integer
txtRecibir.Text = txtRecibir.Text & vbCrLf
For i = 1 To Math.Round(txtRecibir.Width / 77 - 3)
txtRecibir.Text = txtRecibir.Text & "*"
Next i
txtRecibir.Text = txtRecibir.Text & vbCrLf
End Sub
Muchas gracias por tu aportación, seguro que nos sirve.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A
para obtener lo que ocupa cada asterisco (77). Asi con un For puedo añadir el numero exacto de '*'. (Le resto tres porq es lo que se come la scroll bar). Todo esto lo he metido en una función (Separar)
