Todo sobre AO
 
ÍndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse

Comparte | 
 

 Chat en formulario

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Agus
Admin


Mensajes : 69
Fecha de inscripción : 01/07/2008

MensajeTema: Chat en formulario   Sáb Ago 23, 2008 2:42 am

Cliente, abajo de:
Código:

Select Case Left$(sData, 4)
Ponen
Código:

Case "~~~~"
Rdata = Right$(Rdata, Len(Rdata) - 4)
Formsito.Text1 = Formsito.Text1 & Rdata & vbNewLine
Formsito.Text1.Refresh
Exit Sub
Cliente (Creamos un boton o lo que sea para apretar y que salga el form, en el frmmain)
Código:

private sub command1_click()
formsito.show
end sub
En el form;
Citación :

Un textbox que se llama "text1" (Que aparecen lo que dicen los demas), con la propiedad "LOCKED = true y MULTIlinE = true.
Otro textbox que se llama "YoMando" (Para escribirle a los demás)
Un command1 (Enviar)
Un command2 (Cerrar)
Adentro del formulario:
Código:

private sub command1_click()
If YoMando = "" Then Exit Sub
SendData "~GLOBAL" & UserName & "> " & YoMando
YoMando = ""
End sub
private sub command2_click()
me.hide
eND sub
En el
Código:
 
Case "FINOK"
Abajo ponen
Código:

unload formsito
En el
Código:

case "LOGGED"
Ponemos abajo
Código:

formsito.show
formsito.hide 'si le doy .show por primera vez cuando va a escribir, no me muestra lo que escribieron (antes de esa primera vez)
Server en el TCP_HANDLEDATA1 abajo de:
Código:

Select Case UCase$(Left$(rData, 7))
Ponen
Código:

case "~GLOBAL"
call senddata(sendtarget.toall,userindex,0,"~~~~?" & rdata)
Volver arriba Ir abajo
Ver perfil de usuario http://recompilacionao.forosactivos.com
 
Chat en formulario
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» CHAT PARA EL ETS Y OTROS
» Chat para RDR
» Chat mundial sudafrica
» BF3, ya trabajan para el chat de voz
» Hilo Chat XVIII ''El regreso de los perdidos''

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: jijijijijiij-
Cambiar a: