Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0528: Position und Größe der Taskleiste ermitteln II

VB 5/6-Tipp 0528: Position und Größe der Taskleiste ermitteln II

 von Konrad Rudolph

Schwierigkeitsgrad:

Verwendete API-Aufrufe: FindWindowA (FindWindow), GetWindowRect

Download: Download des Beispielprojektes [2,6 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label2" (Index von 0 bis 4)
' Steuerelement: Beschriftungsfeld "Label1" (Index von 0 bis 4)
Option Explicit



Private Declare Function FindWindow Lib "user32.dll" Alias _
                        "FindWindowA" (ByVal lpClassName As String, _
                                       ByVal lpWindowName As String) As Long
                               
Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, _
                                                         lpRect As xRECT) As Long

Private Type xRECT                       ' Datentyp Rechteck (Koordinaten)
     rX1 As Long                         ' links
     rY1 As Long                         ' oben
     rX2 As Long                         ' rechts
     rY2 As Long                         ' unten
End Type


Private Function GetTaskBarProps(ByVal hProperty As String) As Long
    Dim hRect As xRECT
    Dim hwnd As Long
    Dim hRes As Long
    '
    hProperty = UCase(Trim$(hProperty))
    If hProperty = "" Then
        GetTaskBarProps = 0
        Exit Function
    End If
    '
    hwnd = FindWindow("Shell_traywnd", "")                  ' Handle TBarWindow ermitteln
    hRes = GetWindowRect(hwnd, hRect)                       ' Fenster d. TaskBar
    Select Case hProperty
           Case "TOP"
                GetTaskBarProps = hRect.rY1                 ' Pos. oben (inkl. Rand)
           Case "LEFT"
                GetTaskBarProps = hRect.rX1                 ' Pos. links ( inkl.Rand)
           Case "HEIGHT"
                GetTaskBarProps = hRect.rY2 - hRect.rY1     ' Höhe (unten - oben)
           Case "WIDTH"
                GetTaskBarProps = hRect.rX2 - hRect.rX1     ' Breite (rechts - links)
           Case "ALIGN"
                If hRect.rY1 < 1 Then
                   If hRect.rX1 < 1 Then
                      If hRect.rY2 > hRect.rX2 Then GetTaskBarProps = 1 ' links
                      If hRect.rX2 > hRect.rY2 Then GetTaskBarProps = 3 ' oben
                   End If
                End If
                If hRect.rY1 < 1 Then
                   If hRect.rX1 > 0 Then GetTaskBarProps = 2            ' rechts
                End If
                If hRect.rX1 < 1 Then
                   If hRect.rY1 > 0 Then GetTaskBarProps = 4            ' unten
                End If
            End Select
     With Form1
          .Label2(0).Caption = hRect.rY1
          .Label2(1).Caption = hRect.rX1
          .Label2(2).Caption = hRect.rY2 - hRect.rY1
          .Label2(3).Caption = hRect.rX2 - hRect.rX1
          .Label2(4).Caption = GetTaskBarProps
     End With
            
End Function


Private Sub Command1_Click()
     Call GetTaskBarProps("Align")
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 3 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.