Presentasi Interaktif Menyimpan dan Menampilkan Value TextBox

Pada postingan yang lalu, saya menunjukkan bagaimana menggunakan ActiveX Text Box dalam presentasi. Kali ini, saya akan menunjukkan bagaimana value atau teks yang dimasukkan pada Text Box di slide pertama dapat digunakan pada slide lainnya.

1. Siapkan slide dengan ActiveX TextBox  (lihat pada postingan saya yang lalu)

2. Simpan Text yang Dimasukkan
Klik atau pilih kotak TextBox, pada tab menu Developer diatas, pilih menu View Code. Maka akan muncul Visual Basic Editor. Masukkan baris perintah Visual Basic, seperti berikut:

Private Sub TextBox1_Change()
TextBox1.Value = TextBox1.Text

End Sub

Perintah diatas digunakan pada saat TextBox1 diubah isinya, maka TextBox1.Value diisi dengan TextBox1.Text yang dimasukkan

3. Menampilkan Text yang Disimpan menggunakan Label
Buat slide lain. Klik atau pilih ActiveX Label dan buatlah kotak label pada slide yang baru. Klik kotak label dan pilih menu View Code. Masukkan baris perintah Visual Basic berikut pada VB Editor:

Private Sub Label1_Click()
Label1.Caption = Slide1.TextBox1.Value

End Sub

Perintah diatas digunakan pada saat kotak Label di klik oleh pengguna maka Label akan menampilkan Caption sesuai dengan TextBox1.Value yang disimpan pada Slide pertama.

Bagaimana jika TextBox dibuat pada Slide ke-2 atau 3? Ya tentu saja, nomor slide perlu diganti sesuai dengan nomor slide tempat TextBox dibuat.
Semoga postingan ini membantu.