Exit Sub End If 'Check that it has an input 'If the length of the text in is equal to zero then display a “txtAmount” message box error sure you enter a number for the amount",” ‘stating “Make 'Reset text in to nothing or “txtAmount” ““ 'Put cursor in the box “txtAmount” If txtAmount.Text.Length = 0 Then MsgBox("Make sure you a number for the amount", MsgBoxStyle.Critical, "ERROR!") txtAmount.Text = "" txtAmount.Focus() Exit Sub End If 'Check it’s not over 30 characters 'If the length of the text in is more than 6 then display a “txtAmount” message box error amount is too much upto 6 characters allowed",” ‘stating “This 'Reset text in to nothing or “txtAmount” ““ 'Put cursor in the box “txtAmount” If txtAmount.Text.Length > 6 Then MsgBox("The amount is too much", MsgBoxStyle.Critical, "ERROR!") txtFrom.Text = "" txtFrom.Focus() Exit Sub End If it’s a name and not a number
Exit Sub End If 'Check that it has an input 'If the length of the text in “txtAmount” is equal to zero then display a message box ‘stating error “Make sure you enter a number for the amount",” 'Reset text in “txtAmount” to nothing or ““ 'Put cursor in the “txtAmount” box If txtAmount.Text.Length = 0 Then MsgBox("Make sure you a number for the amount", MsgBoxStyle.Critical, "ERROR!") txtAmount.Text = "" txtAmount.Focus() Exit Sub End If 'Check it’s not over 30 characters 'If the length of the text in “txtAmount” is more than 6 then display a message box ‘stating error “This amount is too much upto 6 characters allowed",” 'Reset text in “txtAmount” to nothing or ““ 'Put cursor in the “txtAmount” box If txtAmount.Text.Length > 6 Then MsgBox("The amount is too much", MsgBoxStyle.Critical, "ERROR!") txtFrom.Text = "" txtFrom.Focus() Exit Sub End If it’s a name and not a number
design_the_program_full.docx