Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Escribir automaticamente hasta cambio de linea
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Escribir automaticamente hasta cambio de linea

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
occam25
Usuario


Registrado: May 02, 2007
Mensajes: 2

Asunto: Escribir automaticamente hasta cambio de linea Responder citando

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
MensajePublicado:
Jue May 03, 2007 9:05 am
Top of PageVer perfil de usuario
occam25
Usuario


Registrado: May 02, 2007
Mensajes: 2

Asunto: Responder citando

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 (5icon_cool.gif 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
MensajePublicado:
Jue May 03, 2007 9:33 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Responder citando

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 (5icon_cool.gif 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.

Saludos.
MensajePublicado:
Jue May 03, 2007 9:35 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  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