INOCHI-GAPTEK
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Memformat Teks pada Kontrol

Go down

Memformat Teks pada Kontrol Empty Memformat Teks pada Kontrol

Post by PujanggaBageur Fri Aug 08, 2008 11:23 pm

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!

Code:
'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:

Code:
Change NamaTextBox, JenisFormat


Contoh:

Code:
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
PujanggaBageur
PujanggaBageur
Admin
Admin

Jumlah posting : 148
Join date : 07.08.08
Age : 41
Lokasi : Cirebon

https://inochi.indonesianforum.net

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik