Как сделать регулятор громкости windows media player на форме

@vlad56 · Регистрация: 06.03.2012

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

Здравствуйте.
Добавил windows media player на форму. И сделал его невидимым. Как сделать регулятор громкости windows media player на форме. Прошу помощи.

@January29 · 18.03.2021, 12:18

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

@vlad56 · 18.03.2021, 12:58 **[ТС]**

Ругается на строку

VB.NET
1
wmp.volume = TextBox1.Text '(0 - 100)

Пишет что

System.InvalidCastException: "Приведение строки" к типу "Integer" является недопустимым

@January29 · 18.03.2021, 13:18

vlad56, а так

VB.NET
1
wmp.volume = Val(TextBox1.Text)

Добавлено через 1 минуту
просто можно

VB.NET
1
wmp.volume = 50

@vlad56 · 18.03.2021, 13:27 **[ТС]**

Теперь ошибки нет. Но как регулировать громкость с помощью TextBox1 - не понял. Вводил разные цифры во время воспроизведения. Ничего не заметил.

Добавлено через 2 минуты
Мне надо регулировать громкость при воспроизведении. А не заранее. Чтобы каждый мог выставить свой уровень громкости. Наиболее приятный.

@January29 · 18.03.2021, 13:29

Сообщение от vlad56

Вводил разные цифры во время воспроизведения. Ничего не заметил.

там в коде ввел число и нажал кнопку там она Button1. а как у вас?

Не по теме:

а забыл что кнопки то пропали у вас :)

@vlad56 · 18.03.2021, 13:31 **[ТС]**

У меня вот так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'AxWindowsMediaPlayer1.URL = Pu
        If Label7.Text = 0 Then
            PlayerM.URL = "Дождь.mp3"
            Label7.Text = 1
            Button4.Text = "Остановить дождь"
            Button5.Text = "Музыка"
        Else
            PlayerM.URL = ""
            Label7.Text = 0
            Button4.Text = "Дождь"
 
        End If
 
        wmp.controls.play()
        wmp.currentPosition = 1
        wmp.volume = Val(TextBox1.Text)
    End Sub

@January29 · 18.03.2021, 13:56

vlad56, Создайте кнопку еще одну, и в ней в коде поставьте вот это.

VB.NET
1
wmp.volume = Val(TextBox1.Text)

И при каждом нажатии на кнопку, будет та громкость которая в текстбоксе от 0 до 100

Добавлено через 19 минут
vlad56, Можно колесиком мыши делать так попробуй я там поставил 50

VB.NET
1
2
3
4
5
6
7
    Dim IntVolume As Integer = 50
    Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
        If e.Delta = +120 Then IntVolume += 1
        If e.Delta = -120 Then IntVolume -= 1
        wmp.volume = IntVolume
        Me.Text = wmp.volume ' эту строчку можно убрать выводит на название формы верху слева значение громкости
    End Sub

@andrsh · 18.03.2021, 13:57

vlad56,

Сообщение от vlad56

Ругается на строку
PureBasicВыделить код
1 wmp.volume = TextBox1.Text '(0 - 100)

Тогда уж так:

VB.NET
1
wmp.volume = CInt(TextBox1.Text) '(0 - 100)

Привести значение String в Integer

@vlad56 · 18.03.2021, 14:15 **[ТС]**

January29 А когда с колёсиком мыши тогда тоже нужно кнопку нажимать, чтобы изменить громкость?

@January29 · 18.03.2021, 14:18

Сообщение от vlad56

А когда с колёсиком мыши тогда тоже нужно кнопку нажимать, чтобы изменить громкость?

нет не надо. Крути колесом туда сюда там на форме в верху слева цифры будут это какая громкость

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

@vlad56 · 18.03.2021, 14:20 **[ТС]**

А что если через тimer снимать значение и отправлять на wmp.volume. Timer включать когда происходит событие. И после этого таймер отключается

@Orlangur · 18.03.2021, 14:24

TrackBar для слабаков?)

@vlad56 · 18.03.2021, 15:49 **[ТС]**

А как отключать такой плеер. Раньше я отключал плеер так

VB.NET
1
PlayerM.URL = ""

Сейчас такой код

VB.NET
1
wmp.currentMedia = ""

Выдаёт ошибку.
Что делать?

Добавлено через 4 минуты
Проблема решена. Надо делать так.

VB.NET
1
 wmp.URL = ""

Ещё раз всем спасибо.

@January29 · 18.03.2021, 16:04

vlad56, а не проще так

VB.NET
1
wmp.stop()

Добавлено через 9 минут
vlad56, а так пауза

VB.NET
1
wmp.pause()

а после паузы можно возобновить

VB.NET
1
wmp.play()

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@vlad56 9 / 7 / 2 Регистрация: 06.03.2012 Сообщений: 686

	Как сделать регулятор громкости windows media player на форме 18.03.2021, 11:38. Показов 3288. Ответов 14 Метки нет (Все метки) Здравствуйте. Добавил windows media player на форму. И сделал его невидимым. Как сделать регулятор громкости windows media player на форме. Прошу помощи. 0

@January29 3260 / 3289 / 556 Регистрация: 17.02.2019 Сообщений: 5,196
	18.03.2021, 12:18
	vlad56, Посмотри темку Компонент WMP, регулировка громкости 1

@vlad56 9 / 7 / 2 Регистрация: 06.03.2012 Сообщений: 686
	18.03.2021, 13:27 [ТС]
	Теперь ошибки нет. Но как регулировать громкость с помощью TextBox1 - не понял. Вводил разные цифры во время воспроизведения. Ничего не заметил. Добавлено через 2 минуты Мне надо регулировать громкость при воспроизведении. А не заранее. Чтобы каждый мог выставить свой уровень громкости. Наиболее приятный. 0

@vlad56 9 / 7 / 2 Регистрация: 06.03.2012 Сообщений: 686
	18.03.2021, 14:15 [ТС]
	January29 А когда с колёсиком мыши тогда тоже нужно кнопку нажимать, чтобы изменить громкость? 0

@vlad56 9 / 7 / 2 Регистрация: 06.03.2012 Сообщений: 686
	18.03.2021, 14:20 [ТС]
	А что если через тimer снимать значение и отправлять на wmp.volume. Timer включать когда происходит событие. И после этого таймер отключается 0

@Orlangur Лень — мое второе и 3228 / 2416 / 687 Регистрация: 28.11.2014 Сообщений: 3,601 Записей в блоге: 3
	18.03.2021, 14:24
	TrackBar для слабаков?) 1

Как сделать регулятор громкости windows media player на форме

Решение