Public Class Form1
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
MsgBox("Hari yang Anda Pilih"
& ComboBox1.Text)
End Sub
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ComboBox1.Items.Add("Minggu")
ComboBox1.Items.Add("Senin")
ComboBox1.Items.Add("Selasa")
ComboBox1.Items.Add("Rabu")
ComboBox1.Items.Add("Kamis")
ComboBox1.Items.Add("Jumat")
ComboBox1.Items.Add("Sabtu")
End Sub
End Class
Belum ada tanggapan untuk "Menampilkan Hari"
Post a Comment