Воспроизведение звука программно

@deniss · Регистрация: 16.11.2011

Студворк — интернет-сервис помощи студентам

Всем Доброго времени суток!Подскажите пожалуйста как можно добавить звук к кнопке что бы при нажатии на нее он воспроизводился. Спасибо

Памирыч · 18.11.2011, 22:21

deniss, звук Wav играть просто:

VB.NET
1
My.Computer.Audio.Play("C:\1.wav", AudioPlayMode.Background)

@deniss · 18.11.2011, 22:23 **[ТС]**

Я пришел за помощью в надежде её получить и надеюсь что получу и буду сам скоро помогать!

Добавлено через 1 минуту
Спасибо конечно но куда это воткнуть для кнопки и для формы

Памирыч · 18.11.2011, 22:24

deniss, хоть для кнопки, хоть в загрузке формы, где душе угодно

@deniss · 18.11.2011, 22:43 **[ТС]**

Чего то вставляю скопированный код меняю ссылку на свою My.Computer.Audio.Play("C:\Модем.mp3", AudioPlayMode.Background) мне вот что пишут Файл в папке C:\Модем.mp3 не является волновым файлом.

Добавлено через 46 секунд
Может стоит поменять на wav расширение

Памирыч · 18.11.2011, 22:47

deniss, mp3 не являются волновыми файлами. Речь шла о Wav.
Чтобы проигрывать mp3, нужно использовать библиотеки такие как wmp.dll, DirectX, Bass.dll и т.д.
Проект -> Добавить ссылку -> Обзор -> C:\Windows\System32\wmp.dll

VB.NET
1
2
3
4
5
6
7
8
Imports WMPLib
Public Class Form1
    Dim wmp As New WMPLib.WindowsMediaPlayerClass()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wmp.currentMedia = wmp.newMedia("Файл.mp3")
        wmp.controls.play()
    End Sub
End Class

@deniss · 18.11.2011, 22:49 **[ТС]**

Спасибо большое!

@deniss · 20.11.2011, 18:01 **[ТС]**

Подскажите пожалуйста почему из корня диска С подхватывает wav ,а из папки ресурсы проекта нет

VB.NET
1
2
3
 Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        My.Computer.Audio.Play("C:\Users\deniss\documents\visual studio 2010\Projects\WindowsApplication3\WindowsApplication3\Resources\SOUND240.WAV", AudioPlayMode.Background)
    End Sub

Памирыч · 20.11.2011, 18:09

deniss, Wav из ресурсов можно послушать так:

VB.NET
1
2
3
        Dim mp As New Media.SoundPlayer
        mp.Stream = My.Resources.ResourceManager.GetStream("Имя ресурса")
        mp.Play()

Если ты конечно добавил ресурс в программу.
PS: Папка "Resourses" не предназначена для работы непосредственно с ней, это служебная папка среды. Что-то менять в ней ты можешь, например, заменить одноименные файлы, но другие операции лучше делать из самой VS.

@deniss · 20.11.2011, 19:00 **[ТС]**

Возможно Я уже надоел своей простотой душевной но чего то ни как не выходит толи лыжи не едут толи Я на асфальте стою

VB.NET
1
My.Computer.Audio.Play("C:\Program Files\Baza Abonentov\Media_Sound\SOUND240.wav", AudioPlayMode.Background)

Даже от сюда не подхватывает только с корня диска С хватает

дело в том что когда нибудь все же я ее (программу) доделаю и как мне перенести на другой компьютер еже ли так же в корне диске С это будет не серьезно так ведь. Подскажите пожалуйста куда же мне эти файлы засунуть так что бы не было потом стыдно код который ВЫ предложили тоже не подхватывает

VB.NET
1
2
3
 Dim mp As New Media.SoundPlayer
        mp.Stream = My.Resources.ResourceManager.GetStream("Имя ресурса")
        mp.Play()

Добавлено через 30 минут
Прошу прощения все заработало просто нужно было удалить сведения об ошибке которую выбило перед последней пробой

Добавлено через 1 минуту
Смайлик тоже не удачно выбрал не просмотрев до конца анимацию вставил.
Он бессмысленный!

Памирыч · 20.11.2011, 19:04

deniss, звук должен быть добавлен в ресурсы или перетаскиванием или через меню.
Звук был должен формата Wav.

@deniss · 20.11.2011, 19:07 **[ТС]**

Звук был добавлен через меню. все звуки wav но все ровно не хватает но зато подхватило из

VB.NET
1
My.Computer.Audio.Play("C:\Program Files\Baza Abonentov\Media_Sound\SOUND240.wav", AudioPlayMode.Background)

Добавлено через 42 секунды
Спасибо Вам БОЛЬШОЕ за Ваше терпение и помощь!

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

@deniss 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 82

	Воспроизведение звука программно 16.11.2011, 19:25. Показов 16804. Ответов 30 Метки нет (Все метки) Всем Доброго времени суток!Подскажите пожалуйста как можно добавить звук к кнопке что бы при нажатии на нее он воспроизводился. Спасибо 0

@deniss 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 82
	18.11.2011, 22:23 [ТС]
	Я пришел за помощью в надежде её получить и надеюсь что получу и буду сам скоро помогать! Добавлено через 1 минуту Спасибо конечно но куда это воткнуть для кнопки и для формы 0

Памирыч Почетный модератор 23251 / 9165 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	18.11.2011, 22:24
	deniss, хоть для кнопки, хоть в загрузке формы, где душе угодно 0

@deniss 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 82
	18.11.2011, 22:43 [ТС]
	Чего то вставляю скопированный код меняю ссылку на свою My.Computer.Audio.Play("C:\Модем.mp3", AudioPlayMode.Background) мне вот что пишут Файл в папке C:\Модем.mp3 не является волновым файлом. Добавлено через 46 секунд Может стоит поменять на wav расширение 0

@deniss 0 / 0 / 0 Регистрация: 16.11.2011 Сообщений: 82
	18.11.2011, 22:49 [ТС]
	Спасибо большое! 0

Памирыч Почетный модератор 23251 / 9165 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	20.11.2011, 19:04
	deniss, звук должен быть добавлен в ресурсы или перетаскиванием или через меню. Звук был должен формата Wav. 0