[vb6] enter herkennen, of enter negeren

[Verwijderd]

Ik heb een programma'tje gemaakt waarmee ik makkelijk berichten over het netwerk kan sturen mbv net send.
Na wat hulp van GOT mensen heb ik het ook voor elkaar gekregen dat het bericht wordt verstuurd als je op ctrl+enter klikt.

Het nadeel nu is alleen dat in het tekstvlak (die ik "" maak) de cursor op de 2e regel gaat staan.
De controle denkt dat het bericht niet leeg is, en dus kun je als je ctrl+enter inhoud honderden berichten versturen.

code:

Sub controle_bericht()
If Text1.Text = Empty Then
 fout = "geen bericht"
 MsgBox ("Typ een bericht")
 Me.Refresh
Else: fout = "ok"
End If
End Sub

Dit is de controle en hieronder staat de stuk code die bekijkt of ctrl+enter wordt ingevoerd

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = 10 Or KeyAscii = 13) And CtrlDown Then
 Call student_nummer_bepalen
 Call versturen
End If
End Sub

Hoe kan ik ervoor zorgen dat de controle ziet dat het text1.text vlak 1 lege regel heeft en dus eigenlijk leeg is, of dat die lege regel wordt weggehaald?

Als ik zeg dat het textvlak null moet worden blijft de cursor gewoon op de 2e regel staan.

[muba]

text1.text = ""?

[Tukk]

code:

If len(text1.text) = 0 then

tip, maak van die 13 VBEnter, das wat leesbaarder.

[Verwijderd]

Tukk schreef op 16 november 2003 @ 16:59:

code:

If len(text1.text) = 0 then

tip, maak van die 13 VBEnter, das wat leesbaarder.

Ik heb er vbenter van gemaakt, maar de if statement doet nog niet wat ik wil.. De lengte is namelijk niet 0, maar het bericht is 1 enter naar beneden... Dus hij moet kunnen herkennen als het vak leeg is en of de eerste regel een harde return is

[Tukk]

code:

if len(text1.text) <= 1 and instr(text1.text,vbenter,1) > 0 then

Die Instr functie moet je even opzoeken in de MSDN, die heb ik uit het hoofd de parameters mee gegeven.

Ik kan je als tip geven de functie van VB in MSDN eens goed te bekijken, een goed VB voorbeelden boek te kopen en eens code te bekijken van anderen (op bv: www.planetsourcecode.com), want je vragen zijn voor tweakers, naar mijn IMHO, vrij n00b.

[_the_crow_]

Je kan met

code:

x = Mid(string, start[, length])

misschien wel wat? Length op 1 zetten en dan de start telkens increasen in een for-loopje. Je zet dan een if-statment erachter, die vergelijkt of het teken gelijk is aan een 'return'.

[ Voor 5% gewijzigd door _the_crow_ op 16-11-2003 17:24 ]

[RayNbow]

Verwijderd schreef op 16 november 2003 @ 16:47:
...
Het nadeel nu is alleen dat in het tekstvlak (die ik "" maak) de cursor op de 2e regel gaat staan.
De controle denkt dat het bericht niet leeg is, en dus kun je als je ctrl+enter inhoud honderden berichten versturen.
...

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = 10 Or KeyAscii = 13) And CtrlDown Then
 Call student_nummer_bepalen
 Call versturen
End If
End Sub

...

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = 10 Or KeyAscii = 13) And CtrlDown Then
 Call student_nummer_bepalen
 Call versturen
 ' TOEGEVOEGDE REGELS OM DE ENTER TOETSAANSLAG TE NEGEREN
 ' EN TEKSTVLAK LEEG TE MAKEN
 KeyAscii = 0
 Text1.Text = ""
End If
End Sub

Edit: over vbEnter, dat is NIET de constante voor de Enter toets, maar de constante die wordt gebruikt in Drag en Drop events. Als je constanten wilt gebruiken wordt de code:

code:

Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii = Asc(vbLf) Or KeyAscii = Asc(vbCr)) And CtrlDown Then
 Call student_nummer_bepalen
 Call versturen
 ' TOEGEVOEGDE REGELS OM DE ENTER TOETSAANSLAG TE NEGEREN
 ' EN TEKSTVLAK LEEG TE MAKEN
 KeyAscii = 0
 Text1.Text = ""
End If
End Sub

[ Voor 49% gewijzigd door RayNbow op 16-11-2003 17:33 ]