Setelah pusing nyari tutorial buat nampilin tanggal di combo box.akhirnya nemu juga. Buat penggemar Visual Basic 6. Sedot gan...
berikut layoout_nya :
berikut layoout_nya :
- secara manual : yaitu, klik kanan pada combobox, pilih Edit Items.
- dengan code script : Double Klik pada combobox, misalkan pada Jurusan, kita akan membuat 3 buat items, yaitu “Sistem Informasi, Sistem Komputer dan Management Komputer”. Ketikkan code berikut :
ComboBox1.Items.Add(“Sistem Komputer”)
ComboBox1.Items.Add(“Management Komputer”)
Membuat Script pada Tanggal Bulan dan Tahun :
1. Double klik pada Form. Kenapa pada form ? karena pada saat form dijalankan data tanggal, bulan dan tahun akan terisi secara automatis pada combobox2 nya. berikut script code_nya :
Private Sub latihan1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'membuat tanggal
Dim i As Integer
For i = 1 To 31
cmbhari.Items.Add(i)
Next
'membuat bulan
cmbbulan.Items.Add("Januari")
cmbbulan.Items.Add("Februari")
cmbbulan.Items.Add("Maret")
cmbbulan.Items.Add("April")
cmbbulan.Items.Add("Mei")
cmbbulan.Items.Add("Juni")
cmbbulan.Items.Add("Juli")
cmbbulan.Items.Add("Agustus")
cmbbulan.Items.Add("September")
cmbbulan.Items.Add("Oktober")
cmbbulan.Items.Add("November")
cmbbulan.Items.Add("Desember")
'membuat tahun
Dim j As Integer
For j = 1900 To 2020
cmbtahun.Items.Add(j)
Next
End Sub
Membuat sebuah pesan pada saat mengklick tombol Button OK :-> berikut tampilannya :
double klik pada Button Ok, ketikkan script berikut :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Nama Anda Adalah : " & txtnama.Text & "", MsgBoxStyle.Information, "Pesan")
End Sub
Script tombol Close/ Keluar :Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
== SELAMAT MENCOBA ==
Tidak ada komentar:
Posting Komentar