Visual Basic.NET - Problemas con una Property

   
Vista:

Problemas con una Property

Publicado por Miguel (110 intervenciones) el 13/02/2018 13:59:59
Hola tengo este código en un formulario que cuando introduzco el nombre de una provincia bien sea en mayúsculas o minúsculas me la retorna con el primer carácter en mayúscula y el resto minúsculas bien tengan un nombre o dos. Pero cuando por un descuido no se introduce el nombre el control lo quiero hacer en la Property pero curiosamnete me retorna siempre "Provincia".

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

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

La Property es una Clase:

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
Namespace Pt
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
End Namespace

En definitiva el Event DataError no funciona pues el nombre que llega a la Property siempre es "provincia"

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

Problemas con una Property

Publicado por Miguel (110 intervenciones) el 13/02/2018 20:42:23
Ya lo he solucionado. Había tenido un error de bulto muy grande.

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad