Oppure

Loading
23/07/08 13:52
giusy_m86
Dim x As Integer
Dim ricevuto(0 To 100) As String
For x = 0 To 100
Winsock2.GetData ricevuto(x)
Next x
txtImp96.Text = ricevuto(0)
txtImp91.Text = ricevuto(1)
End Sub

avevo pensato a questo come soluzione...potrebbe andare? ps:cmq nn mi dà il risultato sperato...
aaa
23/07/08 15:07
gantonio
Ma dove usi questo codice?

Sempre all'interno dell'evento in questione?

Se e' cosi', siamo nelle stesse condizioni di prima, anzi peggio, perche' invece di chiamare il metodo due volte nell'evento lo chiami cento volte ...

Inserisci nel progetto un controllo ListBox e prova

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
  Dim ricevuto As String 
  Winsock1.GetData ricevuto 
  List1.AddItem ricevuto
End Sub 


... ricevi le stringhe nella listbox?


Ultima modifica effettuata da gantonio 23/07/08 15:09
aaa
24/07/08 12:51
giusy_m86
si!!! i dati arrivano tutti nella listbox...ma ora?dalla listbox come faccio a smistarli nelle textbox?
aaa
24/07/08 13:02
Overflow
utilizza il codice di gantonio, sostituendo list1.additem ricevuto, con le textbox magari usando un indice.
dichiara in globale dim i as integer e poi incrementa nell'evento data_arrival la i e poi scrivi al posto di list1.additem
if i=1 then 'se incrementi i all'inizio altrimenti i =0
text1.text = ricevuto
else
text2.text = ricevuto
end if 

nel caso le text siano due, altrimenti puoi usare un array di text e fare text1(i).text = ricevuto incrementando i sempre di 1 nel medesimo evento.
aaa
24/07/08 13:43
giusy_m86
come tu mi suggerisci nn va bene, in entrambi i textbox mi restuisce l'ultima stringa che riceve dal getData...
aaa
24/07/08 14:07
GrG
fai così:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim ricevuto As String
  Winsock1.GetData ricevuto
  text1.text = text1.text & ricevuto & vbcrlf
End Sub 


dovrebbe andare...:k:
aaa
24/07/08 14:23
giusy_m86
8-|...il tuo codice mi permette di ricevere solo una stringa...
il mio programma invece deve ricevere 2 stringhe in "ricevuto" e visualizzarle poi separatamente in 2 textbox...
aaa
24/07/08 14:56
GrG
ah!...nn avevo capito bene...allora ricapitoliamo:

server = manda 2 stringhe al client [tipo: "ciao" e "come stai?"

client = ha 2 textbox e in ogni textbox ci deve essere scritto sia "ciao"che "come stai?"

giusto?
aaa