Newsgroup: it.comp.lang.visual-basic
Titolo: Matrici programmando ad oggetti

Ciao belliiiiiiii vi sono mancata?
Guai a voi se dite no!
Comunque volevo chiedervi una cosa.
Ho una matrice che  viene caricata quando l'utente accede al Profilo. . Sto
facendo delle prove cercando di capire se mi trovo meglio programmando ad
oggetti. (Dai fatevi una risata!!!)
La matrice è dentro  un modulo.bas (ModArray.bas) e viene richiamata quando
l'utente clicca sul pulsante Profilo.
Infatti tale pulsante richiama un Form e nell'evento Load del Form si carica
la Matrice.
Dentro il Form Profilo ci sono 2 ComboBox dove l'utente fa le sue scelte in
base al suo profilo. Queste scelte saranno le variabili che mi serviranno
per caricare la variabile giusta nella Matrice
Public Sub Form_Load()
    ModArray.Matrice                                       'Carica L'Array
dal modulo.bas (ModArray)
End Sub
-------------------------------------------------
Private Sub cmdOkProfilo_Click(Index As Integer)
If cboPosizioneLavorativa.ListIndex <> -1 Then      'Scelta della posizione
aziendale che l'utente ricopre dentro l'azienda (es. Quadro, F1,F2 etc.)
        If cboGiorniLavorati.ListIndex <> -1 Then       ' Scelta del numero
di giorni lavorati dentro al mese ( esiste un part time settimanale quindi
se
            ModVariabilePaga.Calcola                          ' nel profilo
alla voce part time si spunta un controllo il combobox serve a dire quanti
giorni
'sono stati lavorati ai fini della retribuzione finale)
        Else
            MsgBox "Seleziona i giorni che hai lavorato", vbExclamation,
"Errore"
                fraAziendale.Visible = True
                cboGiorniLavorati.SetFocus
            Exit Sub
        End If
 Else
    MsgBox "Seleziona la tua Posizione aziendale", vbExclamation, "Errore"
    fraAziendale.Visible = True
    cboPosizioneLavorativa.SetFocus
    Exit Sub
End If
AttivaComandi      'Richiama una funzione per abilitare alcuni comandi
End Sub
Il mio dilemma è il seguente
Se volessi "riscrivere" il codice basandomi su una programmazione ad oggetti
dove dovrei mettere  la matrice?
Dentro la classe?
Debby -----)@

 Ciao belliiiiiiii vi sono mancata?
beh, insomma, erano passati solo quattro giorni dall'ultimo tuo post.
non abbiamo fatto in tempo a sentire la tua mancanza.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

Pensavo che qualcuno potesse darmi una mano a capire.... :o(
 Debby -----)@

Forse ho formulato la domanda in malo modo.. ci riprovo
Nella classe impiegato ho
Nome
Cognome
ID Aziendale
-.....-
VariabilePaga
quindi:
Private mstrNome as String
Private mstrCognome as String
Private mstrIDAziendale as Integer
Private mstrVariabilePaga as Single
-----------------------------------------------------------------
Public Property Let Nome(ByVal vNewValue As String)
mstrNome = Nome
End Property
-----------------------------------------------------------------
Public Property Get Nome() As String
Nome= mstrNome
End Property
-----------------------------------------------------------------
Public Property Let Cognome(ByVal vNewValue As String)
mstrCognome = Cognome
End Property
-----------------------------------------------------------------
Public Property Get Cognome() As String
Cognome= mstrCognome
End Property
-----------------------------------------------------------------
Public Property Let IDAziendale(ByVal vNewValue As Integer)
mstrIDAziendale = IDAziendale
End Property
-----------------------------------------------------------------
Public Property Get IDAziendale() As Integer
IDAziendale= mstrIDAziendale
End Property
-----------------------------------------------------------------
Ora arriva il dubbio
La VariabilePaga dipenderà dalle scelte che l'utente fa nel FormProfilo.
 intColonna = frmProfilo.cboPosizioneLavorativa.ListIndex
 intRiga = frmProfilo.cboGiorniLavorati.ListIndex
 VariabilePaga = mstrVariabilePaga (intRiga, intColonna)
La matrice la devo mettere dentro la PropertyGet della VariabilePaga?
E' giusto come ho scritto qui sotto?
Public Property Let VariabilePaga(ByVal vNewValue As Single)
mstrVariabilePaga = VariabilePaga
End Property
-----------------------------------------------------------------
Public Property Get VariabilePaga() As Single
VariabilePaga= mstrVariabilePaga
  mstrVariabilePaga (0, 0) = 0
  mstrVariabilePaga (0, 1) = 12.25
  mstrVariabilePaga (0, 2) = 7.28
  mstrVariabilePaga (1, 0) = 0
  mstrVariabilePaga (1, 1) = 13.74
  mstrVariabilePaga (0, 2) = 9.54
End Property
-----------------------------------------------------------------
Debby -----)@