Fungsi tombol adalah untuk melakukan perintah eksekusi dalam suatu aplikasi atau program. Di dalam pemrograman visual basic 6.0 terdapat tools commandbutton yang dapat kita lakukan modivikasi sesuai keinginan pembuat program. Pada contoh dibawah ini, dengan memanfaatkan tombol commandbutton saya akan membuat text tombol berubah-ubah.
1. Pertama-tama bukalah Microsoft Visual Basic 6.0.
2. Buatlah form dan dan setinglah tampilan form seperti yang ada dalam gambar berikut ini :
3. Isilah Kodenya di View Code dengan code seperti berikut ini :
Option Explicit
Private Sub Command1_Click()
If Command1.Caption = "Simpan" Then
Command1.Caption = "Batal"
Else
Command1.Caption = "Simpan"
End If
End Sub
4. Jalankan aplikasi tersebut dengan menekan tombol keyboard F5, dan lakukan klik tombol Simpan maka secara otomatis text tombol simpan akan berubah menjadi Batal, dan ketika tombol Batal diklik maka secara otomatis text tombol batal akan berubah jadi Simpan begitu seterusnya.
Demikian tutorial singkat dan sangat sederhana ini, semoga dapat bermanfaat. Sampai jumpa ditutorial lainnya.
Terima kasih
By Blog Mas Fadholi
Makasih Pak.. Bermanfaat..
ReplyDeletemau nanya lagi pak... cara mengatasi data ganda pada datagrid gmna ya... mohon bantuannya... makasih.. :)
Terima kasih telah berkunjung di blog saya.
DeleteSebenarnya datagrid hanya berfungsi sebagai penampil data secara langsung dari database. Jadi, jika ada data yang ingin di tampilkan di datagrid langkah yang harus di lakukan adalah memfilter terlebih dahulu di bagian query-nya.
Gunakan fungsi ini pada query "SELECT DISTINCT nama_kolom FROM nama_tabel". Lalu tampilkan di datagrid.
Langkah terbaik jika ada data yang ganda yaitu sebaiknya lakukan cek data terlebih dahulu sebelum dilakukan insert data, apakah ada data yang sama. Dengan cara ini maka dijamin tidak ada data yang sama.
Semoga membantu.
terimakasih ilmunya pak,
ReplyDeletesaya mau bertanya jika masing masing tombol dengan perintah yang berbeda bagaimana contohnya pak?
terimakasih
Konsepnya sama gan dengan contoh diatas.
DeleteJika ada banyak tombol, tentunya masing-masing tombol mempunyai "name" yang berbeda2.
Misal: tombol 1 mempunyai "name" = Command1, tombol 2 mempunyai "name" = Command2, dst.
Kodingnya ada 2 nanti untuk eksekusi masing-masing tombol.
Option Explicit
'tombol 1 untuk perintah simpan
Private Sub Command1_Click()
Isi kode perintah simpan
End Sub
'tombol 2 untuk perintah hapus
Private Sub Command2_Click()
isi kode perintah hapus
End Sub
Kalau buat banyak command button yg bisa digelar seperti scroll bar gmn mas
ReplyDelete