Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Access Formulare automatisch auf die maximale Monitorgröße anpassen

 

Das folgende vba Code-Beispiel zeigt, wie man automatisch Microsoft Access Datenbank Formulare auf die maximale Breite des aktuellen Monitors anpassen kann

Dabei werden alle Controls wie Textbox oder Label Elemente zur Laufzeit auf die entsprechenden Positionen verschoben und in der Breite und Höhe angepasst.

 

Das ist besonders hilfreich für Notebook-Versionen unter FullHD und parallel Desktop Workstations mit maximaler Auflösung.

Microsoft Access, Auto Skalierung auf maximale Breite mit vba Code

 

Formular-Anpassung, AutoScale, Auto Skalierung

 

Im Code wird der AutoSkale-vba Code ausgeführt, wenn man auf den Button Resize klickt.

Der vba Code kann natürlich auch im Formular zur OnLoad und On_Open geschoben werden.

 

Auto-Skalierung, autoScale

Automatisch auf die maximale Breite und Höhe des Monitors in Windows 10 angepasst skaliert

 

Vba Code

Vba Code für die Microsoft Access Anwendung

 

Option Compare Database

Option Explicit On

 

Private Sub BtnResize_Click()

    '------------< Resize >-------------

    '-< Get_Scale >-

    '< X >

    '*horizontal

    Dim xStart As Long

    xStart = Me.Width

    If xStart < 0 Then

        xStart = (32768 / 2) - xStart

    End If

 

    Dim xWindow As Long

    xWindow = Me.WindowWidth

    If xWindow < 0 Then

        xWindow = (32768 / 2) - xWindow

    End If

    If xWindow > 31000 Then xWindow = 31000

    'max integer=32767

    'maximale breite=2.048 lt Microsoft

 

    'LogicalPageWidth

 

    Dim ScaleX As Double

    ScaleX = xWindow / xStart

    '</ X >

 

    '< Y >

    '*Vertical

    Dim yStart As Long

    yStart = Detailbereich.Height 'Section(0).Height

    'Me.InsideHeight

 

    Dim yHeader As Long

    yHeader = Section(1).Height

 

    Dim yFooter As Long

    yFooter = Section(2).Height

 

    'Status=30 Commandbar=30 ApplicationTitle=30 Counter=30

    Dim yOffset As Long

    yOffset = 90

 

    Dim yWindow As Long

    yWindow = Me.WindowHeight - yHeader - yFooter + yOffset

 

    Dim ScaleY As Double

    ScaleY = yWindow / yStart

    '</ Y >

 

    '-</ Get_Scale >-

    Dim ctl As Control

    For Each ctl In Me.Controls

        ctl.Left = ctl.Left * ScaleX

        ctl.Width = ctl.Width * ScaleX

 

        If ctl.Section = 0 Then

            ctl.Top = ctl.Top * ScaleY

 

            '

            'On Error Resume Next

            ctl.Height = ctl.Height * ScaleY

 

        End If

    Next

    '------------</ Resize >-------------

End Sub

 

 

 

Mobile
»
Upload von sehr großen Dateien in Asp.Net MVC Core 2 einstellen.
»
Fehler: Identitätsspalte kann nicht aktualisiert werden, IDENTITY_INSERT is set to OFF
»
Asp Fehler: IDENTITY_INSERT OFF beim Zugriff auf AspNetUsers Registrierung
»
IIS Fehler: 440.13 Not Found. Upload Dateigröße überschritten
»
InvalidOperationException: An exception occurred while reading a database value for property
»
Asp Fehler: A database operation failed while processing the request. SqlException: Ungültiger Objektname
»
InvalidOperationException: No database provider has been configured for this DbContext
»
NullReferenceException: Object reference not set to an instance of an object.
»
InvalidOperationException: The expected type was System.Boolean but the actual value was null.
»
Asp: InvalidOperationException: The model item passed into the ViewDataDictionary is of type

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de