Gracias por tomarse su tiempo para ver mi proyecto, muchas gracias por comentar.

79137913, Gracias hermano por notar esos errores, ya fueron solucionados, y los botones los cambiare por otros.

T.Collins, Se que seria mas potencial en web pero no se programar en web , aun haci gracias por comentar!.

Hola que tal.

Quisas el titulo les confunda un poco, pero les explicare que es lo que necesito.

Bueno estoy en la creacion de un juego multijugador, donde los datos se guardan en una BD, entonces quisiera saber como podria hacer para guardar los items comprados por el usuario es decir con el monto de objetos tambien.

Ejemplo grafico:

Mi otra idea seria crear los objetos por archivos es decir en una carpeta crear todos los objetos disponibles y que estos tenga la info del objeto y la cantidad que el jugador tenga, pero esta idea es muy mala ya que el juego estaria muy vulnerable a hacks! :/

Espero me hayan entendido y me puedan ayudar a resolver este dilema que me come el cerebro! xD

~Saludos!

Bueno por el momento programo en VB6 ya que se me hace muy facil hacer la comunicacion del servidor y el cliente, pero quisas cambie de lengueje nadie sabe xD.

Y solo sera para Windows[XP, Vista, 7].

Muchas gracias amigo, tomare en cuenta todas tus opiniones y sugerencias, muchas gracias por comentar, y la verdad es que si tratare de hacerles muchos Plus al proyecto y dare lo mejor de mi .

Saludos!~

Te recomiendo usar el Control FlexGrid puedes controlar mejor el listado, con columnas y tambien puedes guardar y cargar los datos a este FlexGrid!.

Si aun quieres usar el List, te recomiendo que separes la los datos para que al cargarlos no tengas problemas en este!

Y como dice nuestro amigo seba123neo para recorrer los items de un ListBox usa este simple codigo

 
Sub LoadList(List As ListBox, FileName As String)
Dim LineaTexto As String
Open App.Path & "\" & FileName For Input As #1
 
While Not EOF(1)
Line Input #1, LineaTexto
List.AddItems LineaTexto, 0
Wend
 
Close #1
End Sub
 
Sub SaveList(List As ListBox, FileName As String)
Dim i As Integer
Open App.Path & "\" & FileName For Output As #1
 
For i = 0 To List.ListCount
Print #1, List.Selected
Next i
Close #1
End Sub
 
 

Pega este Codigo donde quieras:

Para llamarlos sera alo como esto:


Espero que te sirva como ami

Hola amigo bueno esto es lo que uso yo y me funciona a la prefeccion espero que te sirva

Puedes ponerlo en un modulo.bas o en el mismo codigo del form


Para usarlo solo haces la llamada de la funcion ejemplo:



Espero haberte ayudado y que pudices comprender como es que se carga una lista de texto .txt al ListBox

Bueno eso es lo que se me envia a los 2 chats el del Servidor y al del Cliente un codigo parecido a ese!,

Este es el codigo que ise para hacer lo de los colores pero no me funciona:

[spoiler]

Public Sub Global_Chat(Level As String, User As String, Msg As String)
Dim Color As Long
Dim Text As String
 
Select Case Level
 
Case "0":
Color = RGB(0, 0, 0)
Case "1":
Color = RGB(128, 128, 128)
Case "2":
Color = RGB(30, 144, 255)
Case "3":
Color = RGB(255, 69, 0)
Case "4":
Color = RGB(0, 128, 0)
Case "5":
Color = RGB(255, 255, 0)
End Select
 
frmServer.txtRTF.Text = User & " : " & Msg
 
With frmServer.txtRTF
    'Selecciona todo
    .SelStart = .Find(User)
    .SelLength = Len(User)
    .SelColor = Color
    .Font.Bold = True
End With
 
frmServer.txtChat.TextRTF = frmServer.txtChat.TextRTF & frmServer.txtRTF.TextRTF & vbNewLine
 
For i% = 1 To frmServer.Winsock1().UBound
        Select Case frmServer.Winsock1(i%).State
            Case Is = sckConnected
                frmServer.Winsock1(i%).SendData "GCHAT||" & frmServer.txtChat.TextRTF
                DoEvents%
            Case Else
        End Select
    Next i%
 
End Sub
 

[/spoiler]

Y lo que resivo es un codigo del color que se supone que deberia de ir solo el user y el mensaje