CLASSE COMO PROPRIEDADE
Eu tenho uma propriedade assim:
[txt-color=#0000f0]Private mSelectionSorted As New clsSelectionSorted
Public Property Let Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property[/txt-color]
dentro da classe clsSelectionSorted:
[txt-color=#0000f0]Public Function Growing()
OrdemCrescente
End Function
Public Function Decreasing()
OrdemDecrescente
End Function[/txt-color]
So que esta dando erro, esta dizendo: Uso inválido da propriedade .... se referindo a propriedade Order
q tá erradooooo?
[txt-color=#0000f0]Private mSelectionSorted As New clsSelectionSorted
Public Property Let Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property[/txt-color]
dentro da classe clsSelectionSorted:
[txt-color=#0000f0]Public Function Growing()
OrdemCrescente
End Function
Public Function Decreasing()
OrdemDecrescente
End Function[/txt-color]
So que esta dando erro, esta dizendo: Uso inválido da propriedade .... se referindo a propriedade Order
q tá erradooooo?
Substitua:
Public Property Let Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property
Por:
Public Property Set Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property
O que ocorre, é que o atributo [Ô]Let[Ô] não funciona muito bem caso o parâmetro da propriedade seja outra classe. Para isso deve ser usar o atributo Set...
Public Property Let Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property
Por:
Public Property Set Order(New_Order As clsSelectionSorted)
Set mSelectionSorted = New_Order
End Property
O que ocorre, é que o atributo [Ô]Let[Ô] não funciona muito bem caso o parâmetro da propriedade seja outra classe. Para isso deve ser usar o atributo Set...
Tópico encerrado , respostas não são mais permitidas