VB6.0でタイピングゲームを作りたい

Question

VB6.0でタイピングゲームを作る事は可能でしょうか？
もし可能であれば、ボタンをキー配列分用意しないといけませんが、押すキー（アルファベット）によって、ボタンを判別させることは可能でしょうか？

例えば、ボタンを一つ用意し、以下のプログラムでアルファベットのAが押された時に通るようにしたい場合はどうすればよいのでしょうか？

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

kakusuke · Accepted Answer

ＶＢ６．０、５．０の
コマンドボタン、
オプションボタン、
コンボボックスなど、
ＶＢ標準のＯＣＸ（コントロール）は
KeyDown,KeyPress,KeyUpイベントにバグ？
があります。
実際、
それぞれのイベントが呼び出されないです。
Picturebox＋Labelで
画面を表示し、
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim intX1 As Integer
Dim intX2 As Integer
Dim intX3 As Integer
Dim intX4 As Integer
    intX1 = Instr(1, _
                 "1234567890-^\", _
                 Ucase$(Chr$(KeyAscii)), _
                 vbTextCompare)

    intX2 = Instr(1, _
                 "QWERTYUIOP@[", _
                 Ucase$(Chr$(KeyAscii)), _
                 vbTextCompare)

    intX3 = Instr(1, _
                 "ASDFGHJKL;:]", _
                 Ucase$(Chr$(KeyAscii)), _
                 vbTextCompare)

    intX4 = Instr(1, _
                 "ZXCVBNM,./", _
                 Ucase$(Chr$(KeyAscii)), _
                 vbTextCompare)

    If intX1 > 0 Then
        MsgBox "１行目の左から" & _
        Format$(intX) & _
        "個目のキーが押されました。", vbOkOnly
    End If
    If intX2 > 0 Then
        MsgBox "２行目の左から" & _
        Format$(intX) & _
        "個目のキーが押されました。", vbOkOnly
    End If
    If intX3 > 0 Then
        MsgBox "３行目の左から" & _
        Format$(intX) & _
        "個目のキーが押されました。", vbOkOnly
    End If
    If intX4 > 0 Then
        MsgBox "４行目の左から" & _
        Format$(intX) & _
        "個目のキーが押されました。", vbOkOnly
    End If
End Sub

というのを
ステップ実行して動きを確かめてみてはどうでしょう？

guruguru2 · Answer

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
    'Aだったら
    If KeyCode = vbKeyA Then
        '主処理
    End If
End Sub

となりますかね。(^^)
でもこれだと　コマンドボタンの上にフォーカスが来ているときじゃないと反応しないのでタイピングを作成するなら　Form_KeyDown　のほうが良いかもしれません。

imogasi · Answer

Form上に１つコマンドボタンを貼りつけ、それをコピーしてコマンドボタンを増やす。２つ目の時に、コントロール配列にしますかと聞いてくるので「はい」。
コマンドボタンの各Captionを「ａ，ｂ，ｃ，ｄ・・・」と設定する。
最初のコマンドボタンをダブルクリックして
Private Sub Command1_Click(Index As Integer)
s = Array("a", "b", "c", "d")
MsgBox s(Index)
End Sub
とする。
Form上の「ａ」のボタンをクリックすると「ａ」と表示できる。
参考になれば。

www15 · Answer

補足ですが，
私の場合，なるべくフォーム中に入れる「フォーカスを受け取れるオブジェクト」を極力減らすようにしています。例えば，フォーム中のフォーカスを受け取れるオブジェクトはPicturebox１個だけにして，そこにKeyDownを付ける。文字表示などはすべてLabelとかのフォーカスの受け取れないオブジェクトにする。とかです。
また，その「フォーカスを受け取れるオブジェクト」は，できればCommandButtonはやめたほうがいいです（Enterキーやスペースキーに反応してしまうからです）。

tak2003 · Answer

Keycodeを取っているのでキーコードで判断されたらいかがですか？
そうしておけば６５から９１までしか受けつけないとか制御しやすいでしょう。
しかし、一番の難関は２文字同時に押した時とかローマ字カナ変換などの面倒な所でしょう。
ちなみに
A-Zまでを入力してEntを押すと掛かった秒数を表示するプログラムを１行で組んだ事があります。
頑張ってください。

VB6.0でタイピングゲームを作りたい

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)

Form上に１つコマンドボタンを貼りつけ、それをコピーしてコマンドボタンを増やす。

補足ですが，

Keycodeを取っているのでキーコードで判断されたらいかがですか？

ＶＢ６．０、５．０の

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング