Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

So müsste es gehen
Autor: Fx
Datum: 10.04.02 00:10
Hi Doc, Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long Public Sub FormMaximize(frm As form) ' ### Maximieren, unter Berücksichtigung der Taskbar Dim lpRect As RECT SystemParametersInfo SPI_GETWORKAREA, 0, lpRect, 0 With lpRect frm.Left = .Left * Screen.TwipsPerPixelX frm.Top = .Top * Screen.TwipsPerPixelY If .Left > 0 Then frm.Width = (.Right - .Left) * Screen.TwipsPerPixelX Else frm.Width = .Right * Screen.TwipsPerPixelX End If If .Top > 0 Then frm.Height = (.Bottom - .Top) * Screen.TwipsPerPixelY Else frm.Height = .Bottom * Screen.TwipsPerPixelY End If End With End Sub Fx

Frage zur Bildschirmauflösung	59	DrNoonienSoong	31.03.02 13:44
Hallo .... !?	37	DrNoonienSoong	07.04.02 15:39
So müsste es gehen	35	Fx	10.04.02 00:10
Re: So müsste es gehen	27	DrNoonienSoong	10.04.02 19:48
Ich glaub, ich hab die Ursache gefunden...	29	DrNoonienSoong	10.04.02 23:17

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