PDA

Ver la versión completa : No puedo terminar mi chat en VB 6



desolator
29-10-2002, 00:08
esta segunda parte es para los que me pidieron un poco mas de precision:
la primera parte del chat( osea, la de ingresar) es:

Dim nk As String ' declaraciones generales

Private Sub Aceptar_Click() ' se ingresa un nick y se oprime este boton para iniciar el chat
If text1.Text = "" Then
MsgBox ("debe ingresar un nombre")
text1.SetFocus
Else
stnick = Trim(text1.Text)
nk = FreeFile
Open "C:\Hola.txt" For Output As nk
Print #nk, stnick
Close nk
Shell "parte II del chat.exe" ' llama la ventana de chat parte II (el chat)
Unload forminicial
End If
End Sub


Private Sub Text1_keypress(keyascii As Integer) 'textbox en el que se introduce el nick
If keyascii = 13 Then
Command1.Value = True
End If
End Sub


... y la segunda parte del chat(la del problema) es la siguiente:(es otro proyecto aparte)

Private Sub algo(que va?)()
Dim nk As Integer
nk = FreeFile
Open "C:\hola.txt" For Input As nk
Line Input #nk, stnick
Close nk
listnick.AddItem stnick
nk = FreeFile
Open "C:\hola1.txt" For Input As nk
Line Input #nk, stnick
Close nk
listnick.AddItem stnick

End Sub

este codigo hace que me lea solamente el primer nombre de la lista ¿cómo hago para
leer los otros? ¿cómo hago para que se borren de la lista los nicks si es usuario sale?
desde ya muchas gracias por su apoyo.

Desolator

NeoGenessis
07-11-2002, 11:59
Por partes:

-Al escribir la linea en el archivo hola.txt usa saltos de linea (vbcrlf)

-Al abrir el archivo para leer usa un bucle que pare al encontrar EOF en el archivo,asi tendras la lista entera.

-Si quieres que el programa se entere de que alguien se va debes:
1-Actualizar el archivo
2-Leerlo constantemente.
Es algo coñazo y tu sistema se resentira. Seria mejor que encontrases un sistema para darte cuenta de modificaciones; que tal un timer que comprueve si el tamaño del archivo a cambiado???

-Por cierto, ¿ por que usas 2 programas? ¿no seria mejor uno con dos formularios?

Ya me diras como te van las ideas.

:cool: