Заставка, звуковой фон и прочее
;)С Днем ПОБЕДЫ !!!!!!;)
:) Письмо опытным Бойцам VBA :)
P( Вот сижу и думаю как сделать так, чтобы при запуске сначала выводилась 20 секундная заставка а уже потом окно программы.....P( однако с моим-то опытом в VBA особо не надумаешь.....
Особо отличившихся в схватке с противником прошу подсобить и с звуковым фоном.... (или хотя бы ответить возможно ли вообще, что бы прога сопровождалась звуковым фоном P( )
Товарищам с погонами и больщими звездочкам также, наверное, известны какие-нить "навороты" дабы поразить (а в лучшем случае и ошаломить) препода .....))) помогите, чем могите)
:roll:
karimoffars
:) Письмо опытным Бойцам VBA :)
P( Вот сижу и думаю как сделать так, чтобы при запуске сначала выводилась 20 секундная заставка а уже потом окно программы.....P( однако с моим-то опытом в VBA особо не надумаешь.....
Особо отличившихся в схватке с противником прошу подсобить и с звуковым фоном.... (или хотя бы ответить возможно ли вообще, что бы прога сопровождалась звуковым фоном P( )
Товарищам с погонами и больщими звездочкам также, наверное, известны какие-нить "навороты" дабы поразить (а в лучшем случае и ошаломить) препода .....))) помогите, чем могите)
:roll:
karimoffars
[QUOTE]Originally posted by arseen
;)С Днем ПОБЕДЫ !!!!!!;)
:) Письмо опытным Бойцам VBA :)
P( Вот сижу и думаю как сделать так, чтобы при запуске сначала выводилась 20 секундная заставка а уже потом окно программы.....P( однако с моим-то опытом в VBA особо не надумаешь.....
Особо отличившихся в схватке с противником прошу подсобить и с звуковым фоном.... (или хотя бы ответить возможно ли вообще, что бы прога сопровождалась звуковым фоном P( )
Товарищам с погонами и больщими звездочкам также, наверное, известны какие-нить "навороты" дабы поразить (а в лучшем случае и ошаломить) препода .....))) помогите, чем могите)
:roll:
чтобы воспроизвести звук в формате mp3:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play имя твоего файла")
'чтобы закрыть файл
Call mciExecute("close имя твоего файла")
в формате midi:
'Функция для проигрывания файлов в формате *.mid
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long
'Открываем файл
Call mciSendString ("open ИМЯ ТВОЕГО ФАЙЛА type sequencer alias passport", 0, 0,0)
'Проигрываем файл
Call micSendString ("play passport", 0, 0, 0)
'Останавливаем файл
Call micSendString ("stop passport", 0, 0, 0)
в формате wav:
Функция для проигрывания файлов в формате *.wav
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Проигрываем файл
Call sndPlaySound("ИМЯ ТВОЕГО ФАЙЛА", 0)
:D
;)С Днем ПОБЕДЫ !!!!!!;)
:) Письмо опытным Бойцам VBA :)
P( Вот сижу и думаю как сделать так, чтобы при запуске сначала выводилась 20 секундная заставка а уже потом окно программы.....P( однако с моим-то опытом в VBA особо не надумаешь.....
Особо отличившихся в схватке с противником прошу подсобить и с звуковым фоном.... (или хотя бы ответить возможно ли вообще, что бы прога сопровождалась звуковым фоном P( )
Товарищам с погонами и больщими звездочкам также, наверное, известны какие-нить "навороты" дабы поразить (а в лучшем случае и ошаломить) препода .....))) помогите, чем могите)
:roll:
чтобы воспроизвести звук в формате mp3:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'чтобы воспроизвести файл
Call mciExecute("play имя твоего файла")
'чтобы закрыть файл
Call mciExecute("close имя твоего файла")
в формате midi:
'Функция для проигрывания файлов в формате *.mid
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long
'Открываем файл
Call mciSendString ("open ИМЯ ТВОЕГО ФАЙЛА type sequencer alias passport", 0, 0,0)
'Проигрываем файл
Call micSendString ("play passport", 0, 0, 0)
'Останавливаем файл
Call micSendString ("stop passport", 0, 0, 0)
в формате wav:
Функция для проигрывания файлов в формате *.wav
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Проигрываем файл
Call sndPlaySound("ИМЯ ТВОЕГО ФАЙЛА", 0)
:D
:roll: спасибо....:))):P
Хочу напихать наворотов.......
а с заставкой чАго делать? P(
:roll:
Хочу напихать наворотов.......
а с заставкой чАго делать? P(
:roll:
Цитата:
Originally posted by arseen
:roll: спасибо....:))):P
Хочу напихать наворотов.......
а с заставкой чАго делать? P(
:roll:
:roll: спасибо....:))):P
Хочу напихать наворотов.......
а с заставкой чАго делать? P(
:roll:
нуу...я думаю с заставкой нам поможет справиться таймер. но смотря какую заставку тебе надо.самый лёгкий способ - это сделать форму , которая исчезает после нескольких секунд.
сначала кинь на форму таймер а интервал поставь такой какой надо.потом кликай по таймеру два раза и пиши :
form2.show
unload me
вот и всё. на всякий случай кидаю исходник. :D 8)