[RESOLVED] these message is for hack

[joaquim]

hello hack i'm using visual basic 6. i'm trying create a sprite control. the control is working, but i found 1 error:
-in strips property page i don't hunderstand, when i recive the values, why the apply command is enable. and when i close the form teste the project give me a error. i don't hunderstand why these error.
i will give you the project.
the other problem is that i need that the usercontrol and picanimaton array recive the images with a scalemode=pixel(both).
thanks
PS: pelease tell me if i don't explain well.
thanks

[Hack]

I can't open .rar files. Do you have winzip?

[joaquim]

I can't open .rar files. Do you have winzip?

i'm sorry but i can't part the zip file. the zip file size is 780Kbs. and i know that these forum limit size is 250kbs.
i'm sorry and thanks

[joaquim]

hello again. how are you?
i have a property page with these procedures(there is more code, but i think that the problem is here):

Private Sub PropertyPage_ApplyChanges()
    SelectedControls(0).StripsHeight = CLng(txtHeight.Text)
    SelectedControls(0).StripsWidth = CLng(txtWidth.Text)
    SelectedControls(0).StripsLeft = CLng(txtPosX.Text)
    SelectedControls(0).StripsTop = CLng(txtPosY.Text)
    SelectedControls(0).StripsImagesLine = CLng(txtImagensLinha)
    SelectedControls(0).StripsImagesColumn = CLng(txtImagensColuna)
    SelectedControls(0).StripsSeparationHorizontal = CLng(txtSeparaçãoHorizontal.Text)
    SelectedControls(0).StripsSeparationVertical = CLng(txtSeparaçãoVertical.Text)
    SelectedControls(0).TotalSubImage = shpSubImage.Count - 1
    SelectedControls(0).StripsActivate = chkActivarStrips.Value
    If chkActivarStrips.Value = 1 Then
        SelectedControls(0).ActualSubImage = 1
    Else
        SelectedControls(0).ActualSubImage = 0
    End If
End Sub

Private Sub PropertyPage_SelectionChanged()
    picVisualizar.Picture = LoadPicture(SelectedControls(0).FileName)
    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
End Sub

these code works fine(at least i think), i recive the values in right places. but after i recive the values, why the apply command is enable(without change any values, only recive)?
thanks

[joaquim]

the property page problem, i resolve. but i have a question:
i have the usercontrol and the picanimation array scalemode whit pixel, but i don't why the usercontrol size is more little than i wanted and i can't see the 1st image in project mode.
can you help me?
thanks

[joaquim]

i resolve every problems. thanks for everything.