Newsgroup: it.comp.lang.visual-basic
Titolo: La proprietà del mio Ocx si risetta su False dopo aver chiuso il programma

Mettiamo di avere una propietà nel mio Ocx chiamata
Modifica_Visible; io la gestisco così:
Private bModificaVisible As Boolean
'MODIFICA**************************
Public Property Let Modifica_Visible(ByVal vNewValue As Boolean)
    bModificaVisible = vNewValue
    Pulsanti.Buttons(2).Visible = vNewValue     'Imposto il visible di un
bottone di una toolbar
    PropertyChanged "Modifica_Visible"
End Property
Public Property Get Modifica_Visible() As Boolean
    Modifica_Visible = bModificaVisible
End Property
'********************************
Va bene se la cambio in fase di run-time.
Quando importo l'Ocx mi si setta la proprietà con il metodo
Private Sub UserControl_InitProperties()
    Modifica_Visible = True
end sub
Però dal momento che lancio il progetto e lo chiudo
la proprietà si risetta su false, ma il bottone si vede ancora (deve
vedersi).
Ho provato ad utilizzare i metodi UserControl_WriteProperties e
UserControl_ReadProperties ma il valore rimane a false.
Come faccio a mettere la propietà a true in automatico?
Ciao
Grazie
Oz
--
Carè Walter SIA SOFTWORK S.R.L.
Via Zanardelli, 13/A - 25062 Concesio (BS) Italy
Tel. 0039-30-2008135/0039-30-2091057  Fax. 0039-30-2004911
Web: 
http://www.siasoftwork.it
 - E.mai:- 
ca...@siasoftwork.it

 wrote in message
news:8shp1s$lg0$1...@fe2.cs.interbusiness.it...


 Aldo
Sei sicuro?
A me non funziona!
Che differenza c'è nel cambiare la propietà del' Ocx
e la variabile che usa per cambiarsi?
Public Property Let Modifica_Visible(ByVal vNewValue As Boolean)
    bModificaVisible = vNewValue
    Pulsanti.Buttons(2).Visible = vNewValue     'Imposto il visible di un
bottone di una toolbar
    PropertyChanged "Modifica_Visible"
End Property
Public Property Get Modifica_Visible() As Boolean
    Modifica_Visible = bModificaVisible
End Property
Io prima nell'InitProperties facevo Modifica_visible = true
e non funzionava, tu mi hai detto di fare bmodificaVisible=true,
però non va!
In fase di design funziona, da codice funziona, ma se cambi il valore della
propietà (es True), lanci il progetto, lo chiudi e vai in fase di design la
propietà rimane
sempre a false.
Sarebbe come a dire: imposto la FormName a "MiaForm", lancio il progetto, lo
chiudi e
FormName mi ritorna a "Form1".
Come faccio???????
Per me devo usare la WriteProperties, ma non ne sono sicuro.
Grazie
Ciao
Oz

Per me devo usare la WriteProperties, ma non ne sono sicuro.
C'e la gestione con WriteProperties e ReadPropreties?
Se no aggiungi anche quelli:
q
-- 
Sidewinder  
---------------------------------------------------------------------
<stu> Stupid nick highlighting
<stu> Whenever someone starts with "stupid" it highlights the nick.  Hmm.
	-- #Debian
---------------------------------------------------------------------

Ok valoroso Sidewinder, ho/avevo provato con
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "Modifica_visible", True, True
    PropertyChanged "Modifica_visible"
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    PropBag.ReadProperty "Modifica_visible", True
End Sub
Ma ritorna a False.........
Mannaggia......
Non potresti illuminarmi di +?
Grazie a tutti.
Ciao
Oz

Ok valoroso Sidewinder, ho/avevo provato con

Strano...
il writeProperty viene chiamato quando si salva il form dove c'e il tuo
oggetto...
Prova a dare una occhiata nel file .frm dove risiete il tuo oggetto e
leggi le proprieta assegnate a questo oggetto
la vita di un controllo segue questa logica:
initialize: Quando viene creato un controllo oppure quando viene caricato
un form che lo contiene
read property : Quando viene caricato il form che contiene il controllo
write property : quando viene salvato il form che contiene il controllo
terminate: quando il controllo viene cancellato oppure quando viene
chiuso il form che contiene.
PS vado tutto a memoria perche' l'ultimo progetto che usa controlli
ActiveX scritti in VB l'ho fatto almeno un anno fa...
-- 
Sidewinder  
---------------------------------------------------------------------
/*
 * Buddy system. Hairy. You really aren't expected to understand this
 *
 */
	-- From /usr/src/linux/mm/page_alloc.cA
---------------------------------------------------------------------

Non potresti illuminarmi di +?


Cut.....
Prima mi chiarisco:
Ho fatto un ocx che include una toolbar con tanti
bottoni (che bello.....), ho una propietą per ogni
bottone (modifica_visible,salva_visible,ecc..) che
serve ad rendere visibile o no il pulsante associato.
Ho fatto come mi hai detto e nel file c'č scritto
Begin Toolbar_diamante.Toolbar Toolbar1
      Height          =   555
      Left            =   480
      TabIndex        =   1
      Top             =   120
      Width           =   6705
      _ExtentX        =   11827
      _ExtentY        =   979
End
Domanda: perchč non ci sono tutte le altre propietą
che ho fatto io?
Grazie dell'attenzione.
Ciao
Oz

Grande!!!!!!!!!
Va come un treno........
Ciao
Grazie
Oz

 Oz
Forse capisco solo ora (forse). Intendi dire che vorresti trovarti a design
time le proprieta' modificate a run-time ? Non e' proprio una cosa da VB.
Significherebbe modificare il binario dell' eseguibile, ma in questo caso
suggerirei di usare l' assembly.
Se invece non ho capito, ti prego di ripostare il messaggio, modificando l'
esposizione del problema.
Ciao
Aldo
Sent via Deja.com 
http://www.deja.com/
Before you buy.