Visual Basic - Rich text box

Life is soft - evento anual de software empresarial
   
Vista:

Rich text box

Publicado por Paola (1 intervención) el 04/11/2008 01:39:58
HOLA NECESITO SI ME PUEDEN AYUDAR, DEBO CREAR UNA APLICACION QUE PERMITA LA COMUNICACION ENTRE DOS PC VIA PUERTO SERIAL, PARA ELLO CUENTO CON UN RICH TEXT BOX, EL QUE ME SERVIRA PARA LA COMUNICACION ENTRE USUARIOS, LO QUE NO SE ES COMO HACER LA CODIFICACION PARA EL RICH TEXT BOX POR QUE EL DEL MSCOMM ES ESTO:

Option Explicit
Dim Cadena As String
Private Sub cmdconec_Click()
'comprueba que el puerto este cerrado para poder abrirlo
If MSComm1.PortOpen = False Then
'determina el puerto que hemos seleccionado
If Combo1.ListIndex = 0 Then
MSComm1.CommPort = 1
Else
MSComm1.CommPort = 2
End If
'determina: 9600-Velocidad en Baudios, N-No utiliza ninguna paridad,
'8-Cantidad de bits de envio y recepcion por paquete,
'1-Determina los bits de parada
MSComm1.Settings = "9600,N,8,1"
'lee todo el buffer de entrada para que quede vacio
MSComm1.InputLen = 0
'Abre el puerto seleccionado
MSComm1.PortOpen = True
Me.Caption = "Conectado por el puerto " & MSComm1.CommPort
End If
End Sub

Private Sub cmddesc_Click()
If MSComm1.PortOpen Then
'cierra el puerto
MSComm1.PortOpen = False
Me.Caption = "Desconectado"
End If
End Sub
Private Sub cmdenv_Click()
'envia el texto escrito.
MSComm1.Output = TextoEnviar.Text & vbCr
'coloca el texto que enviamos en la pantalla
Texto.Text = Texto.Text & vbCrLf & "<Ordenador 1>" & TextoEnviar.Text
TextoEnviar.SetFocus
End Sub
Private Sub Form_Load()
Combo1.AddItem "Com1"
Combo1.AddItem "Com2"
Combo1.ListIndex = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Desconectar_Click
End Sub
'El evento OnComm se genera siempre que cambia el valor de la propiedad
'CommEvent e indica que se ha producido un evento o un error en la comunicación.
Private Sub MSComm1_OnComm()
Dim i As Integer
Dim Valor As String

'recoge el valor de entrada
Valor = MSComm1.Input
'busca la posicion del caracter de salto de linea
i = InStr(Valor, Chr(13))

'si no hay ningun salto de linea, quiere decir que la informacion que recibe
'es parte de una cadena recibida con anterioridad.
If i = 0 Then
Cadena = Cadena & Valor
Else
Cadena = Cadena & Left(Valor, i - 1)
Texto.Text = Texto.Text & vbCrLf & "<Ordenador 2>" & Cadena
Texto.SelStart = Len(Texto.Text)
Cadena = ""
End If
End Sub

OJALA ME PUEDAN AYUDAR QUE ES URGENTE... LO AGRADECERE MUCHO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder