Memformat Teks pada Kontrol

Adakalanya kita memerlukan format masukan khusus pada sebuah kontrol (TextBox atau ComboBox) untuk kemudahan pemasukan data, seperti: format huruf besar (upper case), format huruf kecil (lower case), format judul (title/proper case), format nominal mata uang (currency), dan sebagainya. Agar lebih jelas, Simak pembahasan berikut!
Tambahkan sebuah Module pada Project Anda, kemudian ketik kode berikut!

'Deklarasi daftar konstanta baru
Public Enum nFormat
    nLCase = 1
    nUCase = 2
    nPCase = 3
    nCurr = 4
End Enum

'Deklarasi Prosedur
Sub Ubah(ctl As Control, Jenis As nFormat)
    With ctl
        'Melarikan kursor ke akhir penulisan
        .SelStart = Len(.Text)
        Select Case Jenis
            Case 1
                'Mengubah teks ke konversi LowerCase
                .Text = StrConv(.Text, vbLowerCase)
            Case 2
                'Mengubah teks ke konversi UpperCase
                .Text = StrConv(.Text, vbUpperCase)
            Case 3
                'Mengubah teks ke konversi ProperCase
                .Text = StrConv(.Text, vbProperCase)
            Case 4
                'Mengubah teks ke konversi Angka
                .Text = FormatNumber(.Text, 0)
        End Select
    End With
End Sub

Kemudian pada event Change sebuah kontrol TextBox, tulisi kode:

        Change NamaTextBox, JenisFormat

Contoh:

Private Sub Text1_Change()
    Ubah Me.Text1, nPCase
End Sub

Private Sub Text2_Change()
    Ubah Me.Text2, 4 '-> 4 = pengganti nCurr
End Sub

Private Sub Combo1_Change()
    Ubah Me.Combo1, nUCase
End Sub

Perihal Novian Agung
Pengangguran

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: