CRIAR SHAPES EM TEMPO DE EXECUCAO

XAVIER 22/12/2012 20:01:58
#416342
Olá pessoal !

Como criar shapes em tempo de execução e movê-los, rotacioná-los individualmente?
Peciso somente retângulos, onde eu defino em um textbox as dimensões e cria no form.

Desde já agradeço.
GANDA.NICK 27/12/2012 11:03:56
#416460 Resposta escolhida
Beleza

Tem sim, veja este exemplo:

Private Sub Command1_Click()
    Dim ctlName As Control
    Set ctlName = Form1.Controls.Add([Ô]VB.Shape[Ô], [Ô]Shape1[Ô], Form1)
    ctlName.Visible = True
    ctlName.Top = 150
    ctlName.Left = 150
    ctlName.Height = 300
    ctlName.Width = 600
End Sub


Agora adapte aí ao seu jeito
XAVIER 27/12/2012 11:06:24
#416461
Obrigadão companheiro !
Tópico encerrado , respostas não são mais permitidas
Voltar