[VB] Auto-Hide taskbar API(?)

[Verwijderd]

Hoi,

Ik probeer de taakbalk automatisch te verbergen... ik bedoel niet de WindowsAPI dat hij gewoon verdwijnt, maar dat je het vinkje aan en uit kan zetten in de Start>>settings>>taskbar. Ik heb het al geprobeerd met die api die ik net zei,... dat je gewoon HideTaskbar doet, maar dat werkt niet.

Het doel is namelijk, om een MDI form op het volledige scherm te krijgen zonder dat de taakbalk er voor staat, dus de properties van Borderstyle van het form werkt dus ook niet omdat het een MDI form is.

Iemand die toevallig weet waar dat vinkje (in het register of met een api) zit?

[Crazy D]

Een antwoord heb ik niet, maar weet je wel zeker dat je dat wilt? Imho moet een applicatie van windows-instellingen afblijven, als een gebruiker graag altijd z'n taakbalk wil blijven zien moet dat gewoon kunnen. Mjah das mho

[OZ-Gump]

Crazy D schreef op 26 March 2003 @ 13:28:
Een antwoord heb ik niet, maar weet je wel zeker dat je dat wilt? Imho moet een applicatie van windows-instellingen afblijven, als een gebruiker graag altijd z'n taakbalk wil blijven zien moet dat gewoon kunnen. Mjah das mho

He-le-maal eens. Je mag hooguit windows-instellingen aanpassen als je daarvoor van tevoren de gebruiker om toestemming vraagt. En zelfs dan alleen als dat de werking van het programma extreem bevordert (zoals bijvoorbeeld de datum-instelling in combinatie met databases).

De vraag is natuurlijk: met die systemen van tegenwoordig, heb je dan echt die paar extra pixels nodig? En zo ja, waarvoor?

[glashio]

Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Sub TaskBar(blnValue As Boolean)
Dim lngHandle As Long
Dim lngStartButton As Long

lngHandle = FindWindow("Shell_TrayWnd", "")

If blnValue Then
ShowWindow lngHandle, 5
Else
ShowWindow lngHandle, 0
End If
End Sub