CHAMAR OUTRA PRPRIEDADE OCX

EPISCOPAL 22/12/2009 16:09:24
#330316
Tenho o seguinte codigo:

[txt-color=#0000f0]Public Property Get ViewRecuo() As Long[/txt-color]

ViewRecuo = m_ViewRecuo

[txt-color=#0000f0]End Property[/txt-color]

[txt-color=#0000f0]Public Property Let ViewRecuo(New_Val As rViewRecuo)[/txt-color]

m_ViewRecuo = New_Val

Select Case m_ViewRecuo

Case 0
mViewRecuo = 0
imgLeft.Visible = False
imgRight.Visible = False
imgHang.Visible = False
Case 1
mViewRecuo = 1
imgLeft.Visible = True
imgRight.Visible = True
imgHang.Visible = True

End Select

PropertyChanged [Ô]ViewRecuo[Ô]

[txt-color=#0000f0]End Property[/txt-color]




ATé AQUI TUDO BEM ...... DENTRO DA MINHA OCX TENHO OUTRA PROPRIEDADE:


[txt-color=#0000f0]Public Property Get Orientation() As rlrOrientationConstants[/txt-color]
Orientation = m_Orientation
[txt-color=#0000f0]End Property[/txt-color]

[txt-color=#0000f0]Public Property Let Orientation(New_Val As rlrOrientationConstants)[/txt-color]

m_Orientation = New_Val

If m_Orientation = Horizontal Then
[ô]??????????????????????????????????????? QUE CODIGO EU USO AKI PARA INSERIR 0 EM VIEWRECUO
Else
[ô]??????????????????????????????????????? QUE CODIGO EU USO AKI PARA INSERIR 1 EM VIEWRECUO
End If

UserControl.Cls
Picture2.Cls
ChangeOrientSizes
DrawRuler
PropertyChanged [Ô]Orientation[Ô]

[txt-color=#0000f0]End Property[/txt-color]



[txt-size=5]PERGUNTA-SE:[/txt-size]

Que comando eu uso pra chamar e colocar o valor [Ô]Property Let ViewRecuo[Ô] como 1?
MADMAX 22/12/2009 16:45:22
#330324
Basta você usar a variavel dela e depois dar um change como exemplo abaixo

m_ViewRecuo = 0
UserControl.PropertyChanged (ViewRecuo)

tipo assim

If m_Orientation = Horizontal Then
m_ViewRecuo = 0
Else
m_ViewRecuo = 1
End If
UserControl.PropertyChanged (ViewRecuo)
EPISCOPAL 22/12/2009 17:33:27
#330328
PERFEITO MADMAX

DEU CERTOOOOOO

SO QUE EU QUERIA Q ELE EXECUTASSE A FUNÇÃO:
[txt-color=#0000f0]Public Property Let ViewRecuo(New_Val As rViewRecuo)[/txt-color]


SEM PRECISAR Q EU ENTRE COM ESTE CODIGO
[txt-color=#0000f0]Select Case m_ViewRecuo
Case 0
mViewRecuo = 0
imgLeft.Visible = False
imgRight.Visible = False
imgHang.Visible = False
Case 1
mViewRecuo = 1
imgLeft.Visible = True
imgRight.Visible = True
imgHang.Visible = True
End Select[/txt-color]
MADMAX 22/12/2009 17:40:40
#330330
Você tentou chamar assim
ViewRecuo(1)

Você realmente precisa que ViewRecuo seja uma propiedade da Ocx?? .. ela sera setada pelo componente?? ... faz assim estou saido do serviço agora responde ai hora que eu chegar em casa ja entro ... se quiser meu msn é feimgarcia@hotmail.com ..
EPISCOPAL 22/12/2009 17:55:12
#330332
nao deu certo madmax .... eu tbem ja tou de saida ....... so vou entrar depois das 10 da noite .......... valeuuuu

depois te adicionooo
EPISCOPAL 23/12/2009 03:17:41
#330348
Se eu executar >>> ViewRecuo(1)


so funciona se estiver dentro de uma subrotina ou função ............. dentro da property nao funciona ....
MADMAX 23/12/2009 09:22:43
#330360 Resposta escolhida
Cria uma sub privada então para fazer isso ... ai a sub faz a carga . ai vc pode usar em varios lugares...
EPISCOPAL 23/12/2009 11:05:14
#330370
rsrsrs .............. ja fiz isso MadMax ...... !!!!


valeuuuu
Tópico encerrado , respostas não são mais permitidas
Voltar