Menggunakan Komponen Maskedbox dengan Visual Basic

Menggunakan komponen maskedbox dengan Visual Basic 6.0 - Pada kasus ini kita menginginkan pada saat memilih Jurusan maka pada Text NIS otomatis muncul NIS sesuai dengan jurusan kemudian kita tinggal menambahkan nomor urutan yang berbeda setiap siswa. Misalnya pada saat kita pilih Combo Box Akuntansi maka pada Text NIS muncul : ___.___.151, saat kita pilih Administrasi Perkantoran maka pada Text NIS muncul : ___.___.152 dan seterusnya. Kemudian kita tinggal menuliskan angka didepannya sesuai urutan siswa.

Langkah-langkahnya sebagai berikut :


1. Siapkan Satu Form Kosong kemudian tambahkan komponen baru pada vb 6 : Microsoft Masked Edit Control 6.0(SP3) seperti gambar berikut :

2. Tentukan Property MaskEdBox1 dengan cara Klik kanan lalu pilih Properties, Untuk    MaxLength isikan angka 11 karena panjang nis kita rencanakan 11 digit

3. Tuliskan Kode Program Sebagai Berikut :

Tentukan Property MaskEdBox1 dengan cara Klik kanan lalu pilih Properties, Untuk    MaxLength isikan angka 11 karena panjang nis kita rencanakan 11 digit

Tuliskan Kode Program Sebagai Berikut :

Private Sub CmbJurusan_Click()If CmbJurusan.Text = “Akuntansi” ThenMskBox.Mask = “###.###.151″ElseIf CmbJurusan.Text = “Administrasi Perkantoran” ThenMskBox.Mask = “###.###.152″ElseMskBox.Mask = “###.###.153″End IfEnd SubPrivate Sub Form_Load()MskBox.Mask = “###.###.###”End Sub

Menggunakan Komponen Maskedbox dengan Visual Basic 2013-01-24T03:40:00+07:00 Rating: 4.5 Diposkan Oleh: Unknown