Program Menggunakan Select Case Dengan Vb 6.0

Memuat foto

Klik Dua Kali Pada Tombol Enter Lalu Masukkan Listing Di Bawah Ini
Private Sub Command1_Click()

Select Case Text1.Text

Case "heri"

MsgBox Text1.Text + (" ") + ("Sebagai Ketua Kelompok")

List1.AddItem Text1.Text

Text1.SetFocus

Text1 = ""

Case "rahmat"

MsgBox Text1.Text + (" ") + ("Sebagai Wakil Kelompok")

List1.AddItem Text1.Text

Text1.SetFocus

Text1 = ""

Case "fara"

MsgBox Text1.Text + (" ") + ("Sebagai Anggota Kelompok")

List1.AddItem Text1.Text

Text1.SetFocus

Text1 = ""

Case Else

MsgBox ("maaf...!!! ") + ("   ") + Text1.Text + ("  ") + ("Tidak Termasuk Dalam Kelompok Ini")

Text1.SetFocus

Text1 = ""

End Select

End Sub

Klik Dua Kali Pada Tombol Hapus Lalu Masukkan Listing Di Bawah Ini

Private Sub Command2_Click()

List1.Clear

Text1.SetFocus

Text1 = ""

End Sub

Klik Dua Kali Pada Keluar  Hapus Lalu Masukkan Listing Di Bawah Ini

Private Sub Command3_Click()

End

End Sub

Program ini dibuat oleh Heri Afrizal di bireuen
:

Komentar

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word