azhar2006
Registered User.
- Local time
- Today, 08:33
- Joined
- Feb 8, 2012
- Messages
- 202
Use this code which is a code written by Daniel Clan. It converts letters and numbers to stars in (InputBox) but I'm facing a problem which is (User-defined type not defined) . Please help with that.
Code:
Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As LongPtr, _
Optional Ypos As LongPtr, _
Optional Helpfile As String, _
Optional Context As LongPtr) As String
Dim lngModHwnd As LongPtr, lngThreadID As Long
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)
hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If
ExitProperly:
UnhookWindowsHookEx hHook
End Function