Wie erreiche ich, dass meine Form beim Start des Programms den ganzenBildschirm ausfüllt? Spontan fällt da wohl jedem dieses hier ein: Private Sub Form_Load() Me.WindowState = vbMaximized End Sub Soweit - so gut. ABER: ist damit wirklich der ganze Bildschirm ausgefüllt? Nein - eben nicht. Die Taskleiste ist immer noch da. Die muss noch weg. Mit einbisschen Windows API geht auch das: Option Explicit ' zuerst die benötigte API ... 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 ' ... nun die Konstanten Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 ' Fenster in den Vordergrund setzen Public Sub FormOnTop(ByVal hWnd As Long, _ ByVal OnTop As Boolean) If OnTop Then ' immer im Vordergrund SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE Else ' normal SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _ SWP_NOMOVE Or SWP_NOSIZE End If End Sub ' der Aufruf erfolgt dann so: Private Sub Form_Load() Me.Move 0, 0, Screen.Width, Screen.Height FormOnTop Me.hWnd, True End Sub Wen jetzt noch die Titelleiste stört, setzt einfach in den Eigenschaften derForm Borderstyle = 0. Um das allerdings auszuprobieren, empfiehlt es sich, einenCommandButton auf die Form zu setzen mit folgendem Code: Private Sub Command1_Click() Unload Me End Sub Diese Seite wurde bereits 9.917 mal aufgerufen. |
Neu! sevCoolbar 3.0 ![]() Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Buchempfehlung Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte 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. |