VISIKiTA.NET

Seperti kita ketahui pembatasan jumlah karakter pada form isian sangat penting untuk menghindari kesalahan proses pada saat penyimpanan data ke database. Sebagai contoh, jika kita berusaha memasukan data alamat “Desa Pasuruan Blok Mengger , Kecamatan Losari, Kabupaten Cirebon” (jumlah karakter 63) ke dalam field alamat yang telah ditentukan panjangnya adalah 50 karakter, hal ini sudah dapat dipastikan akan menimbulkan pesan kesalahan dan data tidak akan dapat disimpan ke dalam database.

Jika form isian menggunakan komponen TextBox pembatasan panjang karakter dapat dengan mudah dilakukan, kita cukup mengatur properti MaxLength yang ada, misalnya 50 untuk kasus di atas, baik pada saat desain form ataupun melalui kode program,

Text1.MaxLength = 50

Namun bagaimana jika kita ingin menggunakan ComboBox sebagai tempat pengisian alamat seperti contoh sebelumnya, bisakah kita batasi jumlah karakter yang dapat diinput melalui ComboBox? Jawabnya tentu saja bisa! Anda cukup kopi paste kode dibawah ke dalam projek Anda:

Option Explicit

Private Const CB_LIMITTEXT& = &H141
Private Declare Function SendMessage Lib “USER32″ Alias “SendMessageA” _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As _
Integer, ByVal lParam As Any) As Long

Public Sub SetComboBoxMaxLength(hWnd As Long, MaxLength As Long)
SendMessage hWnd, CB_LIMITTEXT&, MaxLength, 0&
End Sub

Contoh penggunaan fungsi di atas adalah sebagai berikut:

Jika ingin membatasi jumlah karakter hanya sampai 50

SetComboBoxMaxLength Combo1.hWnd, 50

Jika tidak ingin memberi batasan jumlah karakter.

SetComboBoxMaxLength Combo1.hWnd, 0