Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mateusbier

Problemas para abrir form dentro de um mdiParent

Mensagens Recomendadas

mateusbier

Olá senhores. Eu criei um projeto onde tenho um mdiParent. Quero abrir forms dentro dele, porém, quando abro um novo formulário, o design do mdiParent aparece nele.

Tem como resolver isso ?

vb01n.jpg

Isso que ocorre.

vb02.jpg

Editado por thoga31
Formatação do tópico

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
mateusbier

Apenas tenho esse código para abrir o form2. Sou iniciante no vb.

Form2.MdiParent = Me
    Form2.Show()

Editado por thoga31
GeSHi + formatação do post

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
NunoDinis

Dim abrir As Boolean = True
    For Each Formulario As Form In My.Application.OpenForms
	    If Formulario.Text = "Disciplinas" Then
		    abrir = False
		    Exit For
	    End If
    Next
    If abrir Then
	    Dim janela As New MostrarDisciplina
	    janela.MdiParent = Me
	    janela.Show()
    Else
	    For Each Formulario As Form In My.Application.OpenForms
		    If Formulario.Text = "Disciplinas" Then
			    Formulario.BringToFront()
		    End If
	    Next
    End If

Este código abre o formulário dentro de MDI, e caso o formulário já esteja aberta e escondida, traz-lo para a frente.


Estranha forma de vida que tem a capacidade de transformar comandos em mensagens de erro.

ndsotware.org

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
samesdavis

Outra sugestão seria dessa forma:

No evento clique do botão ou menustrip do mdiform, coloque

form2.show

No evento load do form2 coloque

MdiParent = Frm_MenuPrincipal

obs.: sendo que o nome "Frm_MenuPrincipal" é o nome do seu mdiform

Editado por samesdavis

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
prokton

Eu faço sempre assim:

No form mdiParent:

Public Class FrmPrincipal

Dim frmClientes As New FrmClientes()

Private Sub FrmPrincipal_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

frmClientes.MdiParent =Me

PrivateSub m_Clientes_Click(sender As System.Object, e As System.EventArgs) Handles m_Clientes.Click

frmClientes.Show()

frmClientes.BringToFront()

Depois no Form Child:

Private Sub FrmClientes_FormClosing(...)

e.Cancel = True

Hide()

Nunca fa

Partilhar esta mensagem


Ligação 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

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.