DECLARACAO NO COMPONENTE OCX

EPISCOPAL 17/09/2009 23:36:40
#323166
[quote] ASHKATCHUP disse: Para deixar como default algum valor, você precisa setar no write e read properties. [/quote

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Zoom = PropBag.ReadProperty([Ô]Zoom[Ô], 100)

End Sub


Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty([Ô]Zoom[Ô], m_Zoom, 100)

End Sub


eu fiz dessa maneira .......... só que na janela de propriedade aparece o indice 0 ........... mas na verdade executa o indece 3 como deveria ............. e agora ............ para aparecer selecionado o indice 3??????
ASHKATCHUP 18/09/2009 08:19:57
#323170
Tentei fazer assim mas não consegui, então setei a propriedade no método INITIALIZE.


Option Explicit
[ô]
Public Enum Zoom
    [100]
    [200]
    [300]
    [400]
End Enum
[ô]
Private mvarZoom As Zoom

Private Sub UserControl_Initialize()
    mvarZoom = [300]
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    PropBag.ReadProperty [Ô]Zoom[Ô], [300]
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty [Ô]Zoom[Ô], mvarZoom, [300]
End Sub

Public Property Let Zoom(vData As Zoom)
    mvarZoom = vData
    PropertyChanged [Ô]Zoom[Ô]
End Property

Public Property Get Zoom() As Zoom
    Zoom = mvarZoom
End Property
ROBIU 18/09/2009 08:53:29
#323177 
Private Sub UserControl_Initialize()
    m_Zoom = 3
End Sub


ou assim:

Private Sub UserControl_InitProperties()
    m_Zoom = 3   
End Sub


Na questão de sempre a propriedade Zoom receber o foco é porque você está trabalhando com esta propriedade. Teste selecionar outra propriedade rodar o projeto e inserir outro usercontrol. Vai está na propriedade selecionada anteriormente. Isso vale para qualquer controle.

Neste código 0 100 é o indice. Como não tem índice 100...
Citação:

Zoom = PropBag.ReadProperty([Ô]Zoom[Ô], 100)



Supondo que o 100 tenha indice 3:
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
        Zoom = PropBag.ReadProperty([Ô]Zoom[Ô], 3)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
        Call PropBag.WriteProperty([Ô]Zoom[Ô], m_Zoom, 3)
End Sub
EPISCOPAL 18/09/2009 21:23:46
#323249
Private Sub UserControl_InitProperties()
m_Zoom = 3
End Sub

este codigo ajudou Robertooooo

valeu a tambem ASHKATCHUP ...........
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar