CRIAR OBJETO EM TEMPO DE EXECUCAO

USUARIO.EXCLUIDOS 07/03/2004 16:36:32
#14269
Como faço para criar vários objetos, por exemplo Label, a partir de uma existente, em tempo de execução?
Ex.: num Form eu tenho um Label com o Caption="Elemento 0". Cada vez que eu dou um clic duplo no form ele cria outro label com o nome "Elemento 1,2,3,4..."
LCSD 07/03/2004 18:25:26
#14274 Resposta escolhida
João Luis

Defina um Label como Label1 com àndice =0, insira um CommandButton e utilize a rotina abaixo:

Private Sub Command1_Click()
Dim x As Integer

For x = 1 To 10

Load Label1(x)
Label1(x).Top = Label1(x - 1).Top + Label1(x - 1).Height + 10
Label1(x).Visible = True

Next
End Sub

Espero ter ajudado. Até Breve
[S25]
Tópico encerrado , respostas não são mais permitidas
Voltar