A friend asked me to create a puzzle program which finds 9 letter target words in a 3 by 3 letter grid. I decided to use VB.Net 2010. But, I can't determine if the words are valid. How could I verify the 9 letter target words?
How to Validate 9 Letter Target Words in VB.Net
Hello,
You can simply use the method such as validating text boxes and write up your code to suit your 9 letter target word. An example of validation code for text boxes is as shown below.
Private Sub btn1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn1.Click
If (txt1.Text.Trim = "") Then
MsgBox("Blank not Allowed", MsgBoxStyle.Information, "Verify")
Else
MsgBox(txt1.Text, MsgBoxStyle.Information, "Verify")
End If
txt1.Clear()
txt1.Focus()
End Sub
Private Sub txt1_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt1.KeyPress
If (Char.IsControl(e.KeyChar) = False) Then
If (Char.IsLetter(e.KeyChar)) Or (Char.IsWhiteSpace(e.KeyChar)) Then
'do nothing
Else
e.Handled = True
MsgBox("Sorry Only Character & Spaces Allowed!!", _
MsgBoxStyle.Information, "Verify")
txt1.Focus()
End If
End If
End Sub
Private Sub txt2_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txt2.KeyPress
If (Char.IsControl(e.KeyChar) = False) Then
If (Char.IsDigit(e.KeyChar)) Then
'do nothing
Else
e.Handled = True
MsgBox("Sorry Only Digits Allowed!!", _
MsgBoxStyle.Information, "Verify")
txt2.Focus()
End If
End If
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn2.Click
If (txt2.Text.Trim = "") Then
MsgBox("Blank not Allowedt", MsgBoxStyle.Information, "Verify")
Else
MsgBox(txt2.Text, MsgBoxStyle.Information, "Verify")
End If
txt2.Clear()
txt2.Focus()
End Sub
Thank you.