Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 1
Регистрация: 19.03.2015
Сообщений: 5

Воспроизведение mp3 при открытии формы

06.04.2015, 00:15. Показов 1865. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Воспроизведение mp3 при открытие формы в Visual Basic 6

Помогите с кодом для этой затеи:
При открытии формы без всяких нажатий на кнопки начинает играть заранее заданная композиция.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.04.2015, 00:15
Ответы с готовыми решениями:

Формы. При повторном открытии формы сбрасываются результаты вывода данных
Создал 2 формы. В 1й форме проходит расчет различных выражений. Данные расчета присваиваются переменным. Ввожу данные Нажимаю кнопку...

Воспроизведение mp3-файлов через VB
помогите начинающему программеру. хотелось бы узнать какова структура файлов mp3. Как воспроизводить их с помощью Visual Basic? И где можно...

Воспроизведение файлов формата MP3
Подскажите, пожалуйста: как в VB воспроизвести файл формата MP3?

6
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
06.04.2015, 00:45
Поищите mciexecute в этом разделе. Например
Готовые решения и полезные коды на Visual Basic 6.0
Как воспроизвести аудио и видео в приложении
0
38 / 38 / 16
Регистрация: 04.03.2014
Сообщений: 249
06.04.2015, 16:32
Лучший ответ Сообщение было отмечено The trick как решение

Решение

percheg,

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
Call mciExecute("play c:\Slow.mp3")
End Sub
 
Private Sub Command1_Click()
Call mciExecute("close c:\Slow.mp3") 
End Sub
1
0 / 0 / 1
Регистрация: 19.03.2015
Сообщений: 5
07.04.2015, 21:48  [ТС]
Не совсем то что мне надо, да и в придачу не работяющий. Подправил под себя
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
 
Private Sub Form_Load()
    
    Call mciExecute("play ScaryScream.mp3")
    Timer1.Enabled = True
    Timer1.Interval = 1000
    
End Sub
 
Private Sub Timer1_Timer()
    
    Label1.Caption = Label1.Caption - 1
    If Label1.Caption = 0 Then
        Timer1.Enabled = False
        Me.Hide
        FrmQues1.Show
    End If
End Sub
0
38 / 38 / 16
Регистрация: 04.03.2014
Сообщений: 249
08.04.2015, 12:08
percheg,
Специально проверил, все работает в VB6.
0
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18033 / 7736 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
08.04.2015, 14:22
Пример работы в синхронном или асинхронном режиме.
0
 Аватар для dzug
695 / 236 / 18
Регистрация: 17.01.2011
Сообщений: 583
Записей в блоге: 1
09.04.2015, 13:54
Вот Вам пример

Visual Basic
1
2
3
4
Private Sub Form_Load()
s = "C:\Windows\Media\Alarm01.mp3"
   CreateObject("WScript.Shell").Run s
End Sub
Не проигрывается звуковой файл
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
09.04.2015, 13:54
Помогаю со студенческими работами здесь

При открытии второй формы в объекте OLE отоброжать документ 1.doc, и при нажатии кнопки печатался
Всем привет!!! ПРОЭКТ в VB6. Имеется 2 формы: В первой форме по результатам работы создается вордовский файл "1.doc" и...

Воспроизведение звука при открытии формы
можно ли реализовать данную задачу? при открытии формы будет воспроизводиться звук, при закрытии-прекращаться.

Нужно сделать, чтобы при открытии главной формы открывалась еще одна (форма 2) сразу при появлении первой формы
я попробывал в евентс поставить онкреэйт форм 2 .шов ,программа запускается но появляется ошибка , как рализовать? есть какой нибудь...

Как, при открытии mp3 файла отконвертировать его в wav в программе
Как, при открытии mp3 файла отконвертировать его в wav в программе?

Блокировка на изменение формы при открытии второй формы
Привет всем Есть две формы. Вторая форма вызывается с помощью кнопки размещенной на первой форме (кнопка с макрокомандой на открытие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru