Beep/Piep/Tongk

[XenomX]

Als je in een TextBox op Enter drukt hoor je een geluidje, donk donk Hoe kan ik dit laten verdwijnen, was wel iets met Sound geloof ik.. of Beep..

Mvg, :thumb:

 

[DENNIS90]

KeyAscii = 0

Probeer eens KeyAscii op nul (0) te zetten.

Dus, zo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = 0
   'Hier je eigen code
   'Hier je eigen code
   'Hier je eigen code enz.....
End Sub

Dennis.

 

[XenomX]

Locked

Bij KeyAscii = 0 kan je niks invoeren in de tekst, waarschijnlijk omdat hij via '0' op alle toetsen reageert, maar zo werkt het wel

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text2.Text = Text1.Text
End If
End Sub

(Misschien bedoelde jij het ook wel zo?)

:thumb:

 

[DENNIS90]

Het spijt mij, XenomX.

Ik bedoelde het inderdaad zo.

KeyAscii moet pas op nul(0) worden gezet, nadat een Enter(als op Enter toets al gedrukt is) plaats gevonden heeft.

Ik had KeyAscii=0 in het verleden vaak moeten gebruiken, dat ik het nu alweer vergeet zeg! Een dagje ouder geworden misschien. (ha ha ha)

Wat ben je toch goed, XenomX.

Groetjes,

Dennis.

 

[XenomX]

Heb ik ook last van

Ik heb er ook vaak last van dat ik 'simpele' dingen vergeet moet ik weer in al die codes wroeten om het te vinden :8-0:

:thumb:

 

[DENNIS90]

O, dat wist ik niet.

Ja, ben zelf niet meer zo vaak met VB bezig. Heb het zo druk in de laatste tijd. Maar zie tegenwoordig toch zo nu en dan wel een kansje om vragen die niet met VB van doen hebben daar ff gauw een antwoord op te geven.

Dennis.

 

[XenomX]

Das Mooi

Dat is mooi

Groeten,
Kees. :thumb:

 

[DENNIS90]

Oké, tot schrijfs.

ICU,

Dennis.

p.s. ICU wordt phonetisch geschreven als: ai sie joe.
Eigenlijk verpaupering van: I see you.
Sorry hoor, dat wist je al.

 

[XenomX]

Ja

Ja

Tot de volgende vraag

Groeten, :thumb: