InputBox with Password Characters

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Arkadiy Olovyannikov

Version Compatibility: Visual Basic 5

More information:

This code shows a simple way of 'hooking' modal windows (MsgBox or InputBox) and changing their behavior.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'PUT BELOW DECLARATIONS IN A .BAS MODULE Option Explicit Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias _ "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _ ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function SetTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal _ lpTimerFunc&) Private Declare Function KillTimer& Lib "user32" _ (ByVal hwnd&, ByVal nIDEvent&) Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const EM_SETPASSWORDCHAR = &HCC Public Const NV_INPUTBOX As Long = &H5000&

Code: