|
▼あおいパパ さん:
こんばんは。
>皆さん,こんにちは。
>
>マウスを使わずに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を確認してみて下さい。
|
|