Pages

Kamis, 18 Juni 2009

Mengatur Urutan Form Yang Tampil

'Deskripsi: Mengatur urutan form yang tampil ke layar monitor Anda.
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Persiapan: 1. Buat 1 Project baru dengan 3 Form.
'           2. Pada Form1, tambahkan 1 Commandbutton.
'           3. Copy-kan coding berikut ke dalam editor Form1 saja.
'----------------------------------------------------------------------

Private Sub Command1_Click()
If Command1.Caption = "Form2" Then
   Command1.Caption = "Form3"
   Form2.ZOrder 0 'Form2 di atas
   Form3.ZOrder 1 'Form3 di bawah
Else
   Command1.Caption = "Form2"
   Form3.ZOrder 0 'Form3 di atas
   Form2.ZOrder 1 'Form2 di bawah
End If
End Sub

Private Sub Form_Load()
Form2.Show
Form3.Show
Me.Move 6000, 5000
Command1.Caption = "Form2"
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, _
                           UnloadMode As Integer)
End
End Sub

0 comments: