Simple is great !

Senin, 18 Mei 2015

Contoh Code Tombol Bersih dan Keluar Pada Visual Basic 6.0

Disini saya akan sedikit membagikan script tombol bersih dan keluar pada visual basic, kalau cuman disimpan dilaptop kan sayang. Langsung saja yuuuk..

Code bersih
Private Sub Cmdbersih_Click()
Cmbtype.Text = ""
List1.Clear
Txthrg.Text = ""
Txtsuba.Text = ""
Txtumuk.Text = ""
Txthutang.Text = ""
Txthutbu.Text = ""
Txtang.Text = ""
Txttothut.Text = ""

Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub

Untuk memberikan code bersih, double klik tombol bersih lalu masukkan code bersihnya seperti ini


Code keluar
Private Sub Cmdkeluar_Click()
Q = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi")
If Q = vbOK Then
End
End If
End Sub

 Untuk memberikan code keluar, double klik tombol keluar lalu masukkan code keluar seperti ini


---SELESAI---

0 komentar:

Posting Komentar

Popular Posts

Total Tayangan Halaman

Befira. Diberdayakan oleh Blogger.