| |
VB & Windows APIRe: Fage zu einem Tipp | | | Autor: Willie | Datum: 13.05.12 21:14 |
| Hallo Martoeng,
erst einmal vielen Dank für eine Antwort am Sonntag (da sitzen andere auf der Terrasse).
Leider kann ich die Antwort nicht so recht nachvollziehen, da ich leider nicht herausgefunden habe, wo ich es in der Routine ein- bzw. ersetze.
Vielleicht deshalb erstmal eine genauere Erklärung, wie ich die Routine benutze.
Da ich, wie schon geschrieben, noch nicht so in den Tiefen des VBA zuhause bin, habe ich die Routine für meine Zwecke nur unwesentlich verändert.
############
Makro von Tabelle6 mp3 START-STOP
############
Option Explicit
'ursprüngliche Zuweisung (Const myMP3 As String = "C:\abc.mp3")
Dim myMP3 As String
Dim blnDontPlayAgain As Boolean
Private Sub Worksheet_Calculate()
If [A1] > 0 Then
If Not blnDontPlayAgain Then
' MP3 abspielen
myMP3 = Cells(5, 1) 'Speicherort der abzuspielenden Datei
MP3_Play myMP3, "MyAlias"
blnDontPlayAgain = True
End If
.
.
.
#############################
Anstelle der konstanten Beispielzuordnung für myMP3 in Zeile 2 weise ich diesen Wert in Zeile 11 über die Zelle A5 des Arbeitsblattes zu.
Für die Zelle A1 ist die Abfrage auf "> 0" geändert, da ja nur der Wechsel +/- 1 ausgewertet wird.
Da die Zelle A1 die Funktion '=A2' enthält, muss ich jeweils die Zelle A2 ändern.
Warum die Änderung nicht direkt in A1 erfolgen kann, erzieht sich meiner Kenntnis, funktioniert jedenfalls nicht.
Ergebnis: per Makro den Speicherort der abzuspielenden Datei in die Zelle A5.
In der Userform ist ein Button (Start-Stop), der den Wert der Zelle A2 je nach Zustand
von '0' auf '1' oder von '1' auf '0' ändert.
Bei Änderung zu '1' startet die Wiedergabe, bei Änderung zu '0' stoppt sie.
Wenn die Datei jedoch fertig gespielt ist, bleibt der Wert der Zelle A2 auf '1'.
Folge: Wenn ich nach Beendigung der ersten MP3 der Zelle A5 eine neue Datei zugewiesen habe,
muss ich den Button (Start-Stop)in der Userform 2x anklicken.
Das 1. Mal für Änderung A2 = '0' (keine Reaktion, Datei fertig aber A2 noch immer '1' )
Das 2. Mal für Änderung A2 = '1' (Start der neuen Datei)
Ein ergonomisch unschönes Handling.
Aus diesem Grund die Frage nach einem Ende-Flag, das mein Programm auswerten kann, um nach Ende der MP3 den Wert der Zelle A2 per Makro automatisch auf 0 zu setzen, damit ich nach einer neuen Dateizuweisung den Start-Button nur 1x betätigen muss.
Ich hoffe, mein Problem etwas genauer verdeutlicht zu haben.
Gruß Willie | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|