[VB6] Creazione di una classe e sua istanza

[Poker32]

Ciao a tutti, vorrei creare una classe in Visual Basic 6 ma non ci riesco.

Ho visto qualche esempio ma non mi funziona. Mi da sempre errore.

Potreste farmi un esempio di una classe semplice e come creare le istanze...

Grazie

Ciao

[oregon]

Se aggiungi un modulo di classe chiamato Class1, hai gia' la classe ...

Per istanziare un oggetto, scrivi

Dim o As New Class1

Ovviamente la classe non servira' a nulla ...

Ma perche' non posti quello che avevi scritto tu cosi' lo commentiamo e correggiamo ?

[MItaly]

Specificare gli errori che ti dà? :rollo:
Ecco un esempio piuttosto semplice:

'Da inserire in un modulo di classe chiamato "Person.cls" e con proprietà Name="Person"
Option Explicit
Private m_name As String
Private m_surname As String
Public Property Get Name() As String
    Name = m_name
End Property
Public Property Let Name(vNewValue As String)
    If vNewValue = "" Then Err.Raise 380 'controlla la stringa assegnata
    m_name = vNewValue
End Property
Public Property Get Surname() As String
    Surname = m_surname
End Property
Public Property Let Surname(vNewValue As String)
    If vNewValue = "" Then Err.Raise 380 'controlla la stringa assegnata
    m_surname = vNewValue
End Property
Public Property Get CompleteName() As String
    CompleteName = Name & " " & Surname
End Property

'Da inserire da qualche altra parte
Dim Persona As Person
Set Persona = New Person
'O, se preferisci
'Dim Persona As New Person
'ma sconsiglio molto le variabili ad istanziazione automatica
Persona.Name="Luigi"
Persona.Surname="Rossi"
MsgBox Persona.CompleteName

---EDIT---
Al solito, battuto sul tempo .

[oregon]

Sì ... ma tu sei stato mooolto piu' "buono" ...

[Poker32]

grazie, ho provato quella postata e funziona.

ho porvato a crearne una mia e però non mi funziona:

Option Explicit
Private c_id As Integer
Private c_testo As String

Public Property Get Id() As String
    Id = c_id
End Property
Public Property Let Id(vNewValue As Integer)
    c_id = vNewValue
End Property

Public Property Get Testo() As String
    Testo = c_testo
End Property
Public Property Let Testo(vNewValue As String)
    c_testo = vNewValue
End Property 

nel programma:

Dim Abc As Record
Set Abc = New Record 

aundo inizio a digitare abc. non mi viene fuori nessun valore

L'errore generato è questo:

Errore di compilazione:
Le definizioni delle routine Property per la stessa proprietà non sono coerneti o la routine Property include un parametro facoltativo, ParamArray o un parametro finale Ser non valido

[MItaly]

@oregon:
@Poker32

Originariamente inviato da Poker32
grazie, ho provato quella postata e funziona.

ho porvato a crearne una mia e però non mi funziona:

Option Explicit
Private c_id As Integer
Private c_testo As String

Public Property Get Id() As Integer
    Id = c_id
End Property
Public Property Let Id(vNewValue As Integer)
    c_id = vNewValue
End Property

Public Property Get Testo() As String
    Testo = c_testo
End Property
Public Property Let Testo(vNewValue As String)
    c_testo = vNewValue
End Property

[oregon]

Id non e' una stringa ... se *fai attenzione* e' semplice ...

[Poker32]

Ca****, scusate ma ero un po incasinato e non ho notato l'integer...

Domani provo a farlo funzionare ma non credo ci siano problemi...