[VB6] Property Get e Let

[grendy]

Salve a tutti.
Sto cercando di aggiungere una nuova proprietà al mio ocx,
vi posto il codice.

Public Property Get BStyle() As String
  BStyle = mStyle
End Property

Public Property Let BStyle(ByVal sNewValue As Integer)
  mStyle = sNewValue
  stile mStyle
End Property

dove mStyle è una variabile privata e stile è una sub anch'essa privata.
Ed eccovi l'errore (a parte il fatto che non mi appare BStyle nella finestra delle proprietà)
--------------------------------------------------------
definition of property procedures for the same property ore inconsistent, or property procedure has an optional parameter, a ParamArray, or an invalid Set final parameter
--------------------------------------------------------
dov'è che sbaglio?

[grendy]

il messaggio di errore non esce piu'
avevo scritto
Public Property Get BStyle() As String
invece di
Public Property Get BStyle() As Integer
un errore di distrazione
ma la nuova proprietà continua a essere presente nella tabella delle proprietà.

[Brainjar]

Se non vuoi che la proprietà sia pubblica definiscila come Private

Private Property Get BStyle() As Integer
  BStyle = mStyle
End Property

Public Property Let BStyle(ByVal sNewValue As Integer)
  mStyle = sNewValue
  stile mStyle
End Property

Ciao,

[Brainjar]

Errata corrige.

Private Property Get BStyle() As Integer
  BStyle = mStyle
End Property

Private Property Let BStyle(ByVal sNewValue As Integer)
  mStyle = sNewValue
  stile mStyle
End Property

Riciao,

[grendy]

credo ci sia stato un equivoco...
io voglio che la nuova proprietà sia publica.

cmq ho rifabricato l'ocx (make) e adesso la nuova proprietà BStyle è presente nella finestra delle proprietà.

Adesso sembrerebbe tutto ok, solo che, se imposto la nuova proprietà dalla finestra delle proprietà, mi prende il valore ma poi ci rimette quello di default, mentre se imposto la nuova proprietà dal codice, tipo sul form_load, va tutto bene.

ho creato un piccolo progetto di esempio, se volete dargli un occhiata, cliccate
quì.

ripeto e solo un progetto di esempio che non serve a nulla.

il codice nel form_load è commentato perche voglio impostare quelle proprietà dalla finestra delle proprietà.

[grendy]

ok ragazzi risolto
non credo che ci sia lo spazio in un forum per discutere di come si usano le Get Set e Let in visual basic .... e poi io ho appena iniziato.
cmq ho aggiornato il file di esempio con quello funzionante, potete sempre dargli un occhiata.
un consiglio per chi come me vuole imparare a capirci qualcosa:
non cominciate senza un buon manuale.