Ture_70 (Normal User)
Rookie
Messaggi: 30
Iscritto: 25/01/2009
|
Questo topic è stato chiuso dal moderatore Buona sera, stò realizzando un applicazione client/server. Tra le tante funzioni, vorrei scrivere del testo in una textBox e inviarlo come messaggio nel pc dove c'è il server.
La textbox si chiama txtmessaggio.text e il pulsante per inviare il contenuto contiene:
Codice sorgente - presumibilmente Plain Text |
tcpclient.SendData "$messaggio:" & txtmessaggio.Text
|
è giusto secondo voi???
inoltre, so che nel server devo inserire dei case of, quindi io (non so come fare) dovrei tradurre:
se arriva l' ordine "$messaggio:" allora manda un MsgBox con il contenuto del txtmessaggio.text
potete dirmi quindi cosa mettere nel dataArrival??
|
|
P4p3r0g4 (Member)
Guru
Messaggi: 1319
Iscritto: 29/12/2006
|
gli fai un
msgbox right(datiricevuti,len(datiricevuti) - len("messaggio: "))
|
|
Ture_70 (Normal User)
Rookie
Messaggi: 30
Iscritto: 25/01/2009
|
Non compare nulla...
Forse ho sbagliato a interpretare il tuo codice...dimmi se ho sbagliato perfavore...
Codice sorgente - presumibilmente VB.NET |
Dim StrData As String tcpserver.GetData StrData Select Case StrData Case "$messaggio:" MsgBox Right("$messaggio:", Len("$messaggio:") - Len("$messaggio: "))
|
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Codice sorgente - presumibilmente VB.NET |
Dim StrData As String tcpserver.GetData StrData If InStr(1, StrData, "$messaggio:") > 0 Then MsgBox Right(StrData, Len(StrData) - Len("$messaggio:")) End If
|
|
|
Ture_70 (Normal User)
Rookie
Messaggi: 30
Iscritto: 25/01/2009
|
ok! grazie 1000! così funziona! però, ho un dubbio...nel client ho anche altri pulsanti (ad esempio "riavvia")
il pulsante riavvia spedisce il comando "$riavvia"
ma come lo metto il select case nel server??? cioè, io oltre a poter mandare ciò k è contenuto in una textbox tramite un pulsante (come abbiamo fatto) devo anche poter mandare altri ordini al server...quindi, il select case dove lo metto??? Dopo di questa if che mi hai mandato???
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Codice sorgente - presumibilmente VB.NET |
Dim StrData As String tcpserver.GetData StrData If InStr(1, StrData, "$messaggio:") > 0 Then MsgBox Right(StrData, Len(StrData) - Len("$messaggio:")) elseif StrData = "$riavvia" Then ... end if
|
|
|
Ture_70 (Normal User)
Rookie
Messaggi: 30
Iscritto: 25/01/2009
|
ok...grazie 1000! ho letto diverse discussioni su qst sito, e quasi tutte finiscono col chiedente che dice k qui sn tutti dei geni...beh, concordo con quei chiedenti. grazie ancora.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da Ture_70:
ok...grazie 1000! ho letto diverse discussioni su qst sito, e quasi tutte finiscono col chiedente che dice k qui sn tutti dei geni...beh, concordo con quei chiedenti. grazie ancora. |
lol non ce di chè |
|
TheAppleMan (Normal User)
Newbie
Messaggi: 9
Iscritto: 26/04/2010
|
ciao scusa se scrivo dopo 1 anno e mezzo XDXD
mi sono registrato solo adesso!!!
ma se io volessi inviare piu textbox e anche altri comandi(es. "riavvia")
grazie
ciao
|
|