primer programa con winsock

Estado
Cerrado para nuevas respuestas.

Hello

Oráculo Lvl 6
ah , me olvide de decir tiene un problemita ¬¬ yo puse que cada enviado vaya abajo pero , se mezclan, osea quiero que sea asi:

Server dice: lalalal
Server dice: lalalal
Server dice: lalalal

y sale :
Server dice: Server dice: Server dice:
lalalal lalalal lalalal


se mezcla todo :S

edit: y que se actualice el textbox (el que envia datos) osea que cada vez q envia , envie y quede en blanco
 

zapato

STAND BY!
porq lo tenes asi:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Text1.<span style="color: #66cc66;">Text</span> = <span style="color: #b1b100;">vbNewLine</span> & _</li><li style="" class="li2"><span style="color: #ffffff;">"Cliente envía: "</span> & Text1.<span style="color: #66cc66;">Text</span> + datos & nl <span style="color: #808080;">' los guarde y los muestre en el text 1</span></li></ol></div>[/vb]

Deberia ser asi:


[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1">Text1.<span style="color: #66cc66;">Text</span> = Text1.<span style="color: #66cc66;">Text</span> & <span style="color: #ffffff;">"Cliente envía: "</span> & datos + <span style="color: #b1b100;">vbNewLine</span> </li></ol></div>[/vb]
 

Hello

Oráculo Lvl 6
yo lo que puse fue que haga esto :
"
cliente envia: lala"

y con muchos se convierte en:
"
cliente evnia:cliente evnia:cliente evnia:
lala lala lala"


y con el tuyo seria

"cliente evnia: lala
"

"cliente evnia:cliente evnia:cliente evnia:
lala lala lala"
 

Hello

Oráculo Lvl 6
cuando se lo paso a alguien le dice que esta dañado o faltan archivos (solo el exe pero comprimido) y ami me anda barbaro, que es :S?
 

Hello

Oráculo Lvl 6
Un botoncito para que cambie el font como seria?
osea que te aparezcan los fonts y eso xD
y que se borre el mensaje (el del textobx que envia) como en el msn que lo envias y tenes en blanco denuevo
 

Hello

Oráculo Lvl 6
Private Sub Command1_Click()
Form1.Text1.Font = Text1.Font
Form1.Text2.Font = Text1.Font
Form1.Text1.FontSize = Text2.FontSize
Form1.Text2.FontSize = Text2.FontSize
Me.Hide
End Sub

Private Sub Form_Load()
Dim I As Integer
Dim J As Integer 'no se si esto va no lo puse en el code lo pongo aca

List1.Clear
List2.Clear

For I = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(I)
Next I


For J = 0 To Screen.FontSizeCount - 1 'no se si esto va no lo puse en el code lo pongo aca
List1.AddItem Screen.FontsSize(J) 'no se si esto va no lo puse en el code lo pongo aca
Next J 'no se si esto va no lo puse en el code lo pongo aca

List1.ListIndex = 0
List2.ListIndex = 0
End Sub

Private Sub List1_Click()
Text1.Text = List1.List(List1.ListIndex)
Text1.FontSize = List1.List(List1.ListIndex)
End Sub
'''''''''''''''''''''''desde aca es tamaño xD
Private Sub List2_Click()
Text1.Text = List2.List(List2.ListIndex)
Text1.FontSize = List2.List(List2.ListIndex)
End Sub



ese es todo el code y me tira error xD
.FontSizeCount metod or data memb not foud :p no se como me lo arreglan
 
Estado
Cerrado para nuevas respuestas.
Arriba