VB6でゲームパッドの情報取得方法について

質問

Visual Basic初心者です。

ビデオ入力が２回路あるキャプチャーボード用でＶＢ６で作られたSDKソフトを修正して使っています、ゲームパッドのボタンを押す事で入力１、２の切換をしようとしていますがうまくいきません。

現状はフリーのゲームパッド情報取得モジュールを追加してＤｏ・・・Ｌｏｏｐで回していますが肝心のキャプチャーが動かなくなります、ＤｏとＬｏｏｐを外せば問題なくキャプチャーできます。

Do

Call GetJoy 'ゲームパッド情報取得

'ＡＶ入力の切換
If JoyBtn And 1 Then
'AV1選択
Call DXMediaCapApi.DXSetVideoSource(CardNo(0), 1)
MenuAV1.Checked = True
MenuAV2.Checked = False
MenuSvideo.Checked = False
End If

If JoyBtn And 2 Then
'ＡＶ２に切換
Call DXMediaCapApi.DXSetVideoSource(CardNo(0), 2)
MenuAV1.Checked = False
MenuAV2.Checked = True
MenuSvideo.Checked = False
End If

DoEvents

Loop

End Sub

こんな感じです。

” Private Sub Jyoypadbut_Click() ” のような方法は無いのでしょうか？、ご教授宜しくお願い致します。

回答No.1

uruz · ベストアンサー

「ＶＢ６で作られたSDKソフト」の詳細が不明ですが.......
Do～Loopでパワーを使い切ってるんだと思います、プロシージャを脱けないためVBがアイドル状態にならないのが原因だと思います。
” Private Sub Jyoypadbut_Click() ”はそのSDKにイベントを発生させる機能がないのであれば基本的にはできません。APIを駆使するかカスタムコントロールを作れば可能ですが.....

動作するかは不正ですがタイマーコントロールを使いボタンのチェックをしては如何でしょう
標準のタイマーコントロールのIntervalの最小値は約50(ms)ですもっと小さな値も設定可能ですが設定した通りの時間では動作しません。もっと短い時間間隔でGetJoyを発行したければ工夫が必要です。

Privete sub Timer1_timeUp()
　　Call GetJoy
　　If JoyBtn And 1 Then
　　　　JoyBtn1Ope
　　End If
　　If JoyBtn And 2 Then
　　　　JoyBtn2Ope
　　End If
End Sub

private sub JoyBtn1Ope()
　　'JoyBtn-1の処理
End Sub

private sub JoyBtn2Ope()
　　'JoyBtn-2の処理
End Sub

お礼

タイマーコントロールで問題なく動きました。
有難う御座いました。