+ Rispondi al messaggio
Pagina 2 di 3 primaprima 123 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 22

Classi

  1. #11
    L'avatar di sspintux
    sspintux non è in linea Very Important Person Ultimo blog: SqlServer express e connessione DAC
    potrebbe essere utile anche un costruttore (new)
    a cui passi nome , cognome e sesso
    e potresti controllare all'interno della classe (per esempio nei setter)
    se sono dati validi per il tuo domino di applicazione
    ℹ️ Leggi di più su sspintux ...

  2. #12
    gnappi non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    La classe chiamala al singolare magari con una C all'inizio

    Class CImpiegato
    Avete ragione.
    Porrò attenzione nel rispetto della sintassi.
    Grazie.

  3. #13
    gnappi non è in linea Scolaretto
    Sgrubak ...
    Scusa,Sgrubak,ma il sesso non funziona.Mi restituisce sempre MASCHIO sia che inserisca 0 che 1.
    t.sesso=sex.Maschio l'ho modificato in t.sesso=t.sex.Maschio.
    Grazie.
    Ultima modifica di AntonioG; 30-09-2021 12:51  Motivo: Non quotare tutto Gnappi

  4. #14
    Sgrubak non è in linea Scribacchino
    Quote Originariamente inviato da gnappi Visualizza il messaggio
    Mi restituisce sempre MASCHIO sia che inserisca 0 che 1.
    Penso sia dovuto al fatto che, come da codice al tuo post #7 tu hai inglobato la Enum all'interno della classe [impiegati]. Pertanto, quella enumerazione sarà utilizzabile direttamente, ma solo all'interno della classe stessa, oppure indirettamente scrivendo per intero il tipo della Enum che non sarà solo più [sex] ma diverrà [impiegati.sex].

    Se tu provassi a portare la dichiarazione della Enum dopo [End Class], vedresti che l'Intellisense accetterebbe l'assegnazione
    t.sesso = sex.Maschio
    
    e anzi, questa sintassi sarebbe disponibile in tutto il codice del progetto, quindi anche in un'ipotetica altra form.

  5. #15
    Puoi anche scrivere

    t.sesso = impiegati.sex.Femmina
    ℹ️ Leggi di più su AntonioG ...

  6. #16
    gnappi non è in linea Scolaretto
    ... a portare la dichiarazione della Enum dopo [End Class]
    Ho provato, ma il risultato è lo stesso.
    Sto facendo delle prove di cui darò poi conto.

  7. #17
    Cosa hai fatto esattamente? Comunque il thread sta diventando troppo generico, terminiamolo qui. Se hai un codice e degli errori o malfunzionamenti creane uno nuovo con titolo opportuno.
    ℹ️ Leggi di più su AntonioG ...

  8. #18
    gnappi non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Cosa hai fatto esattamente? Comunque il thread sta diventando troppo generico, terminiamolo qui. Se hai un codice e degli errori o malfunzionamenti creane uno nuovo con titolo opportuno.
    Grazie per i vostri interventi.Mi rendo conto della genericità del caso.
    Comunque, ecco l'unico accrocco che io sono riuscito a far funzionare :
    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim R As New Class1
            R.Nome = TextBox1.Text
            R.Cognome = TextBox2.Text
            R.Set_sesso(TextBox3.Text)
    
            Label1.Text = R.Nome
            Label2.Text = R.Cognome
            Label3.Text = R.Get_sesso(TextBox3.Text)
        End Sub
    End Class
    
    Public Class Class1
        Public Property Nome As String
        Public Property Cognome As String
        Public Sesso As String
    
        Public Sub Set_sesso(ByVal Sesso As String)
            Select Case Sesso
                Case "1", "F"
                    Sesso = Sex.femmina
                Case "0", "M"
                    Sesso = Sex.maschio
                Case Else
                    Sesso = Sex.ERRORE
            End Select
        End Sub
    
        Public Function Get_sesso(ByVal sesso As String)
            If sesso = "0" Or UCase(sesso) = "M" Then
                sesso = Sex.maschio.ToString
            ElseIf sesso = "1" Or UCase(sesso) = "F" Then
                sesso = Sex.femmina.ToString
            Else
                sesso = Sex.ERRORE.ToString
            End If
            Return sesso
        End Function
    
    End Class
    
    Public Enum Sex
        maschio
        femmina
        ERRORE
    End Enum
    

  9. #19
    Però sei tornato indietro senza applicato i consigli che hai avuto. In questo modo è poco utile rispondere.
    ℹ️ Leggi di più su AntonioG ...

  10. #20
    Sgrubak non è in linea Scribacchino
    Ma no, troppo incasinato...
    Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each s As Sesso In [Enum].GetValues(GetType(Sesso))
    ComboBox1.Items.Add(s)
    Next s
    ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim imp As New Impiegato(TextBox1.Text, TextBox2.Text, DirectCast(ComboBox1.SelectedItem, Sesso))
    With imp
    Label1.Text = .Nome
    Label2.Text = .Cognome
    Label3.Text = .Sesso.ToString
    End With
    End Sub
    End Class
    Public Class Impiegato
    Public Sub New(_nome As String, _cognome As String, _sesso As Sesso)
    Nome = _nome
    Cognome = _cognome
    Sesso = _sesso
    End Sub
    Public Property Nome As String
    Public Property Cognome As String
    Public Property Sesso As Sesso
    End Class
    Public Enum Sesso As Byte
    Maschio
    Femmina
    End Enum


    Ho solo sostituito un ComboBox alla tua terza TextBox (volendo si può fare con una TextBox ma bisogna implementare la validazione e non ne vedo il motivo, dato che così è molto più intuitivo). Comunque, dai retta ed acquista un libro che tratti il linguaggio. I miei 30 euri spesi meglio...

+ Rispondi al messaggio
Pagina 2 di 3 primaprima 123 ultimoultimo

Potrebbero interessarti anche ...

  1. Classi in VBA
    Da Chico nel forum Microsoft Excel
    Risposte: 4
    Ultimo Post: 14-04-2020, 21:29
  2. Classi
    Da Popli nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 25-07-2014, 19:14
  3. Info Classi
    Da Missileback nel forum PHP
    Risposte: 1
    Ultimo Post: 28-09-2013, 00:10
  4. Classi in VBA
    Da fcavalli nel forum Microsoft Word
    Risposte: 8
    Ultimo Post: 04-12-2008, 20:16
  5. VB2005-Le classi del GDI+
    Da Gandalfrank nel forum Visual Basic .Net
    Risposte: 5
    Ultimo Post: 01-05-2008, 22:25