CRIAR SHAPE DENTRO DE PICTUREBOX EM RUNTIME

RICATOM 26/09/2009 10:32:45
#323705
Bom dia colegas

Estou usando o codigo abaixo para criar um picturebox e um shape através de controles já existentes (array)

  
Private Sub Command1_Click()
    With Me.PicTab
        Load Me.PicTab(.UBound + 1)  [ô]Cria e Carrega + 1
        Me.PicTab(.UBound).Move Me.PicTab(.UBound - 1).Width + 100, Me.PicTab(.UBound - 1).Top
        Me.PicTab(.UBound).Visible = True  [ô]Mostra
    End With
    [ô]
    With Me.ShapeTab
        Load Me.ShapeTab(.UBound + 1)    [ô]Cria e Carrega + 1
        Me.ShapeTab(.UBound).Move Me.ShapeTab(.UBound - 1).Width + 100, Me.ShapeTab(.UBound - 1).Top
        Me.ShapeTab(.UBound).Visible = True  [ô]Mostra
    End With
End Sub


Só que preciso que o shape recem criado fique dentro da picture recem criada, mas ele fica junto com o outro shape na picture anterior.

Se alguem puder ajudar fico grato.

Abs
ASHKATCHUP 26/09/2009 11:43:04
#323711 Resposta escolhida
Você tem como postar um projeto que faz isso?
ELUCIMAR 26/09/2009 22:18:56
#323761
Private Sub CmdCriarControles_Click()
Dim Shp As Shape
Dim Pic As PictureBox

Set Pic = Me.Controls.Add([Ô]Vb.Picturebox[Ô], [Ô]Pic1[Ô])
With Pic
.Visible = True
.Top = 0
.Left = 0
.Width = 2000
.Height = 2000
End With

Set Shp = Me.Controls.Add([Ô]Vb.Shape[Ô], [Ô]Shp1[Ô])
With Shp
.Visible = True
.Top = 0
.Left = 0
.Width = 200
.Height = 200
Set Shp.Container = Pic
End With
End Sub
RICATOM 28/09/2009 08:36:43
#323808
Citação:

ASHKATCHUP escreveu: Você tem como postar um projeto que faz isso?



O codigo é somente o que eu postei mesmo. Basta criar um picturebox, por exemplo, com index=0


ELUCIMAR

Colega, eu vi essa solução também, mas pelo que entendi, para poder [Ô]usar[Ô] o controle criado (com eventos como click, GotFocus, etc),tem que declarar por exemplo: [Ô]Private WithEvents cmdBotao2 As CommandButton[Ô], mas nao sei qtos controles serao criados, pode ser 1,5,20, etc

Abs
RICATOM 29/09/2009 09:15:52
#323924
Alguem?
IRENKO 29/09/2009 11:44:44
#323961
Bom não sei se é o pretendido por vc, mas vê se ajuda.
RICATOM 29/09/2009 13:14:58
#323966
IRENKO, obrigado pela ajuda, mas o problema é que não sei qtos controles serão criados, e para usar os eventos do controle recem-criado preciso declarar, por exemplo: Dim WithEvents Pic As PictureBox, para cada controle, ai esta o problema.
ASHKATCHUP 29/09/2009 13:28:53
#323969
Confere o anexo ae.
RICATOM 29/09/2009 13:43:13
#323973
ASHKATCHUP obrigado, era exatamente o que precisava.

Agradeço a todos que procuraram ajudar.

Abs.
Tópico encerrado , respostas não são mais permitidas
Voltar