Como alterar a cor de fundo num formulário do principal MDI no Visual Basic .NET ou no Visual Basic 2005

Voltar ao topo

Criar uma aplicação do Windows exemplo utilizando o Visual Basic .NET ou Visual Basic 2005

1. Crie uma nova aplicação de Visual Basic .NET ou Visual Basic 2005 Windows. É criado o Form1 por predefinição.
   
   Nota Deve ser alterado o código do Visual Basic 2005. Se criar um novo formulário denominado Form1 do Visual Basic 2005, terá um ficheiro Form1.VB para o código e um ficheiro Form1.Designer.vb que contém a secção que é gerada automaticamente. Os Windows Forms Designer utiliza a palavra-chave parcial para dividir a implementação do Form1 em dois ficheiros separados. Este comportamento impede que código designer emite a ser intercalados com o código.
   
   Para obter mais informações sobre novos melhoramentos de idioma do Visual Basic 2005, visite o seguinte Web site da Microsoft:
   http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx (http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx)
   Para obter mais informações sobre classes parciais e o Windows Forms Designer, visite o seguinte Web site da Microsoft:
   http://msdn2.microsoft.com/en-us/library/ms171843.aspx (http://msdn2.microsoft.com/en-us/library/ms171843.aspx)
2. Clique no formulário e, em seguida, no menu Ver , seleccione a Janela de propriedades para visualizar as propriedades para o formulário.
3. Defina a propriedade cor de fundo para a cor que pretende (como LightBlue ).
4. Defina a propriedade IsMDIContainer como true . Tenha em atenção que a cor de fundo do formulário passa para a cor que a cor de Fundo da aplicação é definida como no painel de controlo.
5. Defina a propriedade propriedade WindowState maximizado .
6. Faça duplo clique no formulário para visualizar a janela de código.
7. Cole o código seguinte no processador de eventos do formulário carga :

   Dim ctl As Control
   Dim ctlMDI As MdiClient
   
   ' Loop through all of the form's controls looking
   ' for the control of type MdiClient.
   For Each ctl In Me.Controls
       Try
           ' Attempt to cast the control to type MdiClient.
           ctlMDI = CType(ctl, MdiClient)
   
           ' Set the BackColor of the MdiClient control.
           ctlMDI.BackColor = Me.BackColor
   
       Catch exc As InvalidCastException
           ' Catch and ignore the error if casting failed.
       End Try
   Next
   
   ' Display a child form to show this is still an MDI application.
   Dim frm As New Form2()
   frm.MdiParent = Me
   frm.Show()
   					

8. No menu projecto , clique em Adicionar formulário de Windows .
9. Aceite o nome predefinido Form2.vb e, em seguida, clique em Abrir .
10. Prima F5 para executar a aplicação.

Voltar ao topo