Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Позиция проигрывания... Добавлено: 14.09.02 20:15  

Автор вопроса:  Mister U | Web-сайт: stihi.h12.ru | ICQ: 809526 

Вот еще один вопросик. На форме установлен элемент Label, который должен отображать позицию при проигрывании. Вот код таймера, который я использую:

--

Private Sub Timer1_Timer()
Dim duration As Long
Dim pos As Long
duration = MediaPlayer1.duration
pos = MediaPlayer1.CurrentPosition
Label1.Caption = duration - pos
End Sub

--

Например, песня длится 3 минуты и 41 секунду. Так вот Label отображает это в виде секунд:  221. И таймер через каждую секунду отнимает от секунд 1.

А можно как-то сделать, чтобы отображалось вот так:   3:41, где 3 - количество минут, а 41 - кол-во секунд. И через каждую секунду отнимается секунда от оставшегося времени.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Satrapp



ICQ: 75556561 

Вопросов: 8
Ответов: 80
  Профиль | | #1 Добавлено: 14.09.02 23:22

Так сойдёт?

Private Sub Timer1_Timer()
   Dim dur As Long ' лучше не использавать зарезервированные слова...
   Dim pos As Long
   dur = MediaPlayer1.duration
   pos = MediaPlayer1.CurrentPosition
   Label1.Caption = Format(TimeSerial(0, 0, dur - pos), "nn:ss")
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам