Jumat, 17 Agustus 2018

Cara Membatasi Jumlah Karakter Input/Masukkan Pada Komponen/Variant (TextBox, ComboBox, ButtonBox, dll) Pada Pemrogaman Gambas

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