[RESOLVED] these message is for hack
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
Re: these message is for hack
I can't open .rar files. Do you have winzip?
Re: these message is for hack
Quote:
Originally Posted by Hack
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
Re: these message is for hack
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):
Code:
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
Re: these message is for hack
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
Re: these message is for hack
i resolve every problems. thanks for everything.