Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
 Аватар для nipopadyuk
3 / 3 / 0
Регистрация: 11.01.2012
Сообщений: 23
.NET 4.x

Компонент WMP, регулировка громкости

11.01.2012, 17:22. Показов 2894. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день. Долго искал по инету как проще заставить программу проигрывать mp3, подумал, что самый простой способ это использовать Windows Media Player. Подключил, работает. тока не получается ни как регулировать звук, ну если конечно не включить в форму панель wmp, что собственно не есть гуд.
Можно ли как нибудь привязать регулятор громкости с какому-нибудь скролу, чтобы пользователь мог выбрать уровень громкости?
VB.NET2010
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.01.2012, 17:22
Ответы с готовыми решениями:

Регулировка системной громкости
Здравствуйте. Подскажите пожалуйста, как можно регулировать системную громкость с помощью переменной? Допустим есть переменная а, которая с...

Регулировка громкости динамиков
Как программно регулировать громкость динамиков. Т.е. общиую громкость системных звуков.

Регулировка уровня громкости системы
Всем привет! Кто подскажет, как можно изменять уровень громкости в программе? К примеру, нажимаешь кнопку, и уровень звука становится 70....

2
Почетный модератор
 Аватар для Памирыч
23251 / 9163 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
11.01.2012, 18:09
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Imports WMPLib
Public Class Form1
    Dim wmp As New WMPLib.WindowsMediaPlayerClass()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        wmp.volume = TextBox1.Text '(0 - 100)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wmp.currentMedia = wmp.newMedia("d:\Рабочий стол\Новое\GJIMC.mp3")
        wmp.controls.play()
        wmp.currentPosition = 1
    End Sub
End Class
1
 Аватар для nipopadyuk
3 / 3 / 0
Регистрация: 11.01.2012
Сообщений: 23
11.01.2012, 18:41  [ТС]
Цитата Сообщение от Памирыч Посмотреть сообщение
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
Imports WMPLib
Public Class Form1
    Dim wmp As New WMPLib.WindowsMediaPlayerClass()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        wmp.volume = TextBox1.Text '(0 - 100)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wmp.currentMedia = wmp.newMedia("d:\Рабочий стол\Новое\GJIMC.mp3")
        wmp.controls.play()
        wmp.currentPosition = 1
    End Sub
End Class
Спасибо! Все работает
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.01.2012, 18:41
Помогаю со студенческими работами здесь

Можно ли сделать регулятор громкости полностью синхронным с системным регулятором громкости
Ну во первых всех С Новым Годом!!! и всех благ. Теперь вопрос можно ли сделать регулятор громкости полностью синхронным с системным...

Регулировка громкости
На вин7 при регулировке громкости с клавиатуры у меня было где-то 7 шагов громкости, т.е. менялась довольно интенсивно. Как увеличить шаг...

Пьезоизлучатель. Регулировка громкости
Собственно вопрос - "как"? Вообще как с ним работать? Вот купил (на ценнике написано было "излучатель бла-бла про внутренний генератор...

Регулировка системной громкости
Доброго времени суток. Появилась нужда в регуляции системной громкости, воспользовался вот этим примером: ...

регулировка громкости и перемотка
Пишу следующий код - хочу реализовать перемотку, но трек просто запускается заново..подскажите в чем беда? private...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru