Memformat Teks pada Kontrol
Halaman 1 dari 1
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!
Kemudian pada event Change sebuah kontrol TextBox, tulisi kode:
Contoh:
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
Similar topics
» Mengkosongkan teks pada kontrol
» Memblok teks pada kontrol
» Memeriksa teks kosong pada kontrol
» Menyisipkan Kontrol Baru
» Memposisikan Teks (Metode Warpping)
» Memblok teks pada kontrol
» Memeriksa teks kosong pada kontrol
» Menyisipkan Kontrol Baru
» Memposisikan Teks (Metode Warpping)
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|