Vb.net Codes (Numeric filtering)

[TriGETZ]

Guys pa help

dim status as bollean = false

If Not IsNumeric(GRADE1.Text) OrElse _
Not Enumerable.Range(1, 5).Contains(GRADE1.Text) OrElse _
Not GRADE3.Text = "" Then
MessageBox.Show("Please Input A Correct Grade", "Error")

Else
Status2 =true
end if

need ko sa textbox is dapat ang ilalagay is 1-5 and "" only

or may iba pa kayong alam na code???

 

[marveldee]

Guys pa help

dim status as bollean = false

If Not IsNumeric(GRADE1.Text) OrElse _
Not Enumerable.Range(1, 5).Contains(GRADE1.Text) OrElse _
Not GRADE3.Text = "" Then
MessageBox.Show("Please Input A Correct Grade", "Error")

Else
Status2 =true
end if

need ko sa textbox is dapat ang ilalagay is 1-5 and "" only

or may iba pa kayong alam na code???

boss medyo malabo diko maintindihan,
pero try this ilagay mo sa keypress event

if isNumeric(Grade.text) And grade.text.Length<=5 then

e.handled=false
else
e.handled=true;
endif

ibig sabihin pa numeric ang nakalagay sa textbox at ang bilang ng characters ay di lalagpas sa lima
makapagtype ka pero pag lapas sa lima at hindi hindi numeric hindi mu ka makakapagtype sa textbox mo.

 

[1samboy]

lagay mu lang to sa keypress event ng textbox mo


Dim allowedChars As String = "12345"

If allowedChars.IndexOf(e.KeyChar) = -1 Then
If Not e.KeyChar = Chr(Keys.Back) Then
e.Handled = True
Beep()
End If
End If