Manchmal kann es interessant sein, ein bisschen mehr über die Windows-Taskleiste zu wissen, z.B. ob diese dauerhaft angezeigt wird oder nur, wenn man sich ihr mit der Maus nähert. Vielleicht möchte man auch einfach nur die Position der Windows-Taskbar kennen, so dass man sein Formular entsprechend anzeigt, ohne dass ein Teil des Formulars hinter der Taskbar versteckt wird. All diese Informationen liefert uns wie so oft, das Windows-API. In diesem Fall ist es die Funktion SHAppBarMessage. ' zunächst die API-Deklaration Private Declare Function SHAppBarMessage Lib "shell32.dll" ( _ ByVal dwMessage As Long, _ pData As APPBARDATA) As Long ' und die APPBAR-Struktur Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type APPBARDATA cbSize As Long hWnd As Long uCallbackMessage As Long uEdge As Long rc As RECT lParam As Long End Type Public Enum tBarAlign tbaLinks = 0 tbaRechts = 1 tbaOben = 2 tbaUnten = 3 End Enum Prüfen, ob die Windows-Taskbar immer im Vordergrund angezeigt wird Public Function IsTaskBarOnTop() As Boolean Dim AppBar As APPBARDATA Dim State As Long Const ABM_GETSTATE = &H4 Const ABS_ALWAYSONTOP = &H2 AppBar.cbSize = Len(AppBar) State = SHAppBarMessage(ABM_GETSTATE, AppBar) IsTaskBarOnTop = (State = ABS_ALWAYSONTOP) End Function Position der Taskbar Public Function TaskBarAlign() As tBarAlign Dim AppBar As APPBARDATA Dim lResult As Long Dim tbHeight As Long Dim tbWidth As Long Const ABM_GETTASKBARPOS = &H5 lResult = SHAppBarMessage(ABM_GETTASKBARPOS, AppBar) ' Größe der Taskbar With AppBar.rc tbHeight = .bottom - .top tbWidth = .right - .left End With ' Anhand der Größe die Position ermitteln If tbHeight < Screen.Height / Screen.TwipsPerPixelY Then If AppBar.rc.top <= 0 Then TaskBarAlign = tbaOben Else TaskBarAlign = tbaUnten End If Else If AppBar.rc.left <= 0 Then TaskBarAlign = tbaLinks Else TaskBarAlign = tbaRechts End If End If End Function Größe der Taskbar ermitteln ' Höhe in Pixel Public Function TaskBarHeight() As Long Dim AppBar As APPBARDATA Dim lResult As Long Const ABM_GETTASKBARPOS = &H5 lResult = SHAppBarMessage(ABM_GETTASKBARPOS, AppBar) ' Größe der Taskbar With AppBar.rc TaskBarHeight = .bottom - .top End With End Function ' Breite in Pixel Public Function TaskBarWidth() As Long Dim AppBar As APPBARDATA Dim lResult As Long Const ABM_GETTASKBARPOS = &H5 lResult = SHAppBarMessage(ABM_GETTASKBARPOS, AppBar) ' Breite der Taskbar With AppBar.rc TaskBarWidth = .right - .left End With End Function Dieser Tipp wurde bereits 29.199 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (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. |
sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |