MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 21.09.2017, 10:00   #1
Höho
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - VBA Musik Button Mehrfach belegen

Hallo Forenmitglieder,

eines vorweg, für mich ist das arbeiten mit VB vollkommenes Neuland und auch der PC ist generell nicht mein Steckenpferd.

Ich hoffe Ihr könnt mir bei meinem Problem weiterhelfen, habe schon vielerorts im Internet gesucht aber so die richtig passende Lösung habe ich bisher noch nicht gefunden, wohl auch weil ich mit vielen Ausdrücken bzw. Codierungen nicht auskenne.

Die Aufgabenstellung ist das ich in Excel eine Art Scoreboard erstellen muss welches nebst dem raufzählen der Tore per klick auch die Funktion des Abspielens einer mp3 Datei für jeden einzelnen Spieler beinhaltet.

So, die Zählbuttons funktionieren, auch das Abspielen von mp3 Dateien habe ich, dank Internet-Code, auch nach langen Kampf hinbekommen ABER:

- ich kann die Musik nur mit einem "PLAY" Button starten und mit einem "STOP" Button beenden.
Es muss also immer "STOP" gedrückt werden damit der "PLAY" Button wieder aktiv wird.

Ich hätte aber gerne das ich ohne STOP auskomme und der PLAY Button bei jedem Klick erneut die Melodie abspielt.

Ist dies in irgendeiner Art und Weise möglich?

Entschuldigt den vielen Text, hoffe ihr könnt mir hier weiterhelfen und bin für jeden Rat dankbar!!! Ach ja, hier der aktuelle Code:


Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Public isMp3Playing As Boolean

Sub PlayMusic()
Call Play_MP3("höho horn.mp3")
End Sub

Sub StopMusic()
Call Stop_MP3("höho horn.mp3")
End Sub

Sub Play_MP3(strMP3File As String)

If isMp3Playing Then Exit Sub

If Application.CanPlaySounds Then
strMP3File = ThisWorkbook.Path & Application.PathSeparator & strMP3File
If (VBA.Dir(strMP3File) <> "") Then
'The double quotes Chr$(34) are needed when the file path contains spaces.
'First OPEN and then PLAY.
mciExecute ("OPEN " & VBA.Chr$(34) & strMP3File & VBA.Chr$(34) & " ALIAS jingle")
mciExecute ("PLAY jingle")

isMp3Playing = True

End If
End If
End Sub


Sub Stop_MP3(strMP3File As String)

If Application.CanPlaySounds Then
strMP3File = ThisWorkbook.Path & Application.PathSeparator & strMP3File
If (VBA.Dir(strMP3File) <> "") And isMp3Playing Then
mciExecute ("CLOSE jingle")
End If
End If

isMp3Playing = False

Exit Sub

End Sub
Höho ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.09.2017, 14:45   #2
immelmann
MOF Meister
MOF Meister
Standard

wie Du richtig in der Überschrift geschrieben hast, ist es ein VBA Problem und das wird im Excel-Forum behandelt.
Hier geht es ausschließlich um VB6.

__________________

Gruss Torsten

Win 7 SP1, O2010, VB6 Pro SP6, VB2010 SP1
immelmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.09.2017, 16:20   #3
Höho
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Womit ich meine Kenntnisse auch gleich unterstrichen habe :-) ...vielen Dank für die Info, werd ich gleich mal ändern!!!
Höho ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:12 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.