Como alterar a cor de plano de fundo de um formulário de pai MDI no Visual Basic .NET ou no Visual Basic 2005

Voltar para o início

Criar um aplicativo do Windows exemplo usando o Visual Basic .NET ou Visual Basic 2005

1. Crie um novo aplicativo Visual Basic .NET ou Visual Basic 2005 Windows. O Form1 é criado por padrão.
   
   Observação O código deve ser alterado no Visual Basic 2005. Se você criar um novo formulário denominado Form1 no Visual Basic 2005, você tem um arquivo Form1.vb para seu código e um arquivo Form1.Designer.vb que contém a seção que é gerada automaticamente. Os Windows Forms Designer usa a palavra-chave partial para dividir a implementação de Form1 em dois arquivos separados. Esse comportamento impede que o código emitido designer sendo intercaladas com seu código.
   
   Para obter mais informações sobre os novos aprimoramentos linguagem Visual Basic 2005, visite o seguinte site:
   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 site:
   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 Exibir , selecione Properties Window para exibir as propriedades para o formulário.
3. Defina a propriedade BackColor como a cor que você deseja (como LightBlue ).
4. Defina a propriedade IsMDIContainer como True . Observe que a cor de plano de fundo do formulário é alterado para a cor que a cor de Fundo do aplicativo é definida como no painel de controle.
5. Defina a propriedade WindowState para maximizado .
6. Clique duas vezes o formulário para exibir sua janela de código.
7. Cole o seguinte código no manipulador de eventos Load do formulário:

   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 Project , clique em Add Windows Form .
9. Aceite o nome padrão Form2.vb e, em seguida, clique em Abrir .
10. Pressione F5 para executar o aplicativo.

Voltar para o início