• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

NuGuN

[VB6] Forms & Multiplas Instâncias

3 mensagens neste tópico

Boas...

Para começar, quem não sabe o que significa multiplas instâncias de uma form, quanse todos já devem ter reparado que em programas tipo o Messenger consegue-se ter várias janelas abertas ao mesmo tempo e todas elas identicas, diferindo apenas algumas frases, umas das outras. Falando em VB6, obviamente que não se iria adicionar ao projecto todas aquelas forms iguais. Então o que se faz é criar uma única form e em seguida criar várias instâncias dessa mesma form em run-time. Assim, apartir de uma só form, poderemos criar um grande número de forms iguais.

Option Explicit

'Variável que contem as Forms
Dim NvForm() As New Form1

'Variável para controlo do número de forms carregadas
Public nPag As Integer

Private Sub cmdCriar_Click()

    'incrementa o número de forms criadas
    nPag = nPag + 1
    
    'Cria a nova Form
    ReDim Preserve NvForm(nPag)
    
    'Numera a nova Form
    NvForm(nPag).Caption = nPag
    
    'Mostra a nova Form
    NvForm(nPag).Show
    
    'Redimenciona o array novamente
    ReDim Preserve NvForm(nPag + 1) As New Form1

End Sub

Alguma dúvida, já sabem...

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Muito bacana o código acima.

Tenho um problema apenas. Para o que pretendo realizar, necessitaria usar um form como protótipo e as cópias geradas precisariam ter nomes diferentes.

Não tenho conseguido fazer isso.

Como faria para ter o mesmo form aberto ao mesmo tempo com nomes diferentes ?

Muito agradecido pela atenção

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora