Apabila Anda ingin menggunakan Kontrol ComboBox untuk password yang isinya disamarkan, maka perlu dilakukan cara khusus karena Kontrol ComboBox tidak mempunyai properti PasswordChar seperti pada Kontrol TextBox.
Berikut caranya :
- Tulis kode ini di event (Declarations) dari Form :
Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Integer, ByVal wCmd As Integer) As Integer Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Object) As Integer Const GW_CHILD = 5 Const EM_SETPASSWORDCHAR = &HCC
- Tulis kode ini di event Form_Load :
Dim i As Integer i = GetWindow(ComboBox1.Handle, GW_CHILD) 'menggunakan karakter (*) SendMessage(i, EM_SETPASSWORDCHAR, Asc("*"), 0)