Mebatasi jumlah masukan karakter pada TextBox adalah yang paling mudah karena fiturnya juga tersedia pada daftar properti pada halaman form.
pada properti MaxLength tinggal isi dengan value (batas panjang karakter) yang dinginkan.
Sedangkan membatasi panjang karakter pada selain TextBox harus diatur pada halaman Class.
Membatasi panjang karakter pada ComboBox bisa datur pada Procedur Form_Open() atau _new().
Public Sub Form_Open()
ComboBox1.MaxLength = 10
End
Begitu juga dengan ButtonBox, namun dengan tambahan properti Editor
Public Sub Form_Open()
ButtonBox1.Editor.MaxLength = 10
End
Untuk Pengaturan Panjang karakter pada TextArea dan ValueBox dilakukan secara manual, yakni dengan memprogram panjang karakter menggunakan algoritma.
Public Sub TextArea1_KeyPress()
With Key
If .Code <> .BackSpace And .Code <> .Del And
.Code <> .Left And .Code <> .Right And .Code <> .Tab And
.Code <> .Return And Not .Control Then
If Len(TextArea1.Text) > 10 Then
Stop Event
Endif
Endif
End With
End
Khusus untuk TextArea, spasi-enter tidak dianggap sebagai karakter sehingga masih tetap jalan meski dibatasi panjang karakternya.
Tidak ada komentar:
Posting Komentar