✔ TextBox_Enter - Mehrfach-Abfrage verhindern

[waswiewo]

Hi VB-/ VBA-Pros!

Ich hab ein Problemchen. Und zwar:

Wenn ich in meine TextBox springe (Der Cursor), dann wird eine bestimmte wav-Datei abgespielt. ( TextBox_Enter(...) )

Wenn ich jetzt einen Wert eingebe, z.B. "34", dann gibt er bei jeder Tastenberührung den Sound erneut wieder. Dies soll er nicht!

Kann man dies irgendwie abfangen? Wenn er in die Box reinspringt, dann soll der Sound kommen, wenn aber eine Eingabe in diese Box gemacht wird, dann nicht!

Stehe auf dem Schlauch . .

MfG

 

[DrSoong]

Hast du Code, wie du das mit dem Sound realisierst?


Der Doc!

 

[waswiewo]

Jau!

Hier der Code:

Option Explicit

Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long


...


Private Sub TextBox1_Enter()


If L1.Caption > 1 Or L1.Caption < 171 Then varSuchbegriff = Val(L1.Caption) Else varSuchbegriff = L1.Caption

Call sndPlaySound32(ThisWorkbook.Path & "\" & "Sounds\Announcer\yr_" & L1.Caption & ".wav", 1)

...

End Sub

Der Code funktoniert soweit 1A, nur möchte ich halt unterbinden, dass er den Sound auch abspielt, wenn (Bei Eingabe in die TextBox) eine Taste gedrückt wird.


#####EDIT:

Ohh, bin ich blöd... habe den Fehler! Hatte in dem KeyPress- Event(?) einen Fehler... Hab immer wieder den SetFocus neu auf die Box gesetzt (Dumm!) ..

Erledigt