Oft will man den Text in einer Textbox markieren, wenn es den Fokus erhält. Genauso oft soll das aber nur der Fall sein, wenn der Fokus mit der TAB-Taste oder dem Hotkey kam. Wenn man hingegen mit der Maus auf die TextBox klickt, soll der Cursor genau da blinken, wo geklickt wurde. Diese Abfrage bewerkstelligt man mit der GetKeyState-Funktion aus der API-Sammlung. Angenommen, die Textbox ist mit einem Label "Demo" beschriftet und der Hotkey liegt auf "D", d.h. beim Drücken von ALT+D bekommt die Textbox den Fokus. ' Benötigte API-Deklaration Private Declare Function GetKeyState Lib "user32" ( _ ByVal nVirtKey As Long) As Integer Private Sub Text1_GotFocus() ' Inhalt der TextBox autom. markieren, ' wenn die TextBox den Fokus per TAB oder ' HotKey erhalten hat. If GetKeyState(vbKeyTab) < 0 Or GetKeyState(vbKeyD) < 0 Then With Text1 .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub Dieser Tipp wurde bereits 13.019 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... Tipp des Monats ![]() Dieter Otter PopUp-Menü wird nicht angezeigt :-( In diesem Tipp verraten wir Ihnen, wie Sie Probleme mit PopUp-Menüs umgehen können, wenn diese unter bestimmten Umständen einfach nicht angezeigt werden. Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |