Visual Basic 6 - Eventi TextBox

Forum - Visual Basic 6 - Eventi TextBox

Pagine: [ 1 2 ]

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 11:22
Domenica, 03/06/2007

Salve, sto lavorando alla mia chat da un po' di tempo, ora però ho trovato un problema

Codice sorgente - presumibilmente Delphi

'Se txtInvia contiene almeno un carattere allora invia il messaggio
If txtInvia.SelStart > 0 Then
Data = "Client sta scrivendo un messaggio"
TCP.SendData Data
'Altrimenti non invia nulla
Else
Data = " "
TCP.SendData Data
End If

Con questo codice ogni volta che scrivo un messaggio, l'altro utente riceve in una textbox un messaggio avvisandolo che sto scrivendo.
Il problema sta nel fatto che il codice si trova nell'evento change della textbox e quindi si verifica ogni volta che digito un carattere, di conseguenza se scrivo velocemente Data non è più "Client sta scrivendo un messaggio", ma "Client sta scrivendo un messaggio""Client sta scrivendo un messaggio""Client sta scrivendo un messaggio""Client sta scrivendo un messaggio" . per cui quando si verifica DataArrival non esegue:

Codice sorgente - presumibilmente VB.NET

If Data = " " Then txtStato.Text = "": Exit Sub
If Data = "Client sta scrivendo un messaggio" Then
txtStato.Text = "Client sta scrivendo un messaggio"
Exit Sub
End If

visto che Data non è più "Client sta scrivendo un messaggio"

Codice sorgente - presumibilmente VB.NET

Dim Data As String
TCP.GetData Data
If Data = " " Then txtStato.Text = "": Exit Sub
If Data = "Client sta scrivendo un messaggio" Then
txtStato.Text = "Client sta scrivendo un messaggio"
Exit Sub
End If
If Data = "Hai ricevuto un trillo!" Then Beep
lblStato.Caption = "In arrivo " & bytesTotal & "Bytes"
txtChat.Text = txtChat.Text & " Remoto> " & Data & vbCrLf
txtChat.SelStart = Len(txtChat.Text)
txtStato.Text = ""

E' un pochino complicato da spiegare spero che abbiate capito!!

In caso contrario ditemelo!!

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:52
Domenica, 03/06/2007

non basterebbe mettere una variabile booleana a true quando la tua textbox non è vuota e a false quando lo è e inviare a ogni cambiamento di testo il valore della variabile?

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 16:01
Domenica, 03/06/2007

Però non so su che evento inserire il codice. In change non penso che può funzionare, perchè l'evento si verifica ogni volta che inserisco un carattere

SuperTiz (Ex-Member)
Pro

Messaggi: 97
Iscritto: 25/05/2007

Postato alle 20:00
Domenica, 03/06/2007

Proviamo con il suggerimento di Paperoga, che mi sembra molto valido

sto per dare una risposta affrettata, cmq prova cosi

scrivi

Dim X as Boolean
If txtInvia.SelStart > 0 then
X = true
else
X = false
end if
If X = true then
Data = "Client sta scrivendo un messaggio"
TCP.SendData Data
Else
Data = " "
TCP.SendData Data
End If

dovrebbe andare, se x è vero allora visualizza il messaggio, se è falso no..
prova e facci sapere!

Ultima modifica effettuata da SuperTiz il 03/06/2007 alle 20:01

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 21:25
Domenica, 03/06/2007

Avevo già provato in questo modo, comunque ho inserito il codice che mi hai suggerito e il problema persiste. Appena comincio a scrivere velocemente compare:

Remoto> Client sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggioClient sta scrivendo un messaggio

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 21:25
Domenica, 03/06/2007

Ultima modifica effettuata da Roberto VB il 03/06/2007 alle 21:29

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 21:26
Domenica, 03/06/2007

Ultima modifica effettuata da Roberto VB il 03/06/2007 alle 21:29

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:20
Lunedì, 04/06/2007

Codice sorgente - presumibilmente VB.NET

Private sub txtinvia_change()
Dim X as Boolean
If txtInvia = "" then
X = false
else
X = true
end if
if x = true
TCP.SendData "true"
else
TCP.SendData "false"
end if
end sub

nel dataarrival

Codice sorgente - presumibilmente VB.NET

if datiricevuti = true
text1.text = "il clinet sta scrivendo un messaggio"
elseif datiricevuti = false 
text1.text = ""
end if

Ultima modifica effettuata da P4p3r0g4 il 04/06/2007 alle 14:21

Roberto VB (Member)
Expert

Messaggi: 419
Iscritto: 29/01/2007

Postato alle 15:37
Martedì, 05/06/2007

Continua a darmi lo stesso problema 8-|

Pagine: [ 1 2 ]