Lompat ke konten Lompat ke sidebar Lompat ke footer

Contoh Penggunaan Format MaskEdBox VB6 (Bagian II)

Berikut ini adalah contoh penggunaan mas editor box di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Commandbutton dan 3 MaskEdBox.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          Private Sub Command1_Click()

            If Not IsDate(MaskEdBox1.Text) Then
               MsgBox "Tanggal tidak valid!", vbCritical, "Tidak Valid"
               MaskEdBox1.SetFocus
               SendKeys "{Home}+{End}"
               Exit Sub
            End If
            MsgBox MaskEdBox1.Text
            MsgBox MaskEdBox2.Text
            MsgBox MaskEdBox3.Text

          End Sub

          Private Sub Form_Load()
            MaskEdBox1.Mask = "##-##-####"    'Tanggal

            'Bisa juga dengan:
            'MaskEdBox1.Mask = "99-99-9999"    'Tanggal
           
            MaskEdBox2.Mask = "(###)-#######" 'Nomor telepon

            'Bisa juga dengan:
            'MaskEdBox2.Mask = "(999)-9999999" 'Nomor telepon
           
            MaskEdBox3.Mask = "????????"  'Hanya karakter huruf
                                          'sebanyak 8 karakter,
                                          'dan tidak boleh ada
                                          'mengandung spasi
            End Sub

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Posting Komentar untuk "Contoh Penggunaan Format MaskEdBox VB6 (Bagian II)"