none
Problemas en una Property RRS feed

  • Pregunta

  • 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".

    Código del formulario:
    Public objProv As New PtPersonal.Pt.IdProv("IdProv", "Provincia")

    Private Sub txtProvincia_Validating(sender As Object, e As CancelEventArgs) Handles txtProvincia.Validating
    objProv.Provincia = txtProvincia.Text
    txtProvincia.Text = objProv.Provincia
    End Sub

    Código de la Property que es una Clase:

    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 miProv As String, ByVal miProvincia As String)
    InstanceId = NextInstanceID
    NextInstanceID += 1
    ClassInstanceCount += 1
    Me.IdProv = miProv
    Me.Provincia = miProvincia
    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 valor de la variable que llega a la Property siempre es "provincia"

    Puede alguien indicarme el fallo que tengo

    Gracias
    martes, 13 de febrero de 2018 18:16

Respuestas