This repository has been archived by the owner on Dec 29, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
BuiltInValidationData.vb
102 lines (94 loc) · 5.32 KB
/
BuiltInValidationData.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
Imports System
Imports System.Web.UI
Imports DevExpress.Web
Namespace CS.Models
Public Class BuiltInValidationData
Public Property Name() As String
Public Property Age() As Integer?
Public Property Email() As String
Public Property ArrivalDate() As Date
End Class
Public Class BuiltInValidationHelper
Private Shared nameValidationSettings_Renamed As DevExpress.Web.ValidationSettings
Public Shared ReadOnly Property NameValidationSettings() As DevExpress.Web.ValidationSettings
Get
If nameValidationSettings_Renamed Is Nothing Then
nameValidationSettings_Renamed = DevExpress.Web.ValidationSettings.CreateValidationSettings(Nothing)
nameValidationSettings_Renamed.Display = Display.Dynamic
nameValidationSettings_Renamed.ErrorDisplayMode = ErrorDisplayMode.ImageWithText
nameValidationSettings_Renamed.RequiredField.IsRequired = True
nameValidationSettings_Renamed.RequiredField.ErrorText = "Name is required"
nameValidationSettings_Renamed.ErrorTextPosition = ErrorTextPosition.Bottom
End If
Return nameValidationSettings_Renamed
End Get
End Property
Private Shared ageValidationSettings_Renamed As DevExpress.Web.ValidationSettings
Public Shared ReadOnly Property AgeValidationSettings() As DevExpress.Web.ValidationSettings
Get
If ageValidationSettings_Renamed Is Nothing Then
ageValidationSettings_Renamed = DevExpress.Web.ValidationSettings.CreateValidationSettings(Nothing)
ageValidationSettings_Renamed.Display = Display.Dynamic
ageValidationSettings_Renamed.ErrorDisplayMode = ErrorDisplayMode.ImageWithText
ageValidationSettings_Renamed.ErrorText = "Must be between 18 and 100"
ageValidationSettings_Renamed.ErrorTextPosition = ErrorTextPosition.Bottom
End If
Return ageValidationSettings_Renamed
End Get
End Property
Private Shared emailValidationSettings_Renamed As DevExpress.Web.ValidationSettings
Public Shared ReadOnly Property EmailValidationSettings() As DevExpress.Web.ValidationSettings
Get
If emailValidationSettings_Renamed Is Nothing Then
emailValidationSettings_Renamed = DevExpress.Web.ValidationSettings.CreateValidationSettings(Nothing)
emailValidationSettings_Renamed.Display = Display.Dynamic
emailValidationSettings_Renamed.ErrorDisplayMode = ErrorDisplayMode.ImageWithText
emailValidationSettings_Renamed.RequiredField.IsRequired = True
emailValidationSettings_Renamed.RequiredField.ErrorText = "Email is required"
emailValidationSettings_Renamed.RegularExpression.ValidationExpression = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
emailValidationSettings_Renamed.RegularExpression.ErrorText = "Email is invalid"
emailValidationSettings_Renamed.ErrorTextPosition = ErrorTextPosition.Bottom
End If
Return emailValidationSettings_Renamed
End Get
End Property
Private Shared arrivalDateValidationSettings_Renamed As DevExpress.Web.ValidationSettings
Public Shared ReadOnly Property ArrivalDateValidationSettings() As DevExpress.Web.ValidationSettings
Get
If arrivalDateValidationSettings_Renamed Is Nothing Then
arrivalDateValidationSettings_Renamed = DevExpress.Web.ValidationSettings.CreateValidationSettings(Nothing)
arrivalDateValidationSettings_Renamed.Display = Display.Dynamic
arrivalDateValidationSettings_Renamed.ErrorDisplayMode = ErrorDisplayMode.ImageWithText
arrivalDateValidationSettings_Renamed.ErrorText = "Arrival date is required"
arrivalDateValidationSettings_Renamed.RequiredField.IsRequired = True
arrivalDateValidationSettings_Renamed.RequiredField.ErrorText = "Arrival date is required"
arrivalDateValidationSettings_Renamed.ErrorTextPosition = ErrorTextPosition.Bottom
End If
Return arrivalDateValidationSettings_Renamed
End Get
End Property
Public Shared Sub OnNameValidation(ByVal sender As Object, ByVal e As ValidationEventArgs)
If e.Value Is Nothing Then
e.IsValid = False
Return
End If
Dim name = e.Value.ToString()
If name = String.Empty Then
e.IsValid = False
End If
If name.Length > 50 Then
e.IsValid = False
e.ErrorText = "Must be under 50 characters"
End If
End Sub
Public Shared Sub OnAgeValidation(ByVal sender As Object, ByVal e As ValidationEventArgs)
If e.Value Is Nothing Then
Return
End If
Dim age = Integer.Parse(e.Value.ToString())
If age < 18 OrElse age > 100 Then
e.IsValid = False
End If
End Sub
End Class
End Namespace