Desenhar Shape numa picture em tempo de execucao

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Desenhar Shape numa picture em tempo de execucao

rdeletric

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 05/01/2013 12:19 hs

Ola Amigos
Alguem ai sabe como desenhar Shape numa picture em tempo de execucao?
desde ja obrigado...

rdeletric

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 07/01/2013 18:46 hs

ola pessao consegui fazer, passo a vcs:
crie um shape com index = 0

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

Treze
não registrado

ENUNCIADA !

Postada em 07/01/2013 19:11 hs

você pode usar o load também, porém ja digo da maneira acima você nem precisa criar shape com index 0

se for criar dentro da picture mude apenas isto

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