Property Let ???
Master_p
------------------------------------------------------------------------
Public Property Let DatadiNascita(ByVal vData As Date)
Dim G As Date
G = Format(Now, "dd,mm,yyyy")
If vData > G Then
MsgBox "Forse dovresti aspettare ancora un pò !!"
ElseIf vData = G Then
MsgBox "Auguri al neonato 80) !!"
ElseIf vData < G Then
my_DatadiNascita = vData
Else
MsgBox "Data non valida !", 16, App.Title
End If
End Property
Nella Form1 :
Private Sub Command1_Click ( )
Dim X as New Mia_Classe
X.DatadiNascita = txtData
Set X = Nothing
Se nella txtData inserisco caratteri o nulla mi dà il seguente errore:
Err 13 Tipo non corrispondente....
Perchè non lo individua la Property Let ?
Sono un principiante in fatto di Classi...
Grazie a tutti
Ciao 8)
Enrico Mammana
MUWW4.41908$EY1.4...@news.infostrada.it...
> Private my_DatadiNascita As Date
> ------------------------------------------------------------------------
> Public Property Let DatadiNascita(ByVal vData As Date)
>CUT
> X.DatadiNascita = txtData
> Set X = Nothing
> Se nella txtData inserisco caratteri o nulla mi dà il seguente errore:
> Err 13 Tipo non corrispondente....
> Perchè non lo individua la Property Let ?
> Sono un principiante in fatto di Classi...
>
Be'... l'errore sta nel fatto che il parametro che si aspetta la proprietà
è di tipo Date, e tu gli assegni il valore di una textbox,
che, nel momento in cui gli assegni un carattere è un variant contenente una
stringa, e quindi non compatibile con il tipo Date,
mentre qualsiasi numero può essere trasformato in una data...
Ciao
Enrico
Moreno Sirri
>Private my_DatadiNascita As Date
>------------------------------------------------------------------------
>Public Property Let DatadiNascita(ByVal vData As Date)
[...]
>End Property
[...]
>Dim X as New Mia_Classe
>X.DatadiNascita = txtData
>Set X = Nothing
>
>Se nella txtData inserisco caratteri o nulla mi dà il seguente errore:
>Err 13 Tipo non corrispondente....
>Perchè non lo individua la Property Let ?
No.
La property accetta un valore di tipo Data, giusto? quindi gli devi passare un valore di tipo Data:
X.DatadiNascita = Cdate(txtData)
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Faber
>
> X.DatadiNascita = txtData
> Set X = Nothing
>
> Se nella txtData inserisco caratteri o nulla mi dà il seguente errore:
> Err 13 Tipo non corrispondente....
sarebbe meglio fare:
Private Sub Command1_Click()
If Not IsDate(txtData) Then
MsgBox "Data non valida", vbExclamation
txtData.SetFocus
Exit Sub
End If
Dim X As Mia_Classe
Set X = New Mia_Classe
X.DatadiNascita = txtData
Set X = Nothing
End Sub
Ciao
Faber