Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Eigenschaften der Windows-Taskleiste
Autor: Martoeng (Moderator)
Datum: 13.09.05 12:31
Hier mal ein Beispielcode, der funktioniert. Ist aus einem Tipp hier im archiv: Option Explicit ' 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 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 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 ' 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 Private Sub Command1_Click() 'wenn horizontal unten: Me.Height = Screen.Height - Me.TaskBarHeight * Screen.TwipsPerPixelY Me.Top = 0 Me.Left = 0 Me.Width = Screen.Width End Sub vbarchiv.dll (Freeware), Tutorials uvm. auf http://www.martoeng.com.

Eigenschaften der Windows-Taskleiste	1.711	alluju	09.09.05 09:29
Re: Eigenschaften der Windows-Taskleiste	1.092	Martoeng	09.09.05 15:29
Re: Eigenschaften der Windows-Taskleiste	1.032	alluju	13.09.05 07:02
Re: Eigenschaften der Windows-Taskleiste	944	Martoeng	13.09.05 09:54
Re: Eigenschaften der Windows-Taskleiste	942	alluju	13.09.05 12:14
Re: Eigenschaften der Windows-Taskleiste	939	Martoeng	13.09.05 12:22
Re: Eigenschaften der Windows-Taskleiste	1.117	Martoeng	13.09.05 12:31
Re: Eigenschaften der Windows-Taskleiste	1.008	alluju	13.09.05 12:32
Re: Eigenschaften der Windows-Taskleiste	963	alluju	13.09.05 12:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen