??? MDI ?????? ??????? ?? ??? Visual Basic .NET ?? Visual Basic 2005 ??? ????????? ??? ????? ?? ??? ???? ????

????? ?? ???? ????

Visual Basic .NET ?? Visual Basic 2005 ?? ????? ?? ?? ????? Windows ????????? ?? ?????

1. ??? ??? Visual Basic .NET ?? Visual Basic 2005 Windows ????????? ?????? Form1 ???????? ??? ?? ???? ??..
   
   ???:??? Visual Basic 2005 ??? ????????? ???? ?? ???? ???? ?????? ??? ?? Visual Basic 2005 ??? Form1 ??? ?? ?? ??? ??????? ?????, ???? ??? ???? ??? ?? ??? ??? Form1.vb ????? ?? Form1.Designer.vb ????? ?????? ??? ?? ?? ???????? ??? ?? ????? ?? ??? Windows ??????? ??????? ????? ????? ?????? Form1 ?? ??????????? ?? ?? ??? ??????? ??? ??????? ???? ?? ???? ?? ??????? designer emitted ??? ?? ???? ??? ?? ??? interspersed ?? ????? ???
   
   Visual Basic 2005 ?? ?? ???? ????????????? ?? ???? ??? ???? ??????? ?? ??? ????? Microsoft ??? ???? ?? ????:
   (vs.80) http://msdn2.Microsoft.com/en-us/library/ms379584 .aspx (http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx)
   ????? ???? ?? Windows ??????? ??????? ?? ???? ??? ???? ??????? ?? ??? ????? Microsoft ??? ???? ?? ????:
   HTTP://msdn2.Microsoft.com/en-us/library/ms171843.aspx (http://msdn2.microsoft.com/en-us/library/ms171843.aspx)
2. ??????? ?? ????? ???? ?? ???? ???, ???????????, ?? ??? ??????? ???????????? ?? ??? ??????
3. ??? ????BackColor?????? (???? ??? ?? ??? ???LightBlue).
4. ??? ????IsMDIContainer???? ?? ??? ???True. ??? ??? ?? ??? ??????? ?? ????????? ??? ????? ?? ??????????? ????????????????? ???? ??? ??? ??? ???? ?? ??? ???
5. ??? ????WindowState???? ?? ??? ?????? ???? ???.
6. ???? ??? ????? ??? ????? ?? ??? ??????? ?? ???-????? ?????
7. ??????? ??? ????? ??? ?????????? ????????? ??????:

   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. ????? ????????????????? ??,Windows ??????? ?????.
9. ???????? ??? ??????? ????Form2.VB?? ????-????? ????, ?? ???? ????????.
10. ????????? ?? ????? ?? ??? F5 ??????

????? ?? ???? ????