Program Menggunakan Select Case Dengan Vb 6.0
Klik
Dua Kali Pada Tombol Enter Lalu Masukkan Listing Di Bawah Ini
Private Sub Command1_Click()

Klik Dua Kali Pada Tombol Enter Lalu Masukkan Listing Di Bawah Ini
Select Case Text1.Text
Case "heri"
MsgBox Text1.Text + (" ")
+ ("Sebagai Ketua Kelompok")
List1.AddItem Text1.Text
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
Posting Komentar
Tulis komentar anda disini.....