Problemas con una Property
Publicado por Miguel (281 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")
La Property es una Clase:
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
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 = 0Public Event DataError(ByVal sErrorMsg As String)
Public Sub New(ByVal IdProv As String, ByVal Provincia As String)
InstanceId = NextInstanceIDNextInstanceID += 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 = valueEnd 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
0