入力判定の仕方が分からなくて、困ってます・・

質問

VB.NETで、キーボードから入力してLabelに表示されている文字と
合っていれば正解、間違っていれば不正解の処理を1文字単位でやりたいのですが、正解不正解の判定のやり方が分かりません・・。

Private Sub Form1_KeyPress()
If Mid(Label2.Text, a, 1) = "入力したのと同じ" Then
Mid(Label2.Text, a, 1) = ""
　　　　a = a + 1
Else　　’不正解の処理
？？
End If
End Sub
みたいかな？と思ってプログラムを組んでみたのですが、
ifの"入力したのと同じ"ところの書き方が良く分かりません。
詳しい方、KeyPressの使い方等教えていただけませんか？

回答No.1

KenKen_SP · ベストアンサー

イメージはタイピング練習ソフトですか...？

> If Mid(Label2.Text, a, 1) = "入力したのと同じ" Then

"入力したのと同じ" --> e.KeyChar

「こんな感じにしたいのかな？」と推測しながらコードを書きました。
とりあえず、新規プロジェクトで、フォームに Label1 を配置し、以下の
コードを貼り付けて動作確認してみて下さい。

　# コードを掲載するときは、面倒でもイベントプロシージャの引数部も
　# ちゃんと書き込みましょう。

' 問題の文字列を保管しておくモジュールレベルの配列
Private Odai() As String
' 問題番号を保管しておくモジュールレベル変数
Private iOdaiNum As Integer = 0

Private Sub Form1_Load( _
　　ByVal sender As Object, _
　　ByVal e As System.EventArgs _
) Handles Me.Load

　　' 問題を準備します
　　ReDim Odai(2)
　　Odai(0) = "oshiete goo"
　　Odai(1) = "visual basic"
　　Odai(2) = "sample string"
　　' 1 問目の表示
　　Label1.Text = Odai(iOdaiNum)

End Sub

Private Sub Form1_KeyPress( _
　　ByVal sender As Object, _
　　ByVal e As System.Windows.Forms.KeyPressEventArgs _
) Handles Me.KeyPress

　　' 大文字・小文字を区別しない場合は、テキスト比較で入力文字の正誤比較を行うか、
　　' 大文字・小文字のどちらかに統一してから比較する
　　If StrComp(Mid(Label1.Text, 1, 1), e.KeyChar, CompareMethod.Text) = 0 Then
　　　　' 入力文字が正解なら１文字削る
　　　　Label1.Text = Mid(Label1.Text, 2)
　　Else
　　　　' 失敗時の処理
　　　　MsgBox("ミス")
　　End If
　　' 全ての入力が正しければ、次の問題へ
　　If Len(Label1.Text) = 0 Then
　　　　' 次の問題表示のため、問題番号を加算します
　　　　iOdaiNum = iOdaiNum + 1
　　　　' 用意した問題数を超えないようにします
　　　　If iOdaiNum > UBound(Odai) Then
　　　　　　iOdaiNum = 0
　　　　End If
　　　　' 次の問題をラベルに表示
　　　　Label1.Text = Odai(iOdaiNum)
　　End If

End Sub

補足

わざわざプログラムを組んでくださってありがとうございます。
タイピングソフトです。
参考にして、再び挑戦してみたのですが、"e.KeyChar"の"e"が
宣言されていないと出るんです。ただ、宣言すればいいだけなので
しょうか？

回答No.2

KenKen_SP

> "e.KeyChar"の"e"が宣言されていないと出るんです。
> ただ、宣言すればいいだけなのでしょうか？

いいえ、違います。

> Private Sub Form1_KeyPress()

この部分を

Private Sub Form1_KeyPress( _
　　ByVal sender As Object, _
　　ByVal e As System.Windows.Forms.KeyPressEventArgs _
) Handles Me.KeyPress

に差し替えてみて下さい。

お礼

出来ました！それだけで良かったんですね(汗)
教えていただいたことを参考にし、続きに取り組みたいと思います。
ありがとうございました。