retour chariot enVB6

Question

slt à tous 
s.v.p j ai un tp à faire ,j ai créer un fenetre PeerA
Private Sub Envoyer_Click()
    udpPeerA.SendData Send.Text
End Sub

Private Sub Form_Load()
With udpPeerA
    .RemoteHost = "le nom de mon pc"
    .RemotePort = 1001
    .Bind 1002
    End With
    Post.Show
End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
    Dim st As String
    udpPeerA.GetData st
    Output.Text = st
    
End Sub
et une fenetre  Post

Private Sub Envoyer_Click()
udpPeerB.SendData Send.Text
End Sub

Private Sub Form_Load()
With udpPeerB
.RemoteHost = "le nom de mon pc"
.RemotePort = 1002
.Bind 1001
End With
PeerA.Show

End Sub

Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
Dim st As String
udpPeerB.GetData st
Output.Text = st
End Sub
ce tp pour fair un contactet entre la 1ere fenetre et la 2eme mai il envoie le msg concatiner je veus com je le rendre com le msn 
si l emteur veu envoyer 1 autre msg il retour a la ligne et sauvegarder les dérniers msg et le meme pour le récepteur 
svp aider moi

cs_Orohena · Answer

Bonjour

Je ne suis pas sûr d'avoir tout compris, mais pour le retour chariot, tu as le choix entre la constante vbCr et son équivalent chr(13). Il y a aussi le "retour chariot - interligne", qui se code avec vbCrlLf ou son équivalent chr(13) & chr(10). J'espère que ça t'aidera.

Cordialement

Retour chariot enVB6

1 réponse

Votre réponse

Discussions similaires