VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/10/26(Tue) 03:15 |
| 投稿者 | ： ぷりり |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： mp3の指定箇所をリピートする方法 |
よろしくお願いします。
WindwosXpHome、VB6.0で開発しています。
今回、音楽を鳴らすプログラムを作成する必要ができたため
API関数のmciSendStringを使用して作成に取り組んでいます。
再生や停止・一時停止や一時停止からの再生など一通りできたのですが
繰り返し再生のところで少々つまづいております。
再生していて、ある箇所(例えば1分目)でまた最初から
繰り返し再生はできるのですが、最初ではなく途中から再生する
というのができなくて困っています。
いろいろ調べたところ、
mciSendString("seek 音楽ファイルパス to ****",VbNull,0,0)
(****は秒数*1000)
でできるようなのですが、再生箇所の秒数を指定しても
最初から再生されてしまいます。
繰り返し部分のロジックは以下の通りです。
strFileName = "C:\test.mp3"
Repeat = 5 * 1000
Call mciSendString("stop """ & strFileName & """", vbNull, 0, 0)
Call mciSendString("close """ & strFileName & """", vbNull, 0, 0)
Call mciSendString("seek """ & strFileName & """ to " & Repeat, vbNull, 0, 0)
Call mciSendString("play """ & strFileName & """", vbNull, 0, 0)
これでこのロジックを実行した時に5秒目から再生するのが目的です。
以上、よろしくお願いします。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）