Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [VB.NET] Problema proprietà classe

    Ciao ho creato una Classe con una proprieta, enumerata ma quando cerco di leggere il suo valore mi risponde sempre 0.

    codice:
    Dichiarazione
    
    Public Class frmAvvio
        Inherits System.Windows.Forms.Form
        'variabili oggetto
        Public m_opType As Operation
        Public Property opType() As Operation
            Get
                Return Me.m_opType
            End Get
            Set(ByVal Value As Operation)
                Me.m_opType = Value
            End Set
        End Property
    
        Public Enum Operation As Integer
            Nuovo
            Modifica
            Invio
            CaricaNew
            CaricaMod
            ChronNew
            ChronMod
            NuovoMan
            Preview
        End Enum
    codice:
    Assegnazione
    
        Private Sub loadForm(Optional ByVal bOperation As Operation = Operation.Nuovo)
            Dim frm As New frmData
            opType = bOperation
            frm.Show()
        End Sub
    codice:
    Retreive da altro form
    
        Private Sub initOperation()
            Dim frm As New frmAvvio
            lblUserName.Text = frmAvvio.bUserName
            lblOperation.Text = CType(frm.opType, String)
            'Debug.WriteLine(frmAvvio.opType)
        End Sub
    Se intercetto il valore in loadForm é corretto ...

  2. #2
    Ho aggiunto cio'

    codice:
      Private Sub loadForm(Optional ByVal bOperation As Operation = Operation.Nuovo)
            Dim frm As New frmData
            m_opType = bOperation
            Debug.WriteLine(Me.opType)
            frm.Show()
        End Sub
    qui funziona ma quando lo leggo dalla nuova form mi restituisce sempre il valore di default 0

    E' pubblica cosa altro vuole ....

  3. #3
    risdolto al posto di assegnare leggo la proprietà della form precedente rendendola Shared!!


  4. #4
    Utente di HTML.it L'avatar di cassano
    Registrato dal
    Aug 2004
    Messaggi
    3,002
    il codice con la soluzione ...........

    scusa ma io sono sempre curioso

  5. #5
    Cassano scusa ma avevo giu' il web server Domino (quando mai ...)
    codice:
     Private Sub initOperation()
            Dim frm As New frmAvvio
            lblUserName.Text = frmAvvio.bUserName
            lblOperation.Text = CType(frm.opType, String)
     End Sub

  6. #6
    Utente di HTML.it L'avatar di cassano
    Registrato dal
    Aug 2004
    Messaggi
    3,002
    scusa te,cmq grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.