[VB6] Problema MsgBox remoto

[magnifico09]

Ciao a tutti sto realizzando un applicazione per scherzare con gli amici XD. Un' applicazione server/client con winsock. Vi posto il codice e vi pongo il problema.

Server.

Private Sub Command1_Click()
Dim data As String
MsgBox Text2.Text, vbExclamation, Text1.Text= data
Winsock1.SendData data
End Sub
Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Client.

Private Sub Timer1_Timer()
If Winsock1.State <> 7 Then
Winsock1.Connect "127.0.0.1", 1000
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
MsgBox data
End Sub

Il problema dove sta?? Quando invio la msgbox, nel titolo mi viene scritto FALSE ma perchè??????Non è quello che ho scritto nella text1.text!!! Vi prego help me.

[oregon]

Cosa intendi fare con questa strana scrittura

MsgBox Text2.Text, vbExclamation, Text1.Text= data

?

[magnifico09]

con msgbox text1.text,vbexclamation,text2.text = data cosa vuol dire?

beh il contenuto della msgbox è uguale a text1.text e sarà di tipo esclamazione e con text2.text sto ad indicare il titolo della msgbox = data sarà uguale alla stringa da inviare.

Senza inviare con il winsock funziona... ma quando lo invio con il winsock nel titolo mi viene scritto FALSE e non capisco perchè!!

[Grumpy]

Ti viene scritto False semplicemente perché l'uguaglianza text1.text = data è falsa, essendo text1.text diverso dal contenuto della variabile data, la quale, essendo appena stata definita, è vuota.

[magnifico09]

Premetto non voglio il codice bello che sistemato. Soluzioni?? Quale sarebbe una soluzione?

[oregon]

Originariamente inviato da magnifico09
Premetto non voglio il codice bello che sistemato. Soluzioni?? Quale sarebbe una soluzione?

Ripeto ... con questa linea

MsgBox Text1.Text, vbExclamation, Text2.Text = data

cosa pensi venga visualizzato ?

[gibra]

Originariamente inviato da magnifico09
Premetto non voglio il codice bello che sistemato. Soluzioni?? Quale sarebbe una soluzione?

Te l'ha appena spiegato Grumpy!

[magnifico09]

Private Sub Command1_Click()
Dim data As String
MsgBox Text1.Text, vbInformation, Text2.Text = data
Winsock1.SendData data
End Sub

Fin qua ci sono arrivato anch'io. Non va bene perchè MsgBox Text1.Text, vbInformation, Text2.Text = data è uguale a niente. Cioè a data che è vuota. Ma come posso risolvere?

[gibra]

Originariamente inviato da magnifico09
Private Sub Command1_Click()
Dim data As String
MsgBox Text1.Text, vbInformation, Text2.Text = data
Winsock1.SendData data
End Sub

Fin qua ci sono arrivato anch'io. Non va bene perchè MsgBox Text1.Text, vbInformation, Text2.Text = data è uguale a niente. Cioè a data che è vuota. Ma come posso risolvere?

Ti consiglio di fare il Debug del TUO codice!

Esempio:

Dim data As String
Winsock1.GetData data

Secondo te queste istruzioni hanno un senso?
Per me no.

Ricordati: Debug, Debug, ... e ancora Debug.

[magnifico09]

Proverò a fare i debug.