![]() |
Tipp 0049
|
Taskleiste aus-/einblenden
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 01.05.2001 |
|
Entwicklungsumgebung: |
|
VB 5 |
|
|
Bei der Spielprogrammierung ist es für anspruchsvolle Vollbildmodi oft unerlässlich die
Taskleiste auszublenden. Mit zwei API-Funktionen und zwei Konstanten lässt sich dies durchführen,
wobei mit der Konstante SWP_HIDEWINDOW die Taskleiste ausblendet, und mit
SWP_SHOWWINDOW wieder angezeigt wird.
|
|
|
Option Explicit
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
Label1.ForeColor = &HC0&
Label1.Caption = "Jetzt ist die Taskleiste ausgeblendet."
Command1(1).Visible = False
Ein_Aus SWP_HIDEWINDOW
Case 2
Label1.ForeColor = &H8000&
Label1.Caption = _
"Jetzt ist die Taskleiste wieder eingeblendet."
Ein_Aus SWP_SHOWWINDOW
Command1(1).Visible = True
Case Else
Unload Me
End Select
End Sub
Private Sub Ein_Aus(Parameter As Long)
Dim Result As Long
Result = FindWindow("Shell_TrayWnd", "")
SetWindowPos Result, 0, 0, 0, 0, 0, Parameter
End Sub
|
|
|
|
|
|
Mit kleinen Anpassungen bzgl. des CommandButton-Click-Ereignisses (in VBA gibt es keine Steuerelementfelder)
funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor der
entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist nicht möglich.
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2,5 kB)
|
Downloads bisher: [ 2231 ]
|
|
|