[RESOLVED] About these procedure
i'm using Visual Basic 6 and i'm building a Property page for Strips files, but one procedure is ignored and i don't know why...
i have 2 picturebox: picVisualizar(where is the original image) and picShow for see the subimages with a timer and i have a shape(shpSubImagem) for select the subimages...
the procedure is these:
Code:
Private Sub UpgradeSubimages()
Dim i As Long
Dim y As Long
Dim x As Long
If shpSubImagem.Count > 1 Then
For i = 1 To shpSubImagem.Count - 1
Unload shpSubImagem(i)
Next i
End If
i = 1
For y = 1 To CLng(txtImagensLinha.Text) 'Line Images
For x = 1 To CLng(txtImagensColuna.Text) 'Column Images
Load shpSubImagem(i)
shpSubImagem(i).Visible = True
shpSubImagem(i).Left = CLng(txtPosX.Text) + IFF(x > 1, (CLng(txtHeight.Text) + CLng(txtSeparaçãoHorizontal.Text)) * (x - 1), 0)
shpSubImagem(i).Top = CLng(txtPosY.Text) + IFF(y > 1, (CLng(txtWidth.Text) + CLng(txtSeparaçãoVertical.Text)) * (y - 1), 0)
shpSubImagem(i).Height = CLng(txtHeight.Text)
shpSubImagem(i).Width = CLng(txtWidth.Text)
i = i + 1
Next x
Next y
End Sub
can anyone help me?
thanks
Re: About these procedure
What do you mean when you say "but one procedure is ignored"?
Re: About these procedure
Quote:
Originally Posted by MartinLiss
What do you mean when you say "but one procedure is ignored"?
that procedure that i put is ignored and i don't know why... i said is ignored, because before it wasn't...
i put my project here... the problem is in Strips property page... what i what is create the subimages to see the subimages that i need... same words hare in portuguese(is my language), but if you need translation a will give you...
in these property page there is a command butto for create the shapes, but don't create and i don't know why...
but before you click in button, you must change the textboxes by numbers...
because is here that is need the values for create the shapes...
thanks
Re: [RESOLVED] About these procedure
without know i put big numbers... now is working.... thanks and i'm sorry..