1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Imports System.Text
Imports System.Net.Sockets
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
'Emission de donnée depuis serveur au client
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim donnees As Object
TextBox3.Text = TextBox1.Text & vbCrLf & "->" + donnees
TextBox1.Text = ""
End Sub
'Demande le numéro de port
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim Port As Object
Dim IP As String
Port = InputBox("Entrer le port de connexion")
IP = InputBox("Entrer l'adresse Ip du serveur")
End Sub;
'Emission de donnée de puis le client au serveur
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox4.Text = TextBox2.Text + vbCrLf
TextBox2.Text = ""
End Sub
'Remise à 0 de la fenêtre de réception de donnée côté Serveur
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox4.Text = ""
End Sub
End Class |
Partager