[VB.NET] Spiegazione classe

[zetaweb]

Scusate ma sul libro che sto studiando c'è una parte che no nriesco proprio a capire e riguarda la creazione di una classe.
io vi posto il codice, se potete darmi una spiegazione ve ne sarei grato, altrimenti se poteste darmi qualche link dove capire quello che sta scritto di seguito:

Public Class clsProdotto
Private pnomeProdotto as String

Public sub new()

End Sub

Public Sub New(Byval nomeprodotto as string, byval idprodotto as ineteger)
' si assegna il valore alle proprietà IDprodotto e nomeprodotto
pidprodotto = idprodotto
pnomeprodotto = nomeprodotto
End sub

Property nomeprodotto() as string
get
return pnomeprodotto
end get
set(byval valore as string)
pnomeprodotto = valore
end set
end property

public overrides function tostring() as string
return pnomeprodotto
end function

enc class

Grazie

[alka]

Il linguaggio! Cartellino giallo...

[zetaweb]

mannaggia hai ragione.... mi dimentico sempre...
è VB.NET

[tas]

Originariamente inviato da zetaweb
Scusate ma sul libro che sto studiando c'è una parte che no nriesco proprio a capire e riguarda la creazione di una classe.
io vi posto il codice, se potete darmi una spiegazione ve ne sarei grato, altrimenti se poteste darmi qualche link dove capire quello che sta scritto di seguito:

Public Class clsProdotto
Private pnomeProdotto as String

Public sub new()

End Sub

Public Sub New(Byval nomeprodotto as string, byval idprodotto as ineteger)
' si assegna il valore alle proprietà IDprodotto e nomeprodotto
pidprodotto = idprodotto
pnomeprodotto = nomeprodotto
End sub

Property nomeprodotto() as string
get
return pnomeprodotto
end get
set(byval valore as string)
pnomeprodotto = valore
end set
end property

public overrides function tostring() as string
return pnomeprodotto
end function

enc class

Grazie

Qual è il punto che non ti è chiaro?

Si tratta di una classe che prevede due diversi costruttori.
Il primo è New() e si usa come in questo esempio:

Dim prod As clsProdotto
prod = New clsProdotto

Il secondo è New(nomeprodotto, idprodotto):

Dim prod As clsProdotto
prod = New clsProdotto("fagioli", 145)

Esiste poi la definizione di una proprietà chiamata NomeProdotto (e dovrebbe esistere anche un'altra chiamata IDProdotto):

prod.NomeProdotto = "fagioli"
prod.IDProdotto = 145

Infine un metodo per gestire la conversione dell'oggetto nel formato String:

Console.WriteLine(prod.ToString)

[zetaweb]

penso mi manchino proprio le basi sul discorso delle classi.
Potete indicarmi qualche link dove trovare qualche buona spiegazione su come costruirle ed utilizzarle?
Grazie

[zetaweb]

Dopo aver studiato l'utilizzo delle classi mi è sicuramente più chiaro il codice che ho scritto sopra, e sono riuscito ad usarle per le mie esigenze, però adesso ho un problema che non so come risolvere.
Ho popolato un list box nel modo che vi posterò adesso, e vorrei che alla selezione di un elemento nel listbox si aggiornino alcuni campi testo con i dettagli di quell item selezionato.
il codice che ho scritto è questo, la classe è un pò lunga ma è sempre la stessa:
Questa è la classe:

Public Class bordi
    Private Vtipo As String
    Private VR As String
    Private VA As String
    Private VB As String
    Private Vfissaggio As String

    Property tipo() As String
        Get
            Return Vtipo
        End Get
        Set(ByVal Value As String)
            Vtipo = Value
        End Set
    End Property

    Property R() As String
        Get
            Return VR
        End Get
        Set(ByVal Value As String)
            VR = Value
        End Set
    End Property

    Property A() As String
        Get
            Return VA
        End Get
        Set(ByVal Value As String)
            VA = Value
        End Set
    End Property

    Property B() As String
        Get
            Return VB
        End Get
        Set(ByVal Value As String)
            VB = Value
        End Set
    End Property

    Property Fissaggio() As String
        Get
            Return Vfissaggio
        End Get
        Set(ByVal Value As String)
            Vfissaggio = Value
        End Set
    End Property

End Class

E questo è il codice del form

Private Sub CaricaBordi()
        Try
            Dim MyCmd As SqlClient.SqlCommand
            Dim MyDr As SqlClient.SqlDataReader
            Dim MySQL As String
            Dim MyProdotto As bordi

            myConn.Open()

            MySQL = "SELECT *FROM tab_bordiV"
            MyCmd = New SqlClient.SqlCommand(MySQL)
            MyCmd.Connection = myConn

            MyDr = MyCmd.ExecuteReader

            lstElenco.Items.Clear()

            Do While MyDr.Read

                MyProdotto = New bordi

                With MyDr
                    MyProdotto.tipo = .Item("tipo")
                    MyProdotto.R = .Item("a")
                    MyProdotto.A = .Item("a")
                    MyProdotto.B = .Item("b")
                    MyProdotto.Fissaggio = .Item("fissaggio")


                End With

                lstElenco.Items.Add(MyProdotto.tipo)

            Loop
            myConn.Close()


        Catch ex As Exception
            MessageBox.Show(ex.Message & " " & ex.StackTrace)
        End Try

    End Sub

Avevo provato a fare una cosa di questo tipo

                txtTipo.Text = lstElenco.SelectedItem(MyProdotto.tipo)

Ma mi da errore...
sapete darmi qualche suggerimento per come posso risolvere questa cosa?
Grazia tutti

[tas]

La classe Bordi è OK, mentre nella sub CaricaBordi c'è qualcosa che non quadra. A parte un errore di sintassi nella query (manca uno spazio tra * e FROM) mi chiedo come mai vai a creare per ogni record della tabella un oggetto Bordi quando poi questo oggetto non viene memorizzato da nessuna parte. Infatti la riga:

lstElenco.Items.Add(MyProdotto.tipo)

semplicemente aggiunge la stringa MyProdotto.Tipo alla listbox, niente di più. Avresti potuto scrivere direttamente così:

Do While MyDr.Read
    lstElenco.Items.Add(MyDr.Item("tipo"))
Loop

Nell'evento click del listbox puoi scrivere:

txtTipo.Text = lstElenco.SelectedItem

Ciao

[zetaweb]

l'errore che hai posto tu l'ho capito subito dopo aver scritto questo messaggio, aggiustandolo così come portava il libro, solo che vino ad ora non avevo capito a cosa seviva:

Public Overrides Function ToString() As String
        Return Vtipo
    End Function

E quando vado a popolare la listbox basta solo che scrivo

stElenco.Items.Add(MyProdotto)

Così se ho capito bene mi visualizza solo il valore tipo, però ha in sè cmq tutti gli altri valori che homesso nella classe, giusto?

Per quanto riguarda il selecteditem, ho provato così ma non funziona:

Private Sub lstElenco_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstElenco.SelectedIndexChanged
        Try
            Dim myprodotto As bordi
            myprodotto = New bordi

            txtTipo.Text = lstElenco.SelectedItem(myprodotto.tipo)
        Catch ex As Exception
            MessageBox.Show(ex.Message & " " & ex.StackTrace)
        End Try

Ma non funziona perchè i valori sono assegnati nell'altra sub quando vado ad interrogare il DB.
Quindi adesso il problema è come fare a mantenere i valori che ho assegnato all'oggetto myprodotto?
Grazie

[tas]

Se la classe ha l'override alla funzione ToString, allora quando scrivi:

stElenco.Items.Add(MyProdotto)

nella listbox verrà visualizzata la stringa impostata in ToString, mentre gli altri valori contenuti nella classe restano memorizzati all'interno del listbox. Per recuperare tali valori fai così:

Dim myprodotto As Bordi
myprodotto = lstElenco.SelectedItem

txtTipo.Text = myprodotto.tipo   'oppure qualsiasi altra proprietà della classe

[zetaweb]

nella fretta hai scritto bordi invece di myprodotto
cmq ho capito quello che dici!!!!

Facendo così praticamente assegno all'oggetto myprodotto i valori che la classe associa all'item selezionato!!!

Grazie mille!!!!