Creare applicazione Client/Server [Operazione Parte 3]]

Con la terza parte concludiamo il client...


Doppio click sul bottone disconnetti ed inserire il seguente codice:

Private Sub cmddisconnect_Click()
lblstatus.Caption = "Non Connesso" 'Mostra questa scritta nel campo label
cmddisconnect.Enabled = False 'Disabilita il bottone disconnetti
cmdconnect.Enabled = True ' Abilita il bottone connetti
tcpclient.Close ' chiude la connessione
End Sub


Aggiungere anche questo codice:

Private Sub tcpclient_Connect()
lblstatus.Caption = "Connesso"
End Sub


Doppio click sul bottone Apri Cd-Rom e:

Private Sub cmdopen_Click()
tcpclient.SendData "open
End Sub


Doppio click sul bottone Chiudi Cd-Rom:

Private Sub cmdclose_Click()
tcpclient.SendData "close
End Sub


Il Client è terminato...

Alla prossima con il lato Server...

Buon Natale da Juni0r!!!

Commenti