Платные хостинги     Раскрутка сайта     Книги по программированию

Проблема с паузой и событием., Компонет: Microsoft Windows Media Player

- Вобщем решил написать, ради тренировки, плеер. Нарисовал графику, создал проект, подключил к проекту компонент Microsoft Windows Media Player. Все кнопки сделал графическими. Включаю .mp3 файл, он вроде бы нормально играет, но изредка появляется какое-то цоканье. Почему?Когда играет музыка жму кнопку Pause ( графическую ). Вот так выглядит её процедура обработки события Click:Код Private Sub imgPause_Click( Index as Integer )            mplPlayer.PauseEnd SubhighlightSyntax('vb2NDAyN','vb');Всё нормально, музыка останавливается, вот когда я жму кнопку Play, то музыка начинается сначала, а по идее должна была продолжыться, с того места, где была сделана остановка.Такая процедура на событии Click, кнопки Play:Код Private Sub imgPlay_Click( Index as Integer )            mplPlayer.PlayEnd SubhighlightSyntax('vbY5YWI=','vb');Как отследить, в какой позиции была нажата кнопка Pause, что бы затем продолжить композицию с данной позиции?На кнопки вешаю событие MouseMove для смены изображения, всё работает, изображение действительно меняется. Только вот я не понял, какое событие отслеживает, что курсор ушёл с мыши? Другими словами, нужен аналог onMouseOut из JavaScript.Заранее спасибо. Когда допишу, выложу его тута, посмеёмся вместе. Это мой первый плеер. ;)

- Не совсем понятно в чем проблема. По твоему примеру создал форму, закинул туды Windows Media Player и две кнопки и написал код. У меня все нормально работает и воспроизведение производится с того места, в котором была нажата пауза.Код Public strFileName As StringPrivate Sub Form_Load()Command1.Caption = "Play"Command2.Caption = "Stop"strFileName = "путь к файлу"MediaPlayer1.FileName = strFileNameMediaPlayer1.StopMediaPlayer1.Visible = FalseEnd SubPrivate Sub Command1_Click()’кнопка Play/PauseIf MediaPlayer1.PlayState = mpPlaying ThenMediaPlayer1.PauseCommand1.Caption = "Play"ElseMediaPlayer1.PlayCommand1.Caption = "Pause"End IfEnd SubPrivate Sub Command2_Click()’кнопка StopIf MediaPlayer1.PlayState = mpPlaying Or MediaPlayer1.PlayState = mpPaused ThenMediaPlayer1.StopMediaPlayer1.CurrentPosition = 0End IfEnd SubPrivate Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)If MediaPlayer1.PlayState = mpStopped ThenCommand2.Enabled = FalseElseCommand2.Enabled = TrueEnd IfEnd SubhighlightSyntax('vbWUzMjg','vb');

- С этим уже разобрался, но всё-равно спасибо.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD