Hader WinSock - og nu skal jeg fortælle jer hvorfor

Tags:    visual-basic

;) Godt topic? Fik jeres opmærksomhed.

Jeg HADER WinSock i VB, pga: Laver jeg en text1, og command1.

Command1 sender text1.text til en connected IP. Sætter jeg så command1.default = True - OG SMADRER den store hånd ned på enter; Så sender den en besked som går igen, og igen, og igen. Og der er INGEN måder at stoppe den, for det er ikke et loop som sådan.

Hvis text1.text = "test", så bliver besked-string = "testtesttesttesttesttest". Dvs. der kommer én besked og ikke multi-beskeder.

Det driver mig til vanvid ;) Løsninger til dette, latterlige, problem, tildeles 200 point ;).



Dette er afprøvet:

Nytter intet at lave:
-----------------------------
Public Sub cmdchatSend_Click()

If Not text1.Text = "" & frmSplash.lblConnected.Caption = "1" Then
'Sender teksten
WS.SendData text1.text

'renser chat-linien
text1.Text = ""
End If

End Sub
-----------------------------

Og heller ikke


-----------------------------
dim fedninja as integer
fedninja = 0
Public Sub cmdchatSend_Click()
Fedninja = 1

If Not text1.Text = "" & frmSplash.lblConnected.Caption = "1" & fedninja <> "0" Then
'Sender teksten
WS.SendData text1.text

'renser chat-linien
text1.Text = ""


End If
fedninja = 0
End Sub
-----------------------------



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
i nummer 2

If Not text1.Text = "" & frmSplash.lblConnected.Caption = "1" & fedninja <> "0" Then

tjekker om du fednija er froskelige for strenge "0" men du har ærklære fednija som integer, så hvis det tjek skulle være rigtig skal det være uden gåseøjne.

måske det kan have noget med det at gøre?



:) narj ikk noget med det, Thomas.

Jeg måtte sætte alle meddelelser i en list, og tage hver besked, en for en.

Det er bare en kompliceret løsning, til en enkelt problem ;) Godt jeg ikk er hardcore programmør, ville være flov over mine løsninger ;).

Men tak for din interesse, Thomas.



t