Visual Basic.NET - Control de errores en una propiedad

 
Vista:
Imágen de perfil de Miguel
Val: 344
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Control de errores en una propiedad

Publicado por Miguel (211 intervenciones) el 10/02/2018 22:57:21
Hola tengo este código en un formalario
1
2
3
4
Private Sub txtProvincia_Validating(sender As Object, e As CancelEventArgs) Handles txtProvincia.Validating
    objProv.Provincia = txtProvincia.Text
    txtProvincia.Text = objProv.Provincia
End Sub

instancia : Public objProv As New PtPersonal.Pt.IdProv("IdProv", "Provincia")

Y estas propiedades:
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
Public Class IdProv  '**************************** Provincias
    Private pIdProv As String
    Private pProvincia As String
    Public ReadOnly InstanceId As Integer = 1
    Private Shared NextInstanceID As Integer = 1
    Public Shared ClassInstanceCount As Long = 0
    Public Event DataError(ByVal sErrorMsg As String)
 
    Public Sub New(ByVal IdProv As String, ByVal Provincia As String)
        InstanceId = NextInstanceID
        NextInstanceID += 1
        ClassInstanceCount += 1
        Me.IdProv = IdProv
        Me.Provincia = Provincia
    End Sub
 
    Public Property IdProv() As String
        Get
            Return pIdProv
        End Get
        Set(value As String)
            pIdProv = value
        End Set
    End Property
 
    Public Property Provincia As String
        Get
            Return pProvincia
        End Get
        Set(value As String)
            If Len(value) > 0 Then
                pProvincia = StrConv(value, VbStrConv.ProperCase)
            Else
                RaiseEvent DataError("El nombre de la provincia es obligatoria")
            End If
        End Set
    End Property
 
    Protected Overrides Sub finalize()
        MyBase.Finalize()
        ClassInstanceCount -= 1
    End Sub
End Class

Las propiedades funcionan bien en cuanto que introduzco la provincia en minúsculas y me la retorna con mayúscula en el primer carácter. Sin embargo cuando dejo la provincia en blanco el Event DataError no funciona.

Puede alguien indicarme el fallo que tengo.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder