Programming Forums - View Single Post

BlackDal · Dec 6th, 2006, 6:51 AM

try this...

        for L as integer = 1 to word.lenght
            If word.Substring(L, 1) <> "r" And word.Substring(L, 1) <> "r" <> "n" Then
                flag = True
            End If
        next

        If not flag Then
            z = MsgBox("the word has no r or n.  Quit? y/n", MsgBoxStyle.YesNo, "Quit?")
            If z = 6 Then
                Me.Close()
            End If
        End If

Dec 6th, 2006, 6:51 AM	#2
BlackDal Newbie Join Date: Feb 2006 Posts: 12 Rep Power: 0	try this... (Toggle Plain Text) for L as integer = 1 to word.lenght If word.Substring(L, 1) <> "r" And word.Substring(L, 1) <> "r" <> "n" Then flag = True End If next If not flag Then z = MsgBox("the word has no r or n. Quit? y/n", MsgBoxStyle.YesNo, "Quit?") If z = 6 Then Me.Close() End If End If for L as integer = 1 to word.lenght If word.Substring(L, 1) <> "r" And word.Substring(L, 1) <> "r" <> "n" Then flag = True End If next If not flag Then z = MsgBox("the word has no r or n. Quit? y/n", MsgBoxStyle.YesNo, "Quit?") If z = 6 Then Me.Close() End If End If