Programozási VBA a Microsoft Office
VBA programozás a Microsoft Office.
Player audio fájlok
Itt nézd meg egy egyszerű példát a multimédiás alkalmazások a Visual Basic for Applications - játszani WAV fájlokat. Intelligens pontozás esetén az alkalmazási programban mindig vonzza a felhasználók figyelmét és növeli azok érdeke, hogy együttműködjön a programban. Továbbra is tudja, hogyan kell csinálni.
Most az ablakban a forrás szöveget programozni.
Egyszerű audio lejátszás funkció végrehajtása WinAPI PlaySound. A lány 32 bites változata az úgynevezett Win32API PlaySoundA. Meg lehet játszani a WAV-fájlok, mind a regisztrált az eseményeket és a források EXE és DLL fájlokat. Leírás az a következők:
Magán állapítsa Funkció playSound Lib "Winmm.dll fájlra mutat" _
Alias "PlaySoundA" (ByVal lpszSoundName As String, _
ByVal HM As Long, ByVal uFlags As Long) As Long
Paraméterek: lpszSoundName - a neve a WAV-fájlrendszer esemény vagy forrás, hogy játszott, HM - lejátszás forrása. Ha a forrás - a fájl vagy a rendszer eseményt, HM = 0, ha a forrás - az erőforrás egy EXE vagy DLL fájl, HM, azokban hivatkozni kell a betöltött memória erőforrás. uFlags - lejátszási opciókat.
Ha kell lejátszani a fájlt, telepíteni kell SND_FILENAME zászló. Ha egy rendszer esemény, akkor - SND_ALIAS. Ha az adott esemény vagy a fájl nem létezik, akkor a funkció lejátszik egy hangot megfelel egy rendszerhiba.
További jelek mutatják: SND_SYNC - szinkron lejátszás (megvárja az audio lejátszást, majd folytatja a munkát), SND_ASYNC - aszinkron lejátszás (alkalmazás nem vár lejátszás befejezését hang, és ezzel párhuzamosan továbbra is működik), SND_NODEFAULT - a hiba esetén (a fájl nem található), nem szabványos audio játsszák, SND_NOWAIT - ha a hangkártya driver nem áll rendelkezésre, nem várja meg a felszabadulást.
Leírása a fennmaradó tulajdonságok és módszerek az osztály.
„Nevét tárolja az utoljára játszott fájl
Egyéni PlayFileName As String
„Nevét tárolja az utolsó vesztes események
Egyéni PlaySysMsgAlias As String
„Hagyjuk abba a játékot az aktuális hang
Public Function PlayStop () As Boolean
Hívjon playSound ( "A", 0, SND_NODEFAULT)
A „virtuális tulajdonságok - kijelölésekor
„Az ő neve WAV-fájl lejátszása közben a hang
Property Let PlayFile (ByVal strWAVFileName As String)
Hívjon playSound (strWAVFileName, 0, _
SND_ASYNC Vagy SND_NODEFAULT _
Vagy SND_FILENAME vagy SND_NOWAIT)
A „virtuális tulajdon - olvasás visszatér
„A név a legutóbb lejátszott fájl
Property Get PlayFile () As String
„Amikor hozzárendel nevek
„Események játszani egy hangot
Property Let PlaySys (ByVal strSysMsgAlias As String)
Hívjon playSound (strSysMsgAlias 0, SND_ASYNC Vagy SND_NODEFAULT Or SND_ALIAS)
„Nevét adja az utolsó vesztes
Property Get PlaySys () As String
Fájl hozzáadása a lejátszás gombra, és kattintson duplán a forma, a szerkesztési az eredeti formájában a szövegmezőbe.
A nyilatkozatokat részben hozzá a következő sort:
Dim SNDPlayer Ahogy SoundPlayer „- egy objektum típusú SoundPlayer
„Inicializálása módszer az űrlap már így néz ki:
Private Sub UserForm_Initialize ()
„Létrehozása például egy tárgy
Állítsa SNDPlayer = Új SoundPlayer
Állítsa dlgFiler = Új dlgFileOpen
„A feldolgozás módja rendezvények - nyomjuk
„Hang lejátszás gomb
Private Sub CommandButton1_Click ()
Kísérje figyelemmel a programot, menj Excel táblázatkezelő, majd futtatni a formában. Kattintson a Fájl gombot, majd válassza ki a WAV-fájlt. A területen, az alak a teljes neve. Most nyomja meg a play gombot hang és teljes mértékben élvezni a munkáját teremtés.
Annak érdekében, hogy jobban kézben tarthassa audio lejátszás, például hangot játsszon le, egymástól 2 perc 4.52 másodperc másodperc, véletlenszerűen lejátszás megállítása, szünet és a lejátszás folytatása stb szükség van, hogy menjen a másik irányba. Meg kell programozni, hogy az alkalmazás együttműködik a média segítségével MCI (Media Control Interface), hogy továbbra is, és továbbra is csinálni.
folytatni kell ...