[RESOLVED] about propertyies

[joaquim]

i'm using visual basic 6...
when i do a property, did i must put the entire code(or call a procedure) in write and read properties usercontrol events(these properties must be used in property visual basic 6 window)?
thanks

[joaquim]

what isn't right with these property(and works)?
the code is like is ignored in read and write properties usercontrol events:

Public Enum AnimationState
    AnimationStopped = 0
    AnimationPlay = 1
    AnimationPause = 2
End Enum

Dim aniAnimationState As AnimationState

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
      Animation = PropBag.ReadProperty("Animation", 0)
end sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
     PropBag.WriteProperty "Animation", Animation, 0
end sub

Public Property Get Animation() As AnimationState
    Animation = aniAnimationState
End Property

Public Property Let Animation(ByVal vNewValue As AnimationState)
    aniAnimationState = vNewValue
    If ((aniAnimationState = AnimationPlay And lngTotalSubImages = 1) Or aniAnimationState = AnimationStopped) Then
        aniAnimationState = 0
        tmrAnimation.Enabled = False
        If Strip.Activate = False Then
            lngActualSubImage = 0
        Else
            lngActualSubImage = 1
        End If
    ElseIf aniAnimationState = AnimationPause Then
        If tmrAnimation.Enabled = True Then
            tmrAnimation.Enabled = False
        Else
            tmrAnimation.Enabled = Ambient.UserMode
        End If
    ElseIf aniAnimationState = AnimationPlay Then
        If lngTotalSubImages > 1 Then tmrAnimation.Enabled = Ambient.UserMode
    End If
    PropertyChanged "Animation"
End Property

the error is: when i change the animation property, in project mode, these changes aren't made in execute mode... why?
but if i change in execute mode, works fine.
thanks

[joaquim]

heres my groupproject for test it...
in these groupproject i have a teste form and the sprite control for test it.
if you change the Animation property(in project mode) for animationstopped(for example) and then you execute, you will see that isn't happen...
my question is: why the sprite don't stop/pause the image animation(but play it)?
note: if i change the property in run mode, don't give me any problem...
for be more explicit i edit my groupproject....
thanks

[joaquim]

i have tested again and i can see a problem:
the animation property value is fine, the tmranimation.enable value is fine... but when i execute the program the timer change(for a round value) is value, why?
thanks

[joaquim]

finally i resolve my problem...
thanks
i change something in timer event:

Private Sub tmrAnimation_Timer()
    If blnDestroyed = True Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    On Error GoTo erro
    If Animation = AnimationPause Or Animation = AnimationStopped Then
        tmrAnimation.Enabled = False
        Exit Sub
    End If
    Const Transparency = (50 * 255) / 100 * &H10000
    If lngActualSubImage < PicAnimation.Count - 1 Then
        lngActualSubImage = lngActualSubImage + 1
    Else
        If Strip.Activate = True Then
            lngActualSubImage = 1
        Else
            lngActualSubImage = 0
        End If
    End If
    Set UserControl.Picture = Nothing
    UserControl.Cls
    If blnStretch = True Then
        StretchBlt UserControl.hdc, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, PicAnimation(lngActualSubImage).hdc, 0, 0, PicAnimation(lngActualSubImage).Width, PicAnimation(lngActualSubImage).Height, vbSrcCopy
    ElseIf blnAlphaBlend = True Then
        AlphaBlend UserControl.hdc, 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight, PicAnimation(lngActualSubImage).hdc, 0, 0, _
PicAnimation(lngActualSubImage).ScaleWidth, PicAnimation(lngActualSubImage).ScaleHeight, Transparency
    Else
        UserControl.Picture = PicAnimation(lngActualSubImage).Image
    End If
    Call SubTransparent
    RaiseEvent ChangeImage(lngActualSubImage)
    Exit Sub
erro:
    tmrAnimation.Enabled = False
    MsgBox Err.Description
End Sub

thanks