Trabalhando com Formulários SDI / MDI

Tipo Projeto:	Aplicação Windows
Nome do Projeto:	menus
Local do Projeto:	c:\aulasvbnet
Criar subDiretorio do projeto	Marcado
Criar Diretorio para os fontes	Desmarcado

Exemplo: vamos criar um exemplo com formularios MDI / SDI

Crie o projeto acima e coloque os seguintes objetos no mesmo:

Objetos	Propriedade = Valor
Form	Name = frmPrincipal Text = Formulários MDI / SDI IsMdiContainer = True
MainMenu	Name = mnuPrincipal

 

1) Clique na barra de menu em "Type Here" (Clique aqui)
2) Escreva ai &Arquivo, ao fazer isso você verá que duas opções se abrirão (horizontal e Vertical)
3) Em baixo do ítem arquivo, crie um menu com o seguinte texto &Informações
4) Propriedade do item Informações: Nome: mnuInformacoes
5) Crie uma outra opção de menu mais abaixo com o item &Sair e nome mnuSair

Agora vamos criar as ações do nosso menu principal

1) Clique em &Sair e escolha o evento ao Clicar (Raiozinho), coloque lá o seguinte código:

me.Close()

Compile e teste o seu programa. Veja exemplo:

Vamos continuar:

Incluindo mais um formulário em nosso programa:

1) Nas propriedades do projeto com o botão contrário do mouse escolha Adicionar, Novo / Arquivo
2) Escolha categoria VB / Formulário, clique no botão Criar

Observação O nome usado para criar o formulário é que vai ser usado para chamar o objeto mdi filho, portanto defina o nome certo, tipo: frmCadastroClientes, pois o Sharpdevelop, até a versão 1.1.0 (1964) você não permite mudar o nome do formulário, em tempo de desenho do mesmo.

No novo formulário criado coloque os seguintes objetos:

Objetos	Propriedade = Valor
Form	Name = form1 (nao mude) Text = Formulários de Informações
Label	Text = Curso de VB.NET formate o texto e as cores a seu gosto
Label	Text = Data:
Label	Text = Hora
Label	Text = Name=lblData
Label	Text = Name = lblHora
Button	Name = btnSair Text=&Sair

1) Coloque no evento Load do Form1 o seguite código:

Dim dtdata As Date = datetime.Today
Dim dthora As Date = datetime.Now

Me.lblData.Text = dtdata.ToString("dd/MM/yyyy") ' Experimente: ("dd/MM/yyyy")
Me.lblHora.Text= dthora.ToString("hh:mm:ss")

2) Código do Evento clique do botão btnSair

Me.Close()

3) Agora mude para o formulário principal e no evento click do ítem Informações do Menu principal coloque o seguinte código para chamar o formulário filho.

Dim oform1 As New form1() ' cria um novo objeto form baseado no form criado

oform1.MdiParent=Me
oform1.Show()

 

Teste seu exemplo.

Dicas : Faça os exercícios propostos.

© 1999-2009 POWER Informática - Rua João Manoel, 912 - Centro - Santana do Livramento - RS
Fones: (55) 3 2 4 2 - 5 4 2 7 / (55) 9 9 9 4 - 8 7 8 2
Serviços Manutenção Hardware, programação, páginas Web