Newsgroup: it.comp.lang.visual-basic
Titolo: Semplice esempio per la creazione di un oggetto...aiuto!!!

Salve,
aiutatemi, sono demoralizzato, non aggiungo altro al subject...ho
davanti un codice gigante, mi sono perso tra questi oggetti maledetti
chiamatai da 20.000 moduli diversi...qualcuno può gentilemnte postarmi
un esempio semplicissimo di come si crea un oggetto e di come si
usa...almeno per capire concettualmente. Grazie.

Ciao Skunk,
raccogliendo le ultime direttive del NG, ti ho risposto in e-mail inviandoti
uno zip con gli esempi che hai chiesto.
Ci sono due progetti :
Il primo prjServer è quello dell'oggetto. Contiene una sola classe con tre
semplici proprietà. Per una di queste,Base
viene implementato il codice sia della Get che della Let
Option Explicit
Dim mBase As Integer
Public Property Get Base() As Integer
    Base = mBase
End Property
Public Property Let Base(ByVal iNewValue As Integer)
    mBase = iNewValue
    ' Quando assegni a Base un valore, questo viene
    ' memorizzato in mBase
End Property
Public Property Get Radice() As Double
    ' Quando richiederai il valore di Radice
    ' Questo codice ritornerà in Radice il valore
    ' calcolato
    Radice = Sqr(mBase)
End Property
Public Property Get Quadrato() As Double
    ' Quando richiederai il valore di Quadrato
    ' Questo codice ritornerà in Quadrato il valore
    ' calcolato
Quadrato = mBase * mBase
End Property
Compliando il progetto eseguirai anche la registrazione della Classe. Da
quel momento in poi, sulla macchina dove è
avvenuta la registrazione del componente, sarà disponibile la libreeia
prjServer. Chiudi tutto.
Ora apri il  progetto prjClientLB.
In testa al progetto troverai la dichiarazione per un oggetto generico
In questo progetto non ci sono riferimenti a prjServer fino alla istruzione
If mOggetto Is Nothing Then
    ' Questa assegnazione ti crea l'oggetto
    ' di tipo prjServer.cOggetto
    Set mOggetto = CreateObject("prjServer.cOggetto")
End If
Solo in questo punto, in fase di esecuzione, VB realizza la vera natura di
mOggetto
Questo modo di operare, con gli oggetti,  si chiama "Late Binding"
Quello che fa il programma è intuitivo.
Ora apri il  progetto prjClient.
Questa assegnazione ti definisce un oggetto di tipo prjServer.cOggetto
Private mOggetto As prjServer.cOggetto
In questo progetto c'è un riferimento a prjServer. (Project->Reference)
con questo codice associ immediatamente la libreria della classe
prjServer.cOggetto all'oggetto mOggetto.
La differenza la noti subito perchè VB ti fornisce tramite intellisense
tutti i metodi e le proprietà dell'oggetto
If mOggetto Is Nothing Then
    ' Questa assegnazione ti crea l'oggetto
    ' di tipo prjServer.cOggetto
    Set mOggetto = New prjServer.cOggetto
End If
Questo modo di operare, con gli oggetti, si chiama "Early Binding"
Spero di esserti stato utile.
Ciao, Vito
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

uno zip con gli esempi che hai chiesto.
Grazie mille!!! Anche la "montagna programmare ad oggetti" in vb stà
per essere scalata ;)) E' stato utilissimo il tuo esempio. Ho sola una
domanda da farti, se io volessi creare un mio oggetto, l' equivalente
del tuo prjServer, come è che devo fare? Se non aggiungo un mio
oggetto nei riferimenti, non posso poi istanziarlo...come si fa a
creare una mia dll? E dentro che ci dovrei scrivere?
Saluti, ciao ciao.

Fatto fatto...ci sono :)) Capito tutto!!! Grazie mille...