Übung 14

<BODY BGCOLOR="#C0C0C0"> <TABLE border=0 Width=100%> <TR> <td Width=78% rowspan=3 colspan=10 bgcolor="#C0C0C0"> </td> <TD Width=6% valign="MIDDLE" align="center" rowspan=3 bgcolor="#3469C6"><FONT size="6" face="Verdana" color="#FAFEBC">14</FONT></TD> <td Width=6% rowspan=3 colspan=1 bgcolor="#C0C0C0"> </td> <TD Width=10% bgcolor="#C0C0C0"> </td> </TR> <tr> <TD bgcolor="#C0C0C0"> </td> </TR> <tr> <TD bgcolor="#C0C0C0"> </td> </TR> </TABLE> <BR> <H1>Übung: Klang-Einbindung</H1> <P><img src="graphics/line_rainbow.gif"></P> <BR> <CENTER><IMG SRC="graphics/soundkrt.jpg"></CENTER> <BR> <BR> <CENTER>[ <A HREF="#Programm">Programm WaveBsp</A> | <A HREF="#Oberfläche">Oberfläche</A> | <A HREF="#Menü">Menüleiste</A> | <A HREF="#Code">Programmcode</A>]</CENTER> <BR> <HR> <BR> <P>Ziel dieser Übung ist es, Visual Basic-Programme zu schreiben, die Wave-Sounddateien abspielen. Am Ende dieser Übung sollten Sie folgendes beherrschen:</P> <UL> <LI>Einsetzen des Multimedia-Steuerelements auf einer Form. <LI>Schreiben eines einfachen Programms, das Wave-Dateien abspielen kann. </UL> <BR><BR> <HR> <A NAME="Programm"> <H2>Das Programm WaveBsp</H2></A> <P>Dieses Beispiel-Programm benutzt das TegoSoft Multimedia-Steuerelement. Um es zu Visual Basic hinzuzufügen, wählen sie die Menüoption <I>Zusatzsteuerelemente...</I> im Menü <I>Extras</I>. Kreuzen sie in der Liste den Eintrag <I>TegoSoft Multimedia</I> an, und schließen Sie dieses Dialogfenster durch Clicken auf <I>OK</I>. Jetzt erscheint in der Werkzeugsammlung das Symbol <img border=0 align=middle src="graphics/tegomm.jpg"> für das Multimedia-Steuerelement.</P> <P>Das Multimedia-Steuerelement verfügt über neun nebeneinander angeordnete Schaltflächen,die in der nachfolgenden Abbildung zu sehen sind:</P> <CENTER><img border=0 align=middle src="graphics/sound10.jpg"></CENTER><BR> <P>Es könne mit diesem Steuerelement zahlreiche Multimedia-Geräte bedient werden. Neben Wave-Dateien können mit diesem Steuerelement auch MIDI-Dateien, CD-Audio-Dateien und AVI-Filmdateien wiedergegeben werden. Einige der Schaltflächen wechseln abhängig von der Dateiart ihre Bedeutung. Beispielsweise wird die Schaltfläche ganz rechts für Wave-Dateien nicht genutzt. Sie dient dem Auswerfen einer CD aus dem CD-ROM-Laufwerk.</P> <A NAME="Oberfläche"> <H2>Oberfläche</H2></A> <P>Erstellen Sie eine Form und fügen Sie die Steuerelemente hinzu, die nachfolgend abgebildet und beschrieben sind.</P> <CENTER><img border=0 align=middle src="graphics/ueb_14_0.jpg"></CENTER><BR> <TABLE BORDER=0 CELLPADDING="2"> <TR> <TH BGCOLOR="#808080" WIDTH=150 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Objekt</FONT></TH> <TH BGCOLOR="#808080" WIDTH=140 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Eigenschaft</FONT></TH> <TH BGCOLOR="#808080" WIDTH=160 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Einstellung</FONT></TH> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=6 VALIGN=TOP> Form</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Wave-Beispielprogramm</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 3825</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1080</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > frmWaveBsp</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1170</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 6090</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Vertikale Bildlaufleiste</TD> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 2775</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 5520</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Max</TD> <TD BGCOLOR="#FFFFFF" > 100</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > vscNichts</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 240</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 255</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > An&zeigen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdAnzeigen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Ver&bergen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > True</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdVerbergen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 720</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > &Start</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdStart</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1920</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Sto&p</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 2760</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdStop</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1920</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Pause</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 4080</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdPause</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1920</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=6 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Be&enden</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdBeenden</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=4 VALIGN=TOP> Standarddialog</TD> <TD BGCOLOR="#FFFFFF"> CancelError</TD> <TD BGCOLOR="#FFFFFF" > True</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 3240</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmmDatei</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=5 VALIGN=TOP> Multimedia</TD> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > TegoMM1</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 2520</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 3915</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=10 VALIGN=TOP> Bezeichnungsfeld</TD> <TD BGCOLOR="#FFFFFF"> Alignment</TD> <TD BGCOLOR="#FFFFFF" >2 - Center</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> BackColor</TD> <TD BGCOLOR="#FFFFFF" > &H00000000&</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > [leer]</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Font</TD> <TD BGCOLOR="#FFFFFF" > Verdana 9pt</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> ForeColor</TD> <TD BGCOLOR="#FFFFFF" > &H0000FF00&</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 255</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 3960</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > lblPosition</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 360</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1455</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=6 VALIGN=TOP> Bezeichnungsfeld</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Aktuelle Position:</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 255</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 3960</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > lblDerzeit</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 0</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> </TABLE> <BR> <A NAME="Menü"> <H2>Menüleiste</H2></A> <TABLE BORDER=1> <TR> <TH BGCOLOR="#454545" WIDTH=45><FONT COLOR="#FFFFFF">Position</FONT></TH> <TH BGCOLOR="#454545" WIDTH=165><FONT COLOR="#FFFFFF">Titel</FONT></TH> <TH BGCOLOR="#454545" WIDTH=235><FONT COLOR="#FFFFFF">Name</FONT></TH> </TR> <TR> <TD ALIGN="LEFT"> 0 </TD> <TD> &Datei</TD> <TD> mnuDatei</TD> </TR> <TR> <TD ALIGN="CENTER"> 1 </TD> <TD> Ö&ffnen</TD> <TD> mnuOpen</TD> </TR> <TR> <TD ALIGN="CENTER"> 1 </TD> <TD> S&chließen</TD> <TD> mnuClose</TD> </TR> <TR> <TD ALIGN="CENTER"> 1 </TD> <TD> -</TD> <TD> mnuSep1</TD> </TR> <TR> <TD ALIGN="CENTER"> 1 </TD> <TD> &Beenden</TD> <TD> mnuEnde</TD> </TR> </TABLE> <A NAME="Code"> <H2>Eingabe des Programmcodes</H2></A> <H3>Allgemeiner Deklarationsbereich</H3> <PRE> <B><TT><FONT COLOR="#23238E">Option Explicit </FONT></TT></B> </PRE> <P>Dieser Befehl erzwingt die Deklaration sämtlicher Variablen.</P> <H3>Befehlsschaltfläche <I>Beenden</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdBeenden_Click() <FONT COLOR="#23238E">End</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Menüeintrag <I>Beenden</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>mnuEnde_Click() cmdBeenden_Click <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <P>Dieser Menüeintrag führt denselben Code aus wie die Schaltfläche <I>Beenden</I>.</P> <H3>Schaltfläche<I> Verbergen</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdVerbergen_Click() TegoMM1.Visible = <FONT COLOR="#23238E">False</FONT> cmdVerbergen.Enabled = <FONT COLOR="#23238E">False</FONT> cmdAnzeigen.Enabled = <FONT COLOR="#23238E">True</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <P>Diese Prozedur setzt die Visible-Eigenschaft des Multimedia-Steuerelements auf False; es wird also unsichtbar.</P> <H3>Schaltfläche<I> Anzeigen</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdAnzeigen_Click() TegoMM1.Visible = <FONT COLOR="#23238E">True</FONT> cmdVerbergen.Enabled = <FONT COLOR="#23238E">True</FONT> cmdAnzeigen.Enabled = <FONT COLOR="#23238E">False</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Menüeintrag <I>Öffnen</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>mnuOpen_Click() <FONT COLOR="#23238E">On Error GoTo</FONT> OpenFehler <FONT COLOR="GREEN">Rem Elemente im Dateityp-Feld setzen</FONT> <FONT COLOR="#23238E">Dim</FONT> DateiLänge cmmDatei.Filter = "Wave-Dateien (*.wav)|*.wav|Alle Dateien (*.*)|*.*" cmmDatei.FilterIndex = 1 <FONT COLOR="GREEN">' Standard-Dateityp setzen</FONT> cmmDatei.Action = 1 <FONT COLOR="GREEN">' Dialogfeld anzeigen</FONT> DateiArt = cmmDatei.FilterIndex DateiLänge = FileLen(cmmDatei.filename) <FONT COLOR="#23238E">On Error GoTo 0</FONT> <FONT COLOR="GREEN">' Fehlerbehandlungs-Routine entfernen</FONT> <FONT COLOR="GREEN">Rem Ausgewählte Datei öffnen</FONT> TegoMM1.DeviceType = "WaveAudio" TegoMM1.filename = cmmDatei.filename TegoMM1.Command = "Open" <FONT COLOR="#23238E">If</FONT> TegoMM1.Error > 0 <FONT COLOR="#23238E">Then</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> frmWaveBsp.Caption = "Wave-Beispielprogramm - (keine Datei geladen)" MsgBox cmmDatei.filename & "konnte nicht geöffnet werden", _ vbCritical, "Fehler" <FONT COLOR="#23238E">Else</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> frmWaveBsp.Caption = "Wave-Beispielprogramm - (" & _ cmmDatei.FileTitle & ")" lblPosition.Caption = "00 : 00" TegoMM1.TimeFormat = "Milliseconds" <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">Exit Sub</FONT> OpenFehler: <FONT COLOR="#23238E">Select Case </FONT>Err <FONT COLOR="#23238E">Case</FONT> 53 cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> frmWaveBsp.Caption = "Wave-Beispielprogramm - (keine Datei geladen)" MsgBox "Die Datei konnte nicht gefunden werden.", vbCritical, "Fehler" <FONT COLOR="#23238E">Exit Sub</FONT> <FONT COLOR="#23238E">Case</FONT> 32755 <FONT COLOR="GREEN">Rem Abbrechen-Schaltfläche im Dateiauswahlfenster wurde gedrückt.</FONT> <FONT COLOR="#23238E">Exit Sub</FONT> <FONT COLOR="#23238E">End Select</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <P>Da der CancelError-Eigenschaft des Standarddialogfeldes der Wert <I>True</I> zugewiesen worden ist, folgt daraus, daß ein Fehler auftritt, wenn dort auf die Schaltfläche <I>Abbrechen</I> geclickt wird. Die Fehlerbehandlungs-Routine fängt diesen Fehler auf. Nach dem Öffnen der Datei können keine Datei-Fehler mehr auftreten, deshalb wird die Fehlerbahandlungs-Routine dort wieder entfernt.</P> <P>Die If...Else-Schleife wird verwendet, um festzustellen, ob der Open-Befehl des Multimedia-Steuerelements erfolgreich ausgeführt werden konnte. Es könnten hier Fehler auftreten, wenn die Wave-Datei ungültig ist (falsches Format, unvollständig, usw.). In diesem Fall werden die Start- und Stop-Schaltflächen deaktiviert, und die Titelleiste der Form zeigt an, daß keine Datei geladen ist.</P> <H3>Menüeintrag<I> Schließen</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>mnuClose_Click() TegoMM1.Command = "Close" cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> frmWaveBsp.Caption = "Wave-Beispielprogramm - (keine Datei geladen)" lblPosition.Caption = "" <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Schaltfläche<I> Start</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdStart_Click() TegoMM1.Command = "Play" cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">True</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">True</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Schaltfläche<I> Stop</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdStart_Click() TegoMM1.Command = "Stop" cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Schaltfläche<I> Pause</I></H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>cmdStart_Click() TegoMM1.Command = "Pause" <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Form</H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>Form_Load() TegoMM1.UpdateInterval = 250 <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <P>Der Code in dieser Prozedur setzt die UpdateInterval-Eigenschaft des Multimedia-Steuerelements auf 250 Millisekunden. Die StatusUpdate-Prozedur des Multimedia-Steuerelements wird von nun an alle Viertelsekunden ausgeführt. In der Unload-Methode sollte noch folgende Zeile eingetragen werden (wenn der Befehl zum Beenden des Programms bei noch laufender Multimediadatei-Abspielung aufgerufen wird, wird damit das Abspielen beendet und die Multimedia-Datei geschlossen):</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>Form_Unload(Cancel <FONT COLOR="#23238E">As Integer</FONT>) TegoMM1.Command = "Close" <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Das Multimedia-Steuerelement</H3> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> TegoMM1_Done() <FONT COLOR="#23238E">If</FONT> TegoMM1.Position = TegoMM1.Length <FONT COLOR="#23238E">Then</FONT> TegoMM1.Command = "Prev" vscNichts.Value = 0 lblPosition.Caption = "00 : 00" cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False End If End Sub</FONT></TT></B> </PRE> <P>Die Positions-Eigenschaft des Multimedia-Steuerelements zeigt die aktuelle Position der Wave-Datei an. Wenn Position- und Length-Eigenschaft den gleichen Wert enthalten, dann ist die Wave-Datei am Ende angelangt, und das Done-Ereignis tritt auf. In diesem Fall wird die Wave-Datei durch den Befehl "Prev" wieder an den Anfang gesetzt.</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> TegoMM1_StatusUpdate() <FONT COLOR="#23238E">Dim</FONT> PosMinute <FONT COLOR="#23238E">Dim</FONT> PosSekunde <FONT COLOR="GREEN">Rem Mode 526 = Playing, Mode 527 = Recording</FONT> <FONT COLOR="#23238E">If</FONT> TegoMM1.Mode = 526 <FONT COLOR="#23238E">Or</FONT> TegoMM1.Mode = 527 <FONT COLOR="#23238E">Then</FONT> PosSekunde = Fix(TegoMM1.Position / 1000) PosMinute = Fix(PosSekunde / 60) PosSekunde = PosSekunde <FONT COLOR="#23238E">Mod</FONT> 60 lblPosition.Caption = Format(PosMinute, "00") & " : " & Format(PosSekunde, "00") vscNichts.Value = TegoMM1.Position * 100 / TegoMM1.Length <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <P>Der Code aktualisiert die Caption-Eigenschaft im Bezeichnungsfeld lblPosition jede Viertelsekunde mit dem Wert der Positions-Eigenschaft des Multimedia-Steuerelements. Außerdem wird auch mit dem Schieberegler diese Position angezeigt.</P> <P>Damit wäre die Erstellung des Programms abgeschlossen. Das Programm ist jetzt einsatzbereit, um Wave-Dateien wiederzugeben.</P> <A NAME="Erweiterung"> <H2>Erweiterung</H2></A> <P>DasWaveBsp-Programm soll nun noch so erweitert werden, daß mit ihm auch andere Multimedia-Dateien wiedergegeben werden können. Außerdem sollen die Funktionen aller neun Schaltflächen des Multimedia-Steuerelements auch mit Befehlsschaltflächen ausgelöst werden können. Die Oberfläche würde nun so wie folgt aussehen:</P> <CENTER><img border=0 align=middle src="graphics/ueb_14_1.jpg"></CENTER><BR> <TABLE BORDER=0 CELLPADDING="2"> <TR> <TH BGCOLOR="#808080" WIDTH=150 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Objekt</FONT></TH> <TH BGCOLOR="#808080" WIDTH=140 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Eigenschaft</FONT></TH> <TH BGCOLOR="#808080" WIDTH=160 ALIGN="LEFT"><FONT COLOR="#FFFFFF">Einstellung</FONT></TH> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Auswerfen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 4080</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdAuswerfen</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1320</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Dateianfang</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdDateiAnfang</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1320</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Dateiende</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 2760</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdDateiEnde</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1320</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=12 VALIGN=TOP> 3D-Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> BevelWidth</TD> <TD BGCOLOR="#FFFFFF" > 1</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Aufnahme</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Font3D</TD> <TD BGCOLOR="#FFFFFF" > 3</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> ForeColor</TD> <TD BGCOLOR="#FFFFFF" > &H000000FF&</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 4080</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdRecord</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Outline</TD> <TD BGCOLOR="#FFFFFF" > True</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> RoundedCorners</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 720</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Schritt zurück</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdSchrittRet</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 720</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Befehlsschaltfläche</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Schritt vor</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Enabled</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 2760</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > cmdSchrittVor</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 720</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 1215</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=7 VALIGN=TOP> Bezeichnungsfeld</TD> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > Track:</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 255</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 480</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > lblTrackAnzeige</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1560</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Visible</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 615</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=11 VALIGN=TOP> Bezeichnungsfeld</TD> <TD BGCOLOR="#FFFFFF"> Alignment</TD> <TD BGCOLOR="#FFFFFF" > 2 - Center</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> BackColor</TD> <TD BGCOLOR="#FFFFFF" > &H00000000&</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Caption</TD> <TD BGCOLOR="#FFFFFF" > 1</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Font</TD> <TD BGCOLOR="#FFFFFF" > Verdana, 20pt</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> ForeColor</TD> <TD BGCOLOR="#FFFFFF" > &H0000FFFF&</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 495</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 480</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > lblTrack</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1920</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Visible</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 855</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF" ROWSPAN=11 VALIGN=TOP> Vertikale Bildlaufleiste</TD> <TD BGCOLOR="#FFFFFF"> Height</TD> <TD BGCOLOR="#FFFFFF" > 1575</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Large Change</TD> <TD BGCOLOR="#FFFFFF" > 1</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Left</TD> <TD BGCOLOR="#FFFFFF" > 120</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Name</TD> <TD BGCOLOR="#FFFFFF" > vscTrackAnzahl</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Top</TD> <TD BGCOLOR="#FFFFFF" > 1440</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Visible</TD> <TD BGCOLOR="#FFFFFF" > False</TD> </TR> <TR> <TD BGCOLOR="#FFFFFF"> Width</TD> <TD BGCOLOR="#FFFFFF" > 255</TD> </TR> </TABLE> <BR> <H3>Erweiterungen des Programmcodes</H3> <P>Die Erweiterungen im Programmcode sind unter den jeweiligen Steuerelementen zusammengefaßt.</P> <H3>Allgemeiner Deklarationsbereich</H3> <P>Diese Zeile ist nach der Option Explicit-Anweisung einzutragen. In der Variablen DateiArt wird die Art der Multimediadatei gespeichert, die aktuell geöffnet ist.</P> <PRE> <B><TT><FONT COLOR="#23238E">Dim </FONT>DateiArt <FONT COLOR="#23238E">As Integer</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Auswerfen</I></H3> <P>Diese Schaltfläche ist nur aktiv, wenn eine CD-Audio-Datei abgespielt wird. Sie dient dazu, die Lade des CD-ROM-Lauwerks zu öffnen bzw. zu schließen.</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>Private Sub cmdAuswerfen_Click() <FONT COLOR="#23238E">If</FONT> cmdAuswerfen.Caption = "Auswerfen" <FONT COLOR="#23238E">Then</FONT> TegoMM1.Command = "Eject" cmdAuswerfen.Caption = "Lade schließen" <FONT COLOR="#23238E">Else</FONT> TegoMM1.Command = "CloseDoor" cmdAuswerfen.Caption = "Auswerfen" <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Dateianfang</I></H3> <P>Setzt die abzuspielende Datei zurück an ihren Anfang (bzw. bei CD-Audio-Dateien auf den vorangehenden Track).</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>Private Sub cmdDateiAnfang_Click() TegoMM1.Command = "Prev" cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> <FONT COLOR="#23238E">If</FONT> DateiArt = 4 <FONT COLOR="#23238E">Then</FONT> <FONT COLOR="#23238E">If</FONT> vscTrackAnzahl.Value > vscTrackAnzahl.Min <FONT COLOR="#23238E">Then</FONT> _ vscTrackAnzahl.Value = vscTrackAnzahl.Value - 1 <FONT COLOR="#23238E">Else</FONT> lblPosition.Caption = "00 : 00" vscNichts.Value = 0 <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Dateiende</I></H3> <P>Setzt die abzuspielende Datei an ihr Dateiende vor (bzw. bei CD-Audio-Dateien auf den nächstfolgenden Track).</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub </FONT>Private Sub cmdDateiEnde_Click() TegoMM1.Command = "Next" cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> <FONT COLOR="#23238E">If</FONT> DateiArt = 4 <FONT COLOR="#23238E">Then</FONT> <FONT COLOR="#23238E">If</FONT> vscTrackAnzahl.Value < vscTrackAnzahl.Max <FONT COLOR="#23238E">Then</FONT> _ vscTrackAnzahl.Value = vscTrackAnzahl.Value + 1 <FONT COLOR="#23238E">End If</FONT> <FONT COLOR="#23238E">End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Pause</I></H3> <P>Nach der Zeile <TT>Tegomm1.Command = "Pause"</TT> müssen folgende Zeilen eingefügt werden.</P> <PRE> <B><TT><FONT COLOR="#23238E"> Select Case</FONT> DateiArt <FONT COLOR="#23238E">Case</FONT> 2, 4 cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True End Select</FONT></TT></B> </PRE> <P>Beim Abspielen von Wave-Dateien und von AVI-Video-Dateien bewirkt das Clicken der Pause-Taste eine Unterbrechung, die durch nochmaliges Drücken der Pause-Taste wieder aufgehoben wird, und das Abspielen setzt an genau der gleichen Stelle fort. Bei MIDI-Dateien und CD-Audio-Dateien verhält sich die Pause-Taste dagegen wie die Stop-Taste.</P> <H3>Befehlsschaltfläche <I>Record</I></H3> <P>Um die Bezeichnung dieser Schaltfläche in roter Farbgebung gestalten zu können, wurde hierfür das 3D-Schaltflächensteuerelement gewählt. </P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> cmdRecord_Click() TegoMM1.Command = "Record" cmdRecord.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Font3D = 3 cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">True</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">True End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Schritt zurück</I></H3> <P>Diese Schaltfläche ist nur bei AVI-Video-Dateien verfügbar. Mit ihr kann man bildweise zurückblättern. </P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> cmdSchrittRet_Click() TegoMM1.Command = "Back" cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Schritt vor</I></H3> <P>Diese Schaltfläche ist ebenfalls nur bei AVI-Video-Dateien verfügbar, und dient dazu, in der Datei bildweise vorblättern zu können. </P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> cmdSchrittVor_Click() TegoMM1.Command = "Step" cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False End Sub</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Start</I></H3> <P>Die folgenden Programmzeilen müssen <U>vor</U> der Zeile <TT>TegoMM1.Command = "Play"</TT> eingefügt werden:</P> <PRE> <B><TT><FONT COLOR="#23238E"> Select Case</FONT> DateiArt <FONT COLOR="#23238E">Case</FONT> 1 cmdRecord.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Font3D = 3 <FONT COLOR="#23238E">Case</FONT> 4 TegoMM1.Track = vscTrackAnzahl.Value TegoMM1.From = TegoMM1.TrackPosition <FONT COLOR="GREEN">' übernimmt den in vscTrackAnzahl ' eingestellten Wert als Track-Nummer, ' von dessen Beginn abgespielt werden soll.</FONT> <FONT COLOR="#23238E">End Select</FONT></TT></B> </PRE> <H3>Befehlsschaltfläche <I>Stop</I></H3> <P>Die folgenden Programmzeilen müssen nach der Zeile <TT>TegoMM1.Command = "Stop"</TT> eingefügt werden;</P> <PRE> <B><TT><FONT COLOR="#23238E"> Select Case</FONT> DateiArt <FONT COLOR="#23238E">Case</FONT> 1 cmdRecord.Enabled = <FONT COLOR="#23238E">True</FONT> cmdRecord.Font3D = 0 <FONT COLOR="#23238E">End Select</FONT></TT></B> </PRE> <H3>Menüeintrag <I>Schließen</I></H3> <P>Hier müssen folgende Zeilen ergänzt werden:</P> <PRE> <B><TT> cmdAuswerfen.Enabled = <FONT COLOR="#23238E">False</FONT> lblTrack.Visible = <FONT COLOR="#23238E">False</FONT> lblTrackAnzeige.Visible = <FONT COLOR="#23238E">False</FONT> vscTrackAnzahl.Visible = <FONT COLOR="#23238E">False</FONT> cmdDateiAnfang.Enabled = <FONT COLOR="#23238E">False</FONT> cmdDateiEnde.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Font3D = 3 cmdSchrittVor.Enabled = <FONT COLOR="#23238E">False</FONT> cmdSchrittRet.Enabled = <FONT COLOR="#23238E">False</FONT> cmdDateiAnfang.Caption = "Dateianfang" cmdDateiEnde.Caption = "Dateiende"</TT></B> </PRE> <H3>Menüeintrag <I>Öffnen</I></H3> <P>Im Programmcode muß im Menüeintrag Öffnen in der cmmDatei.Filter-Anweisung etwas geändert werden. Diese Zeile muß wie folgt abgeändert werden:</P> <B><TT> cmmDatei.Filter = "Wave-Dateien (*.wav)|*.wav|MIDI-Dateien (*.mid)|*.mid|AVI-Videodateien (*.avi)|*.avi|CD-Audiodateien (*.cda)|*.cda" </TT></B><BR> <P>Die ausgewählte Multimedia-Dateiart wird in einer globalen Variable namens DateiArt (vom Typ Integer; im Allgemeinen Deklarationsabschnitt eintragen) festgehalten (<TT>DateiArt = cmmDatei.FilterIndex</TT>), und zwar mit Hilfe der FilterIndex-Eigenschaft des Standarddialogs. Wird die erste Dateiart (Wave-Dateien) angewählt, hat FilterIndex den Wert 1. Die DeviceType-Anweisung des Multimedia-Steuerelements wird durch folgende Select Case-Schleife ersetzt:</P> <PRE><B><TT> <FONT COLOR="#23238E">Select Case</FONT> DateiArt <FONT COLOR="#23238E">Case</FONT> 1 TegoMM1.DeviceType = "WaveAudio" <FONT COLOR="#23238E">Case</FONT> 2 TegoMM1.DeviceType = "Sequencer" <FONT COLOR="#23238E">Case</FONT> 3 TegoMM1.DeviceType = "AVIVideo" <FONT COLOR="#23238E">Case</FONT> 4 TegoMM1.DeviceType = "CDAudio" <FONT COLOR="#23238E">End Select</FONT> </TT></B></PRE> <P>Nach der Zeile <TT>TegoMM1.TimeFormat = "Milliseconds"</TT> müssen noch folgende Zeilen ergänzt werden:</P> <PRE><B><TT> <FONT COLOR="#23238E">If</FONT> DateiArt = 4 <FONT COLOR="#23238E">Then</FONT> vscTrackAnzahl.Visible = <FONT COLOR="#23238E">True</FONT> lblTrack.Visible = <FONT COLOR="#23238E">True</FONT> lblTrackAnzeige.Visible = <FONT COLOR="#23238E">True</FONT> vscTrackAnzahl.Max = TegoMM1.Tracks vscTrackAnzahl.Value = Val(Mid$(cmmDatei.FileTitle, 6, 2)) cmdDateiAnfang.Caption = "Track zurück" cmdDateiEnde.Caption = "Track vor" <FONT COLOR="#23238E">Else</FONT> vscTrackAnzahl.Visible = <FONT COLOR="#23238E">False</FONT> lblTrack.Visible = <FONT COLOR="#23238E">False</FONT> lblTrackAnzeige.Visible = <FONT COLOR="#23238E">False</FONT> cmdDateiAnfang.Caption = "Dateianfang" cmdDateiEnde.Caption = "Dateiende" <FONT COLOR="#23238E">End If If</FONT> TegoMM1.CanEject <FONT COLOR="#23238E">Then</FONT> cmdAuswerfen.Enabled = <FONT COLOR="#23238E">True Else</FONT> cmdAuswerfen.Enabled = <FONT COLOR="#23238E">False If</FONT> TegoMM1.CanPlay <FONT COLOR="#23238E">Then</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True Else</FONT> cmdStart.Enabled =<FONT COLOR="#23238E"> False If</FONT> TegoMM1.CanRecord <FONT COLOR="#23238E">Then</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">True</FONT> cmdRecord.Font3D = 0 <FONT COLOR="#23238E">Else</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">False End If If</FONT> TegoMM1.CanStep <FONT COLOR="#23238E">Then</FONT> cmdSchrittVor.Enabled = <FONT COLOR="#23238E">True</FONT> cmdSchrittRet.Enabled = <FONT COLOR="#23238E">True Else</FONT> cmdSchrittVor.Enabled = <FONT COLOR="#23238E">False</FONT> cmdSchrittRet.Enabled = <FONT COLOR="#23238E">False End If</FONT> cmdDateiAnfang.Enabled = <FONT COLOR="#23238E">True</FONT> cmdDateiEnde.Enabled = <FONT COLOR="#23238E">True</FONT></TT></B> </PRE> <BR> <H3>Das Multimedia-Steuerelement</H3> <P>Der in der Click-Methode einzufügende Programmcode lautet wie folgt:</P> <PRE> <B><TT><FONT COLOR="#23238E">Private Sub</FONT> TegoMM1_Click() <FONT COLOR="#23238E">Select Case</FONT> TegoMM1.Mode <FONT COLOR="#23238E">Case</FONT> 525 <FONT COLOR="GREEN">' Stop</FONT> <FONT COLOR="#23238E">If</FONT> DateiArt = 1 <FONT COLOR="#23238E">Then</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">True</FONT> cmdRecord.Font3D = 0 <FONT COLOR="#23238E">End If</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False Case</FONT> 526, 527 <FONT COLOR="GREEN">' Playing / Recording</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">True</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">True</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">False</FONT> cmdRecord.Font3D = 3 <FONT COLOR="#23238E">Case</FONT> 529 <FONT COLOR="GREEN">' Pause</FONT> <FONT COLOR="#23238E">If</FONT> DateiArt = 2 <FONT COLOR="#23238E">Or</FONT> DateiArt = 4 <FONT COLOR="#23238E">Then</FONT> cmdPause.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStop.Enabled = <FONT COLOR="#23238E">False</FONT> cmdStart.Enabled = <FONT COLOR="#23238E">True End If Case</FONT> 530 <FONT COLOR="GREEN">' Lade offen</FONT> <FONT COLOR="#23238E">End Select End Sub</FONT></TT></B> </PRE> <P>Mit diesem Code wird der Status des Multimedia-Steuerelements abgefragt (ob gerade abgespielt wird, ob nicht abgespielt wird, usw.) und dementsprechend die Befehlsschaltflächen aktiviert oder deaktiviert, um deren Status mit denen des Multimedia-Steuerelements in Übereinstimmung zu bringen.</P> <P>In der Done-Methode müssen folgende Programmzeilen ergänzt werden (zwischen <TT>cmdPause.Enabled = False</TT> und dem letzten <TT>End If</TT>):</P> <PRE> <B><TT><FONT COLOR="#23238E"> If</FONT> DateiArt = 1 <FONT COLOR="#23238E">Then</FONT> cmdRecord.Enabled = <FONT COLOR="#23238E">True</FONT> cmdRecord.Font3D = 0 <FONT COLOR="#23238E">End If</FONT> </TT></B> </PRE> <H3>Vertikale Bildlaufleiste vscTrackAnzahl</H3> <P>Dieses Steuerelement ist nur bei CD-Audio-Dateien sichtbar. Es dient dazu, den Track festzulegen, bei dem die CD-Wiedergabe beginnen soll. Sowohl in der Scroll- als auch in der Change-Methode muß folgende Zeile eingetragen werden</P> <PRE> <B><TT> lblTrack.Caption = vscTrackAnzahl.Value </TT></B> </PRE> <P>Mit diesen Eingriffen ist es jetzt möglich, verschiedene Arten von Multimedia-Dateien abzuzspielen.</P> <HR> <BR> <IMG BORDER=0 ALIGN="MIDDLE" SRC="graphics/download.gif"><br> Diese Beispiel-Anwendung zum Multimedia-Steuerelement können Sie im <A HREF="Inhalt.html#downloads"> Download-Abschnitt der Hauptseite</A> (WaveBsp.zip) finden.<br><br> <BR> <A HREF="Uebung13.html"><img border=0 align="middle" src="graphics/up.gif"> Übung 13</A> (Zusatz-Steuerelemente)<BR> <A HREF="Inhalt.html"><img border=0 align="middle" src="graphics/left.gif"> Hauptseite</A><BR> <A HREF="Uebung15.html"><img border=0 align="middle" src="graphics/down.gif"> Übung 15</A> (Erstellen einer Online-Hilfedatei)<BR> </BODY>