Модераторы: diadiavova, gambit

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WMP в VB.NET, помогите разобраться начинающему. 
V
    Опции темы
sergovano
Дата 28.8.2014, 06:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 27.8.2014,  23:13)
Цитата(sergovano @  27.8.2014,  23:34 Найти цитируемый пост)
Изучаю самостоятельно VB.Net по книге Лукина

Цитата(sergovano @  27.8.2014,  23:34 Найти цитируемый пост)
 Код высмотрел на одном ресурсе, попробовал этим кодом прописать другое свойство, другой кнопке - быстрого воспроизведения

Смысл этой фразы мне непонятен. Напиши конкретнее, что именно ты сделал и чего хотел добиться.

Ссылка
PM MAIL   Вверх
sergovano
Дата 28.8.2014, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 27.8.2014,  23:13)
Это она? 2005 год? Плохая идея.

А я наоборот начал втягиваться. До этого пробовал другие учебники, дальше 20-ти страниц материала не получалось изучить. ) А по этой книге, построил простенький калькулятор и появилось желание идти дальше. Еще бы наставники были, чтоб не на голой так скать теории из книжки обучаться....
Цитата(sergovano @  27.8.2014,  23:34 Найти цитируемый пост)
 Код высмотрел на одном ресурсе, попробовал этим кодом прописать другое свойство, другой кнопке - быстрого воспроизведения

Цитата(diadiavova @ 27.8.2014,  23:13)
Смысл этой фразы мне непонятен. Напиши конкретнее, что именно ты сделал и чего хотел добиться.

Вместо:

Код

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click
     Плеер.FileName = "D:\ ..."
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     Плеер.Stop()
End Sub


Прописал:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click
Код


     AxWindowsMediaPlayer1.URL = "D:\ ..."
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     AxWindowsMediaPlayer1.Ctlcontrols.Stop()
End Sub


Button1 и Button2 работают.

Попробовал задать свойство Button3 - ускоренное воспроизведение файла:

Код

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     AxWindowsMediaPlayer1.Ctlcontrols.Rate = 2
End Sub


Студия показала ошибку.


Модератор: не забываем пользоваться тегом code
PM MAIL   Вверх
diadiavova
Дата 28.8.2014, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
Цитата(sergovano @  28.8.2014,  11:47 Найти цитируемый пост)
Попробовал задать свойство Button3 - ускоренное воспроизведение файла:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     AxWindowsMediaPlayer1.Ctlcontrols.Rate = 2
End Sub

Студия показала ошибку.

А с чего ты взял, что Рэйт - это ускоренное воспроизведение? Это скорее рейтинг трека, не? Да и доступ к свойству осуществляется так
Код

AxWindowsMediaPlayer1.settings.rate
 Быстрое воспроизведение это скорее вот
http://msdn.microsoft.com/en-us/library/wi...v=vs.85%29.aspx


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
sergovano
Дата 28.8.2014, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 28.8.2014,  14:00)
Цитата(sergovano @  28.8.2014,  11:47 Найти цитируемый пост)
Попробовал задать свойство Button3 - ускоренное воспроизведение файла:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
     AxWindowsMediaPlayer1.Ctlcontrols.Rate = 2
End Sub

Студия показала ошибку.

А с чего ты взял, что Рэйт - это ускоренное воспроизведение? Это скорее рейтинг трека, не? Да и доступ к свойству осуществляется так
Код

AxWindowsMediaPlayer1.settings.rate

Спасибо!
Прописал:
Код

AxWindowsMediaPlayer1.settings.rate = 2

Файл воспроизводится в два раза быстрее, как и написано в учебнике.
ЗаписАл в шпаргалки )

Это сообщение отредактировал(а) sergovano - 29.8.2014, 09:42
PM MAIL   Вверх
sergovano
Дата 1.9.2014, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 27.8.2014,  23:13)
Это она? 2005 год? ...

Выполнил таки задание с плеером по книжке Лукина, спасибо за помощь. 
PM MAIL   Вверх
sergovano
Дата 6.9.2014, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 27.8.2014,  23:13)
 ...

Подскажите как вставить таблицу из файла Excel в TextBox формы?
Пытаюсь вставить следующим образом:
Код

Private Sub TextBox1_TextChanged(ByVal sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim Exc As Object = CreateObject("Excel.Application")
        Exc.Workbooks.open("D\...\Tab.xls")
        Exc.Visible = True
        Exc.Sheets(1).Activate()
        TextBox1.Text = Exc.Sheets(1).Range("A3").Value
    End Sub

Текстовое поле пустое.
PM MAIL   Вверх
diadiavova
Дата 8.9.2014, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Доктор Зло(диагност, настоящий, с лицензией и полномочиями)
****


Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142
sergovano, Я здесь вижу только одну проблему: ты выполняешь все это дело в обработчике события TextChanged. Если содержимое поля не изменить, то этот код выполняться не будет, что по всей видимости и происходит. Если же это сделать, то код зациклится, в силу того, что в самом коде ты снова меняешь текст этого поля, что в свою очередь снова приведет к возникновению этого же события и вызову этого  же метода и так потенциально до бесконечности.

Добавлено через 2 минуты и 16 секунд
И кстати этот вопрос к теме топика отношения не имеет, так что в следующий раз создавай свою тему для таких вопросов.


--------------------
Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile
PM   Вверх
sergovano
Дата 9.9.2014, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.8.2014
Где: Россия, Вологда

Репутация: нет
Всего: нет
Цитата(diadiavova @ 8.9.2014,  11:45)
sergovano, Я здесь вижу только одну проблему: ты выполняешь все это дело в обработчике события TextChanged. Если содержимое поля не изменить, то этот код выполняться не будет, что по всей видимости и происходит. Если же это сделать, то код зациклится, в силу того, что в самом коде ты снова меняешь текст этого поля, что в свою очередь снова приведет к возникновению этого же события и вызову этого  же метода и так потенциально до бесконечности.

Добавлено @ 11:47
И кстати этот вопрос к теме топика отношения не имеет, так что в следующий раз создавай свою тему для таких вопросов.

Ага разобрался. Спасибо. Таблицу правда не скопировал, но данные из файла Excel вытащил, появляются правда в текстовом поле по очереди ))) а не в ряд. Рановато конечно, в эти дебри лезть, но безделушка с импортом Excel-я нужна, да и практические заморочки на пользу. 
Высмотрел код как импортировать из файла Excel форму и обратно, проблема теперь с ISAM. Думаю, что не конектится Excel по причине каких то, не хватающих драйверов или некорректных расширений самого Офиса 2003.  Выложу в схожей с проблемой теме. Глянете?

Замечание по вопросу к теме топика услышал.
PM MAIL   Вверх
Страницы: (3) Все 1 2 [3] 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума VB .NET
diadiavova
  • Прежде чем задать вопрос, воспользуйтесь поиском: возможно Ваш вопрос уже обсуждался и на него был получен ответ.
  • Если такой же вопрос не найден, не стоит задавать свой вопрос в любую тему, создайте новую.
  • Заголовок темы должен отображать ее суть.
  • Содержание поста должно описывать проблему понятно, но в то же время, по возможности, лаконично. Сначала следует описать суть вопроса, потом можно привести пример кода, не вынуждайте других участников угадывать в чем Ваша проблема - телепатов здесь нет.
  • Будьте взаимно вежливы и дружелюбны.
  • При оформлении сообщений используйте форматирование, примеры кода заключайте в теги [CODE=vbnet][/CODE].
  • Также ознакомьтесь с общими правилами, действующими на всем форуме.
  • Если вопрос решен, не забывайте помечать тему решенной(вверху темы есть ссылка). Кроме того, если Вы хотите отблагодарить участников, оказавших помощь в решении, можно повысить им репутацию, в случае, если у Вас менее 100 сообщений в форуме и функция изменения репутации Вам недоступна, можете написать сюда.
  • Общие вопросы по программированию на платформе .NET обсуждаются здесь.
  • Литература по VB .NET обсуждается здесь.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, diadiavova.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB .NET | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0794 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.