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:
can anyone help me?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
thanks



Reply With Quote
