Beschreibung: Deklaration: Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Parameter:
nCmdShow Konstanten: Const SW_HIDE = 0 ' Versteckt das Fenster Const SW_MAXIMIZE = 3 ' Maximiert das Fenster Const SW_MINIMIZE = 6 ' Minmiert das Fenster Const SW_NORMAL = 1 ' Aktiviert das Fenster Const SW_SHOW = 5 ' Zeigt das Fenster an, auch wenn es versteckt ist Const SW_RESTORE = 9 ' Stellt das Fenster wieder her Const SW_SHOWMAXIMIZED = 3 ' Zeigt das Fenster an und Maximiert es Const SW_SHOWMINIMIZED = 2 ' Zeigt das Fenster an und Minimiert es Const SW_SHOWMINNOACTIVE = 7 ' Minimiert das Fenster aber aktiviert es nicht Const SW_SHOWNA = 8 ' Zeigt das Fenster an aber aktiviert es nicht Const SW_SHOWNOACTIVATE = 4 ' Zeigt das Fenster an ohne es zu aktivieren Const SW_SHOWNORMAL = 1 ' Zeigt das Fenster und aktiviert dies Rückgabewert: Beispiel: Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Const SW_HIDE = 0 ' Versteckt das Fenster Const SW_SHOWMAXIMIZED = 3 ' Zeigt das Fenster an und Maximiert es ' Lässt das Fenster für 5 Sekunden "verschwinden" Private Sub Command1_Click() ShowWindow Me.hwnd , SW_HIDE DoEvents Sleep 5000 ShowWindow Me.hwnd , SW_SHOWMAXIMIZED End Sub Diese Seite wurde bereits 40.628 mal aufgerufen. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Buchempfehlung Tipp des Monats Juni 2024 Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. 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. |