dziwięki w accessie

Thread View: pl.comp.bazy-danych.msaccess

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Paweł Thu, 03 Dec 1998 21:17

#337

Author: Paweł
Date: Thu, 03 Dec 1998 21:17

1 lines
880 bytes

Jak dołączyć plik  .wav  aby był odtwarzany przy dowolnym zdarzeniu.

Re: dziwięki w accessie

#338

Author: Mariusz Szepietowski
Date: Mon, 07 Dec 1998 21:41

32 lines
1931 bytes

Paweł napisał(a) w wiadomości: <3667003d.0@news.vogel.pl>...
>Jak dołączyć plik  .wav  aby był odtwarzany przy dowolnym
zdarzeniu.


Możesz użyć makra "Uruchom Aplikację" i wpisać "sndrec32.exe
/play /embedding c:/1.wav" Parametr /embedding służy do ukrycia
okna odtwarzacza.
Możesz użyć modułu, jeśli np. chcesz mieć możliwość podawania
folderu i nazwy pliku dynamicznie:

Function Start_Wav()
Dim Folder As String
Dim Dlugosc As String
Dlugosc = Len(CurrentDb.Name) - 10 'Zwraca długość pełnej ścieżki
dostepu do bazy bez jej 10 znakowej nazwy
Folder = Mid(CurrentDb.Name, 1, Dlugosc) 'Zwraca ścieżkę do
katalogu, w którym zainstalowana jest czynna aplikacja
Call shell("sndrec32.exe /play /embedding " & Folder & "/1.wav ",
1)
End Function

Tutaj folder jest tożsamy z tym, w którym jest umiejscowiony plik
.mdb.
Pozdrawiam serdecznie
--
Mariusz Szepietowski
mariusz.s@writeme.com
www.mariusz.mypage.org -  Automatyzacja domu/mieszkania
Zarzadzanie srodkami trwalymi,
Vademecum Listy Przebojow Programu III
.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads