Dari Masino Sinaga Part 1

'Deskripsi: Mengisi textbox di form yang duluan tampil ke layar
'           dari textbox yang muncul di form yang muncul belakangan
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Tanggal  : Selasa, 7 Oktober 2008
'Persiapan: 1. Buat satu project standard exe dengan 2 Form.
'           2. Di Form1, tambahkan 1 TextBox dan 1 CommandButton.
'              TextBox di Form1 buat sebagai control array, dengan cara
'              meng-copy-paste ke Form1 dan memilih Yes jika ada
'              pertanyaan. Lakukan sekali lagi, sehingga kini di atas Form1
'              ada 3 TextBox; masing-masing namanya: Text1(0),
'              Text1(1), dan Text1(2).
'           3. Rename tombol Command1 di Form1 menjadi cmdBrowse,
'              lalu ganti Caption tombol Command1 menjadi "Browse".
'           4. Di Form2, tambahkan 3 TextBox dan 1 CommandButton.
'              Ketiga TextBox di Form2 tidak usah dibuat control array,
'              sehingga nama masing-masing: Text1, Text2, dan Text3
'           5. Copy-kan coding berikut ke masing-masing Form
'-----------------------------------------------------------------------

'--- Batas awal code di Form1 ---

'Ketika user menekan atau mengklik tombol Browse di Form1,
'maka data di Form1 akan memiliki acuan ke TextBox di Form2
'sekaligus menampilkan Form2 sebagai form referensi bagi Form1.
Private Sub cmdBrowse_Click()

'Perhatikan code di bawah ini!
'txtA, txtB, dan txtC di Form2 diset nilainya dengan
'Text1(0), Text1(1), dan Text1(2) yang terdapat di Form1
'Syaratnya: txtA, txtB, dan txtB harus sudah dideklarasikan
'terlebih dulu di Form2 (lihat code selanjutnya di Form2)
With Form2
Set .txtA = Text1(0)
Set .txtB = Text1(1)
Set .txtC = Text1(2)

'Jangan lupa, tampilkan Form2 sebagai vbModal
.Show 1  '<--- menampilkan Form2 sebagai vbModal   End With  End Sub '--- Batas akhir code di Form1 ---   '--- Batas awal code di Form2 ---  'Deklarasikan variabel bertipe TextBox, 'untuk merefer data di Form2 ke Form1 Public txtA As TextBox Public txtB As TextBox Public txtC As TextBox 'Ketika user mengklik tombol "Select" di Form2, 'maka data yang terdapat di Text1, Text2, dan Text3 'pada Form2 akan mengisi textbox di Form1; 'masing-masing pada Text1(0), Text1(1), dan Text1(2) Private Sub cmdSelect_Click()  txtA.Text = Text1.Text  txtB.Text = Text2.Text  txtC.Text = Text3.Text   'Setelah data dikaitkan ke Form1,  'jangan lupa tutup Form2 ini  Unload Me  End Sub  Private Sub Form_Load()   'Ini hanya untuk demo saja. Anda bisa  'menampilkan data di ComboBox yang  'memungkinkan user memilih data referensi  'yang terdapat di Form2  Text1.Text = "Field pertama"  Text2.Text = "Field kedua"  Text3.Text = "Field ketiga"  End Sub  'Yang ini jangan lupa! Selalu bebaskan memory 'yang digunakan Form2 saat Form2 ditutup Private Sub Form_Unload(Cancel As Integer)  Set Form2 = Nothing End Sub '--- Batas akhir code di Form2 ---