Selasa, 20 Oktober 2015


houston mesothelioma lawyers mesothelioma attorneys los angeles malignant mesothelioma pleural rate survival delaware mesothelioma lawyers asbestos attorneys philadelphia missouri mesothelioma lawyers mesothelioma lawyers houston asbestos lawyers los angeles illinois mesothelioma lawyers houston mesothelioma attorney colorado mesothelioma lawyers mesothelioma attorneys san diego georgia mesothelioma lawyer asbestos law suits mesothelioma attorneys california california mesothelioma attorneys detroit personal injury attorney student loan consilidation fort worth dwi lawyer tennessee mesothelioma lawyer diffuse malignant pleural mesothelioma irs debt attorney applied foundation mesothelioma research dallas dwi lawyers oklahoma city personal injury attorney mesothelioma lawyers california hawaii car accident lawyer houston dwi attorney mesothelioma applied research foundation houston mesothelioma mesothelioma houston michigan personal injury lawyer ca car donations car donations ca california mesothelioma lawyers wrongful death attorney los angeles illinois mesothelioma attorney dui attorneys los angeles los angeles dui attorneys college student loan consolidation mesothelioma washington attorney washington mesothelioma attorney mesothelioma attorney ohio ohio mesothelioma attorney georgia mesothelioma lawyers colorado mesothelioma attorneys asbestos law firm oklahoma personal injury attorney colorado accident lawyers michigan personal injury attorney

Visual Basic: Menampilkan Tanggal Bulan Tahun Dengan Perulangan

Jika kalian merasa kesulitan menampilkan tanggal ketika membuat program menggunakan visual basic / vb 6, alangkah baiknya gunakanlah fungsi perulangan pada vb. Ya! benar. Perulangan For..Next. Nah dalam postingan ini saya akan membagikan cara menampilkan tanggal, bulan dan tahun lewat combobox menggunakan perulangan For..Next. Untuk itu silahkan simak baik-baik caranya di bawah ini:

1. Desainlah Form seperti berikut

Menampilkan Tanggal Bulan Tahun Dengan Perulangan

Komponen: 3 combo box dan 1 label (untuk judul program)
Ubah nama combobox masing-masing: ctanggal, cbulan, ctahun

2. Tambahkan script pada Form Load / Activate

Private Sub Form_Load()
ctanggal.Text = "---Pilih---"
cbulan.Text = "---Pilih---"
ctahun.Text = "---Pilih---"
For i = 1 To 31
Me.ctanggal.AddItem (Str(i))
Next i
For i = 1 To 12
Me.cbulan.AddItem (MonthName(i))
Next i
For i = 1990 To Year(Now)
Me.ctahun.AddItem (Str(i))
Next i
End Sub

Semoga Bermanfaat


EmoticonEmoticon