Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB6 | 22.06.10 |
Ist eine Textbox passwortgeschützt? Mit dieser Funktion lässt sich ermitteln, ob es sich bei einer Textbox um ein passwortgeschütztes Eingabefeld handelt. | ||
Autor: Dieter Otter | Bewertung: | Views: 7.894 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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.