Mit nachfolgender Funktion lässt sich für eine beliebige Textbox ermitteln, ob es sich bei der TextBox um eine passwortgeschützte Textbox handelt oder nicht. Die Funktion erwartet als Parameter das Fenster-Handle der TextBox (hWnd). Der Status kann somit systemweit für eine beliebige TextBox ermittelt werden, sofern das Fensterhandle bekannt ist. ' Benötigte API-Deklarationen Private Declare Function SendMessage Lib "user32.dll" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const EM_GETPASSWORDCHAR As Long = &HD2 ' Prüft, ob es sich bei einer TextBox um eine ' passwortgeschützte TextBox handelt ' ' Die Funktion erwartet das Fensterhandle der TextBox Public Function TB_PasswordProtected(ByVal hWnd As Long) As Boolean If SendMessage(hWnd, EM_GETPASSWORDCHAR, 0, ByVal 0&) <> 0 Then TB_PasswordProtected = True End If End Function Die Funktion gibt True zurück, wenn es sich um eine "Passwort"-TextBox handelt, andernfalls False. |