| |
▼あおいパパ さん：
こんばんは。
>皆さん，こんにちは。
>
>マウスを使わずに10キーパッドだけで映像の再生を出来るプログラムを考えています。
>userformにメディアプレーヤーを貼り付けて，commandbuttonを押すことでファイル名を転送し，再生させるようにしています。
>その再生中の制御として，pauseとplayとstopの方法は分るのですが，早送りや巻き戻しの方法が分りません。
>どなたか分る方がいらっしゃれば教えて下さい。
>
早送りや巻き戻しは、CurrentPositionプロパティを設定していく方法はいかがですか？
早送りの場合の例ですが、
With MediaPlayer1
If .CurrentPosition + 50 < .SelectionEnd Then
.CurrentPosition = .CurrentPosition + 50
Else
.CurrentPosition = .SelectionEnd
End If
End With
とすると、５０秒ずつ早送りしています。
巻き戻しは、この逆のロジックで・・・。
>また，再生中に10キーのどれかを押せばコントロール用formが表示できるようにする方法も分れば一緒にお願いします。
これは、フォームのコントロールの配置や設定を考慮しなければなりませんが、
ユーザーフォームのKeydownイベントを使用する方法では？
ユーザーフォームのKeydownイベントのHELPを確認してみて下さい。
|
|
ichinose
- 03/7/25(金) 1:18 -
