Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


74499 / 76732 ←次へ | 前へ→

【6695】Re:メディアプレーヤーコントロールで早送り...
発言  ichinose  - 03/7/25(金) 1:18 -

引用なし
パスワード
   ▼あおいパパ さん:
こんばんは。
>皆さん,こんにちは。
>
>マウスを使わずに10キーパッドだけで映像の再生を出来るプログラムを考えています。
>userformにメディアプレーヤーを貼り付けて,commandbuttonを押すことでファイル名を転送し,再生させるようにしています。
>その再生中の制御として,pauseとplayとstopの方法は分るのですが,早送りや巻き戻しの方法が分りません。
>どなたか分る方がいらっしゃれば教えて下さい。
>


早送りや巻き戻しは、CurrentPositionプロパティを設定していく方法はいかがですか?
早送りの場合の例ですが、

  With MediaPlayer1
   If .CurrentPosition + 50 < .SelectionEnd Then
     .CurrentPosition = .CurrentPosition + 50
   Else
     .CurrentPosition = .SelectionEnd
     End If
   End With
とすると、50秒ずつ早送りしています。
巻き戻しは、この逆のロジックで・・・。

>また,再生中に10キーのどれかを押せばコントロール用formが表示できるようにする方法も分れば一緒にお願いします。
これは、フォームのコントロールの配置や設定を考慮しなければなりませんが、
ユーザーフォームのKeydownイベントを使用する方法では?
ユーザーフォームのKeydownイベントのHELPを確認してみて下さい。

0 hits

【6690】メディアプレーヤーコントロールで早送り... あおいパパ 03/7/24(木) 10:32 質問
【6695】Re:メディアプレーヤーコントロールで早送り... ichinose 03/7/25(金) 1:18 発言
【6703】Re:メディアプレーヤーコントロールで早送り... あおいパパ 03/7/26(土) 3:19 お礼
【6705】Re:メディアプレーヤーコントロールで早送り... ichinose 03/7/26(土) 18:10 回答
【6712】Re:メディアプレーヤーコントロールで早送... あおいパパ 03/7/28(月) 1:11 お礼

74499 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free