Bagaimana mengubah warna latar belakang untuk bentuk orangtua MDI dalam Visual Basic.BERSIH atau pada Visual Basic 2005

Kembali ke atas

Membuat contoh aplikasi Windows dengan menggunakan Visual Basic.NET atau Visual Basic 2005

1. Buat baru Visual Basic.Aplikasi NET atau Visual Basic 2005 Windows. Form1 dibuat secara default.
   
   Catatan Kode harus berubah pada Visual Basic 2005. Jika Anda membuat bentuk baru bernama Form1 pada Visual Basic 2005, Anda memiliki file Form1.vb untuk kode Anda dan berkas Form1.Designer.vb yang berisi bagian yang secara otomatis. Windows Forms Designer menggunakan kata kunci parsial untuk membagi pelaksanaan Form1 menjadi dua file terpisah. Perilaku ini mencegah kode dipancarkan desainer yang diselingi dengan kode Anda.
   
   Untuk informasi lebih lanjut tentang tambahan bahasa Visual Basic 2005 baru, kunjungi Web site Microsoft berikut:
   .aspx http://msdn2.Microsoft.com/en-us/library/ms379584 (vs.80) (http://msdn2.microsoft.com/en-us/library/ms379584(vs.80).aspx)
   Untuk informasi lebih lanjut tentang kelas parsial dan Windows Forms Designer, kunjungi Web site Microsoft berikut:
   http://msdn2.Microsoft.com/en-us/library/ms171843.aspx (http://msdn2.microsoft.com/en-us/library/ms171843.aspx)
2. Klik bentuk, dan kemudian, pada Lihat menu, pilih Properti jendela untuk melihat properti untuk bentuk.
3. Menetapkan BackColor properti untuk warna yang Anda inginkan (seperti LightBlue).
4. Menetapkan IsMDIContainer properti untuk Benar. Perhatikan bahwa warna latar belakang dalam bentuk perubahan warna yang Aplikasi latar belakang warna diatur dalam Control Panel.
5. Menetapkan WindowState properti untuk Dimaksimalkan.
6. Klik dua kali bentuk untuk melihat jendela kode.
7. Paste kode berikut ke dalam bentuk Beban event handler:

   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. Pada Project menu, klik Tambahkan Windows formulir.
9. Menerima nama standar Form2.VB, lalu klik Terbuka.
10. Tekan F5 untuk menjalankan aplikasi.

Kembali ke atas