Er zijn 4 reacties in dit onderwerp

[antonmaes]

voor mijn eindwerk moet ik werken met gegevens die door de gebruiker worden ingevuld.
ik zou dit doen met een validating event maar weet niet zo goed hoe ik hier aan moet beginnen.
zou iemand mij de basis kunnen uitleggen?

ik denk niet dat het zo uitgebreid zal zijn. het is de invoer van bv: naam, voornaam, telefoon, email, adres....

alvast bedankt!

[RedThread]

De validating control is één oplossing, maar je kan dat perfect met de try catch doen.

voorbeeld met de validate event :

Visual Basic Code:

   Private Sub textBox1_Validating(ByVal sender As Object, _
   ByVal e As System.ComponentModel.CancelEventArgs) Handles textBox1.Validating

	  Dim errorMsg As String
	  If Not ValidEmailAddress(textBox1.Text, errorMsg) Then
		 e.Cancel = True
		 textBox1.Select(0, textBox1.Text.Length)

		 ' Set the ErrorProvider error with the text to display.
		 Me.errorProvider1.SetError(textBox1, errorMsg)
	  End If
   End Sub
 

[RedThread]

een voorbeeld met try catch

Visual Basic Code:

	Private Function IsValidInteger(ByRef result As Integer, ByVal txt As TextBox, ByVal fieldname As String, Optional ByVal minvalue As Integer = Integer.MinValue, Optional ByVal maxvalue As Integer = Integer.MaxValue) As Boolean
		' Check for blank entry.
		Dim numitemstxt As String = txt.Text
		If numitemstxt.Length < 1 Then
			MessageBox.Show("Please enter " & fieldname & ".")
			txt.Focus()
			Return False
		End If

		' See if it's numeric.
		If Not IsNumeric(numitemstxt) Then
			MessageBox.Show(fieldname & " must be a number.")
			txt.Select(0, numitemstxt.Length)
			txt.Focus()
			Return False
		End If

		' Assign the value.
		Try
			result = Integer.Parse(txt.Text)
		Catch ex As Exception
			MessageBox.Show("Error in " & fieldname & "." &
				vbCrLf & ex.Message)
			txt.Select(0, numitemstxt.Length)
			txt.Focus()
			Return False
		End Try

		' Check that the value is between minvalue and maxvalue.
		If result < minvalue Or result > maxvalue Then
			MessageBox.Show(fieldname & " must be between " &
				minvalue.ToString & " and " & maxvalue.ToString & ".")
			txt.Select(0, numitemstxt.Length)
			txt.Focus()
			Return False
		End If

		' The value is okay.
		Return True
	End Function

	' Validate the value.
	Private Sub btnValidateClick() Handles btnValidate.Click
		Dim thevalue As Integer

		' See if the value is valid.
		If Not IsValidInteger(thevalue, txtValue, "Value", 1, 10) Then Exit Sub

		' In a "real" application, you would perform other processing here.
		' ...
		MessageBox.Show("OK")
	End Sub

[RedThread]

Nog een optie, de maskedtextbox :
Handig voor telefoonnummers, postcodes, etc...

 2012-05-14_114019.png   11.51K   4 downloads

[MichaelDeBoey]

Anton ik wil je gerust ook wat uitleg geven in de klas hoor
Je moet geen schrik hebben om mij aan te spreken
We zijn er om elkaar te helpen
Mag SOLVED denkek