[RESOLVED] [VB6]About some ActiveX control section bugs

[joaquim]

i have Visual Basic 6.0 (SP6) Enterprise Edition.
i'm trying edit my control but by some strange situations i can't edit everything
i can get some strange bugs(i understand verythings in VB6 programming is why i'm felling strange)
these section can be more updated, or someone can give me some advices?
thanks

[joaquim]

heres my groupproject.
enter in Groupproject file.
in groupproject see the teste form and on it click in Sprite1 control.
here click in cutom property, in IDE proeprty window... has you will see the VB6 will crashes(use CTRL+ALT+DELETE and select the right process(VB6.exe) and close it)
how these problem happens: i just update the ActualSubImage property to be persistence property, and now the problem is here
confuse, but it's true.
anotherthing the right property page that gives the error is the Strips porperty page.
please anyone try to test and help me on these.....
i don't understand why these bug
thanks

[joaquim]

by some reason these sub:

Private Sub PropertyPage_SelectionChanged()
    Static a As Boolean
    If a = True Then Exit Sub
    txtHeight.Text = SelectedControls(0).StripsHeight
    txtWidth.Text = SelectedControls(0).StripsWidth
    txtPosX.Text = SelectedControls(0).StripsLeft
    txtPosY.Text = SelectedControls(0).StripsTop
    txtImagensLinha = SelectedControls(0).StripsImagesLine
    txtImagensColuna = SelectedControls(0).StripsImagesColumn
    txtSeparaçãoHorizontal.Text = SelectedControls(0).StripsSeparationHorizontal
    txtSeparaçãoVertical.Text = SelectedControls(0).StripsSeparationVertical
    If SelectedControls(0).StripsActivate = True Then
        chkActivarStrips.Value = 1
        SelectedControls(0).ActualSubImage = 1
    Else
        chkActivarStrips.Value = 0
        SelectedControls(0).ActualSubImage = 0
    End If
    If (UCase(SelectedControls(0).FileName) Like "*.ANI" Or UCase(SelectedControls(0).FileName) Like "*.CUR") Then
        picVisualizar.Picture = SelectedControls(0).Img
    Else
        picVisualizar.Picture = LoadPicture(SelectedControls(0).FileName)
    End If
    Changed = False
    a = True
End Sub

in Strips Property page was in loop.. i don't know why. i see these by puting 1 message box on it.
and for resolve the problem, i create the a variable. now i don't have the problem
but i continue with 1 question:
why these sub is in loop? is these possible?
thanks

[joaquim]

finally i found the real problem

Private Sub PropertyPage_SelectionChanged()
    txtHeight.Text = SelectedControls(0).StripsHeight
    txtWidth.Text = SelectedControls(0).StripsWidth
    txtPosX.Text = SelectedControls(0).StripsLeft
    txtPosY.Text = SelectedControls(0).StripsTop
    txtImagensLinha = SelectedControls(0).StripsImagesLine
    txtImagensColuna = SelectedControls(0).StripsImagesColumn
    txtSeparaçãoHorizontal.Text = SelectedControls(0).StripsSeparationHorizontal
    txtSeparaçãoVertical.Text = SelectedControls(0).StripsSeparationVertical
    If SelectedControls(0).StripsActivate = True Then
        chkActivarStrips.Value = 1
    Else
        chkActivarStrips.Value = 0
    End If
    If (UCase(SelectedControls(0).FileName) Like "*.ANI" Or UCase(SelectedControls(0).FileName) Like "*.CUR") Then
        picVisualizar.Picture = SelectedControls(0).Img
    Else
        picVisualizar.Picture = LoadPicture(SelectedControls(0).FileName)
    End If
    Changed = False
End Sub

see the code and forgot the a variable. i found 2 lines that i coundn't put here:

SelectedControls(0).ActualSubImage = 1

and

SelectedControls(0).ActualSubImage = 0.
because the sub is only for read values, and by mistache i put these 2 lines... and only now i sod the problem.
sorry and thanks

[dee-u]

Since this is resolved then you can mark it as such. =)

[RobDog888]

Yes, SelectionChanged event to read your controls properties into your property page and ApplyChanges to write/update your controls properties that you had set.

[joaquim]

Yes, SelectionChanged event to read your controls properties into your property page and ApplyChanges to write/update your controls properties that you had set.

the problem is resolved, but tell me, if you know, why that infinit loop happen?
thanks