MultiPage Kontrol

Gunakan MultiPage Control untuk bekerja dengan banyak informasi yang dapat diurutkan ke beberapa kategori. 

MultiPage Control  yang terdiri dari satu atau lebih halaman benda yang masing-masing berisi kumpulan kontrol. 

Kamu bisa mengatur halaman aktif pemrograman dengan menyetel nilai properti MultiPage Control . 

Bagaimana Mengontrol MultiPage Control Pemrograman ?

Untuk menambahkan MultiPage Control dan kendalikan dengan menggunakan makro, ikuti langkah berikut:

1. Memulai Excel, dan kemudian membuka buku kerja kosong baru.
2. Pada Tool Menu, Klik Macro, lalu klik Visual Basic Editor.
3. Pada Masuk ke Menu, klik UserForm untuk memasukkan UserForm di kerja Anda.
4. Tambahkan MultiPage Control untuk UserForm.
5. Tambahkan sebuah Label Control untuk Page1 pada MultiPage Control.
6. Menambah TextBox Control untuk Page1 pada MultiPage Control.
7. Pada MultiPage Control, klik Page2, kemudian ulangi langkah 5 dan 6 untuk menambahkan sebuah Label Control dan TextBox Control.
8. klik ganda MultiPage Control untuk membuka Windows Code untuk MultiPage Control.
9. Di jendela kode, ketik kode berikut untuk MultiPage1 perubahan acara:

Private Sub MultiPage1_Change() 

Select Case MultiPage1.Value 

 ' If activating Page1... 

Case 0

       Label1.Caption = TextBox2.Text 

       TextBox1.Text = "" 

 ' If activating Page2... 

Case 1

        Label2.Caption = TextBox1.Text 

        TextBox2.Text = "" 

End Select 

End Sub

   10  Di Windows Code, ketik kode berikut untuk acara UserForm menginisialisasi :

Private Sub UserForm_Initialize()

' Force Page1 to be active when UserForm is displayed.

MultiPage1.Value = 0

Label1.Caption = ""

End Sub

   11. Pada Menjalankan Menu, klik Menjalankan Sub UserForm.

Dalam kontrol TextBox di Page1, ketik Tes. Ketika Anda Klik Page2 tab, TextBox2 dibersihkan, dan keterangan dari Label2 perubahan ke entri yang Anda buat di TextBox1 di Page1 ("Test").

Membuat Interface Wizard Menggunakan Kontrol MultiPage

Ketika tugas yang memerlukan beberapa langkah-langkah bertahap, antarmuka wizard dapat menjadi sangat efektif. Anda dapat menggunakan MultiPage Control untuk membuat Interface Wizard bukan menggunakan beberapa UserForms.

Contoh ini memanipulasi MultiPage Control yang memiliki tiga halaman. Prosedur yang melekat pada Inisialisasi UserForm adalah menonaktifkan Page2 dan Page3, dan Page1 MultiPage Control yang aktif.

Catatan : 

Ketika Anda mengindeks halaman MultiPage kontrol dengan menggunakan kumpulan halaman , halaman pertama dalam koleksi adalah halaman nol. Ini prosedur juga menetapkan judul CommandButtonkontrol dan menonaktifkan <> tombol tekan.

Prosedur yang ditetapkan untuk Klik CommandButton1 Control fungsi <> tombol tekan. Prosedur yang ditetapkan untuk Klik acara CommandButton2 kontrol fungsi berikutnya mengatakan tombol tekan.

Untuk membuat antarmuka wizard dengan menggunakan kontrol MultiPage , ikuti langkah berikut:

1. Memulai Excel, dan kemudian membuka Workbook kosong yang baru.
2. Pada Menu Developer, klik Visual Basic Editor.
3. Pada Menu Insert di Visual Basic Editor, klik UserForm untuk memasukkan UserForm di Visual Basic Editor.
4. Tambahkan MultiPage Control pada UserForm.
5. Klik kanan-atas Tab Page1, dan kemudian klik New Page untuk menambahkan Page3 ke MultiPage Control.
6. Tambahkan CommandButton Control ke atas UserForm di luar MultiPage control. Ulangi langkah ini untuk menambahkan CommandButton Control ke atas kedua UserForm.
7. klik ganda UserForm untuk membuka kode jendela untuk UserForm.
8. Di jendela kode, ketik kode berikut untuk acara UserForm menginisialisasi :

Private Sub UserForm_Initialize()

With MultiPage1

' The next 2 lines disable Page2 & Page3.

   .Pages(1).Enabled = False

   .Pages(2).Enabled = False

' Make Page1 the active page.

   .Value = 0

End With

' Set the caption on the CommandButtons.

CommandButton1.Caption = "<Back"

CommandButton1.Enabled = False

CommandButton2.Caption = "Next>"

End Sub

' Procedure for the "<Back" button

Private Sub CommandButton1_Click()

Select Case MultiPage1.Value

Case 1                                                              ' If Page2 is active...

With MultiPage1

   .Pages(0).Enabled = True                                ' Enable Page1.

   .Value = MultiPage1.Value - 1                          ' Move back 1 page.

  .Pages(1).Enabled = False                                ' Disable Page2.

End With

CommandButton1.Enabled = False                     ' Disable Back button.

Case 2                                                               ' If Page3 is active...

With MultiPage1

   .Pages(1).Enabled = True                                ' Enable Page2.

   .Value = MultiPage1.Value - 1                          ' Move back 1 page.

   .Pages(2).Enabled = False                               ' Disable Page3.

CommandButton2.Caption = "Next>"

End With

End Select

End Sub

' Procedure for the "Next>" button

Private Sub CommandButton2_Click()

Select Case MultiPage1.Value

Case 0                                                               ' If Page1 is active...

With MultiPage1

     .Value = MultiPage1.Value + 1                        ' Move forward 1 page.

     .Pages(1).Enabled = True                               ' Enable Page2.

    .Pages(0).Enabled = False                               ' Disable Page1.

End With

CommandButton1.Enabled = True                        ' Enable Back button.

Case 1                                                                ' If Page2 is active...

With MultiPage1

     .Value = MultiPage1.Value + 1                         ' Move forward 1 page.

     .Pages(2).Enabled = True                                ' Enable Page3.

     .Pages(1).Enabled = False                               ' Disable Page2.

End With

CommandButton2.Caption = "Finish"                  ' Change Next button to Finish.

Case 2                                                                ' If Page3 is active...

     MsgBox "Finished!"                                         ' User is Finished.

     Unload Me                                                     ' Unload the UserForm.

End Select

End Sub 

Pada Menu Run, klik Run Sub UserForm.

Ketika Anda mengklik Berikutnya mengatakan Page2 diaktifkan dan The <> tombol tekan akan tersedia. Ketika Anda mengklik Berikutnya mengatakan kedua kalinya, Page3 diaktifkan dan keterangan untuk CommandButton2 perubahan "Selesai".

http://anisahharahap55.blogspot.com/search?q=Kontrol+multipage

Bagikan Artikel ini