Usuário com melhor resposta
Abrir Formulários em um formulário principal

Pergunta
-
Respostas
-
Aqui amigo, tente isso:
Dim novafrm As New Form2() 'nome da form novafrm.TopLevel = False If Panel1.Controls.Count <> 0 Then 'se conter mais de 0 Panel1.Controls.RemoveAt(0) 'remove End If Panel1.Controls.Add(novafrm) 'adiciona form novafrm.Show() 'abre form
Se a ajuda lhe foi útil, marque como resposta! — Windows Form Application — fb.com/efox.dev
- Sugerido como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 17:30
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 18:21
-
Jarbas,
Será que você não está tentando algo como o MDIForm?
http://www.macoratti.net/vbn_mdi1.htm
Natan
- Sugerido como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 17:30
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 18:21
Todas as Respostas
-
Jarbas,
Será que você não está tentando algo como o MDIForm?
http://www.macoratti.net/vbn_mdi1.htm
Natan
- Sugerido como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 17:30
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 18:21
-
Aqui amigo, tente isso:
Dim novafrm As New Form2() 'nome da form novafrm.TopLevel = False If Panel1.Controls.Count <> 0 Then 'se conter mais de 0 Panel1.Controls.RemoveAt(0) 'remove End If Panel1.Controls.Add(novafrm) 'adiciona form novafrm.Show() 'abre form
Se a ajuda lhe foi útil, marque como resposta! — Windows Form Application — fb.com/efox.dev
- Sugerido como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 17:30
- Marcado como Resposta Ricardo Barbosa Cortes terça-feira, 16 de setembro de 2014 18:21
-
Aqui amigo, tente isso:
Boa noite amigo, sou iniciante no vb, você saberia me dizer se tem como colocar esse código dentro de uma função, para que eu não precise ficar repetindo esse mesmo código em todos os botões da minha aplicação
Dim novafrm As New Form2() 'nome da form novafrm.TopLevel = False If Panel1.Controls.Count <> 0 Then 'se conter mais de 0 Panel1.Controls.RemoveAt(0) 'remove End If Panel1.Controls.Add(novafrm) 'adiciona form novafrm.Show() 'abre form
Se a ajuda lhe foi útil, marque como resposta! — Windows Form Application — fb.com/efox.dev