Pertama buat project baru dengan form baru, sisipkan tiga buah combobox, combo box yang pertama berinama cmbtgl, combobox yang kedua berinama cmbbln, dan yang ketiga berinama cmbthn. Setelah itu ketikan coding di bawah ini tetapi coding ini ketikan setelah clik formnya.
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"
For i = 1 To 31
cmbtgl.Items.Add(i)
Next
For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next
For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub
First create a new project with the new form, insert the three combobox, combo box the first name cmbtgl, the second combobox name cmbbln, and the third name cmbthn. After that when coding below but this coding Click after typing the form.
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"
For i = 1 To 31
cmbtgl.Items.Add(i)
Next
For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next
For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"
For i = 1 To 31
cmbtgl.Items.Add(i)
Next
For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next
For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub
First create a new project with the new form, insert the three combobox, combo box the first name cmbtgl, the second combobox name cmbbln, and the third name cmbthn. After that when coding below but this coding Click after typing the form.
Private Sub Form_Loop_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bln(0) = "Januari"
bln(1) = "Februari"
bln(2) = "Maret"
bln(3) = "April"
bln(4) = "Mei"
bln(5) = "Juni"
bln(6) = "Juli"
bln(7) = "Agustus"
bln(8) = "September"
bln(9) = "Oktober"
bln(10) = "November"
bln(11) = "Desember"
For i = 1 To 31
cmbtgl.Items.Add(i)
Next
For j = 0 To 11
cmbbln.Items.Add(bln(j))
Next
For k = 1900 To 2050
cmbthn.Items.Add(k)
Next
End Sub