Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auflösung
zurück: Filter deaktivieren weiter: gleichen Datensatz beim Formularwechsel anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
14. Mai 2004, 08:20
Rufname:

Auflösung - Auflösung

Nach oben
       

hallo leute

ich habe ein kleines (oder großes?) problem. all meine formulare habe ich in der 1024*768 auflösung erstellt. nun ist meine DB fertig und jetzt mußte ich feststellen, dass manche benutzer eine 640*480 auflösung benutzen. gibt es eine möglichkeit, dass wenn die benutzer meine DB öffnen automatisch die bildschirmauflösung 1024*768 übernommen wird?

grüße
Markus66
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2004, 12:18
Rufname:
Wohnort: 41812 Erkelenz


ähnliches Prob - ähnliches Prob

Nach oben
       

Hi,
ich habe ein ähnliches Problem.
Ich habe ein Fenster, das den vollen Bereich von 1024 x 768 gerade füllt. Gibt es eine Möglichkeit, ein Formular automatisch umzubauen oder optimiert anzeigen zu lassen, wenn z.B. der User nur 800 x 600 eingestellt hat Question (Wie schaut es dann mit der Performance aus Question )
Gruß
Markus
TommyK
Im Profil kannst Du frei den Rang ändern


Verfasst am:
14. Mai 2004, 13:10
Rufname:
Wohnort: Sachsen

AW: Auflösung - AW: Auflösung

Nach oben
       

Hallo,

solche Sachen sind unter Access schwierig zu handhaben.

Die Änderung der Bildschirmauflösung beinhaltet eine Menge Probleme.
1. Von OS zu OS unterschiedlich.
2. Die Wiederherstellung der Icons danach usw.

Bsp hier im vb@rchiv für VB: Bildschirm-Einstellungen ermitteln und ändern
Weiß aber nicht ob es unter VBA auch läuft

Eine automatische Anpassung der Formulare an die Bildschirmauflösung wäre auch möglich, aber diese Programme sind auch nicht das Gelbe.

Entweder sie arbeiten mit Subclassing, wie dieses hier ({Link entfernt, da nicht mehr funktionstuechtig by Willi Wipp})
oder es gibt auf jeden Fall Probleme mit ActiveX-Conrols.
Es gibt noch ein Bsp, aber da finde ich den Link nicht mehr.
Hier ist aber der Quellcode:
Code:
Option Compare Database       'Use database order for string comparisons
Option Explicit

'This public constant is set to false or true by reading a parameter Table
'or is set on the start menu etc.. If false resizing is skipped
Public DoYouWantToResize As Integer

Public Const SM_CYSCREEN = 1
Public Const SM_CXSCREEN = 0

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Function ResizeAll(F As Form)
    'vvv--- This is for testing without setting the flag elsewhere
    DoYouWantToResize = True
    If Not DoYouWantToResize Then Exit Function
' Resizes form sections, controls, and the window, in function
' of the screensize you are working on and the base screen size
' for which the application was developed.
'
' to implement the module use the following function call as
' OnOpen event on the forms AND subforms you want to be resized
' when opened:
'                    =ResizeAll([Form])
'
' resizing is based on the basic screenwidth of 1152 therefore the
' magnification is calculated as the real screenwidth/1152

'dataheet format is saved on changing, therefore we based the default
'dimensions of datasheet rows on an the arial font 10 points heigh
'the resizing for datasheets will always start from this value
'
' This module was based on the sample provided to this forum by
' Dick Cullom (filename RESIZE) for access 2.0
'
    Dim i As Integer
    Dim width As Long
    Dim magn As Single
    Dim DefaultFont As String
    Dim DefaultFontHeight As Integer

    'set default font characteristics
    DefaultFont = "MS Sans Serif"
    DefaultFontHeight = 12
    On Error Resume Next
    'determine screen size and magnification
    width = GetSystemMetrics(SM_CXSCREEN)
    'MsgBox width
    If width = 0 Then
        magn = 1
      Else
        magn = width / 1024
        '        this is for testing with the same screensize,
        'vvv---  must be deleted in an operational version
        'magn = 1
    End If
    'Restore datasheet characteristics because they are saved with previous
    'setting
    'take default fontsize and corresponding row height
    'take width of non-datasheet control as default column width
    If magn = 1 Then
        F.DatasheetFontHeight = DefaultFontHeight
        F.DatasheetFontName = DefaultFont
        F.RowHeight = True
        For i = 0 To F.Count - 1
            If F(i).ControlType = 124 Then
              Else
                F(i).ColumnWidth = Int(F(i).width * magn)
            End If
        Next i
        Exit Function
    End If
    'If increasing magnification, enlarge sections first
    If magn > 1 Then
      F.width = F.width * magn
      For i = 0 To 2
        F.Section(i).Height = F.Section(i).Height * magn
      Next i
    End If
    'Enlarge/reduce controls for datasheet
    'start from default values to avoid multiple magnifications
    F.DatasheetFontHeight = DefaultFontHeight
    If magn >= 1 Then
        F.DatasheetFontHeight = F.DatasheetFontHeight * magn + 0.5
      Else
        F.DatasheetFontHeight = F.DatasheetFontHeight * magn
    End If
    If F.DatasheetFontHeight > 6 And _
       F.DatasheetFontName = "Small fonts" Then
        F.DatasheetFontName = DefaultFont
    End If
    If F.DatasheetFontHeight < 8 Then F.DatasheetFontName = "Small fonts"
    F.RowHeight = True 'rowheight is based on font
    ' Enlarge:reduce other controls
    For i = 0 To F.Count - 1
        'do not do multiple magnification for tab control
        If F(i).ControlType = 124 Then
          Else
            F(i).Top = F(i).Top * magn
            F(i).Left = F(i).Left * magn
            F(i).Height = F(i).Height * magn
            F(i).width = F(i).width * magn
            If magn >= 1 Then
                F(i).FontSize = F(i).FontSize * magn + 0.5
              Else
                F(i).FontSize = F(i).FontSize * magn
            End If
            If F(i).FontSize < 8 Then F(i).FontName = "Small fonts"
            If F(i).FontSize > 6 And F(i).FontName = "Small fonts" Then
                F(i).FontName = "MS Sans Serif"
            End If
            F(i).ControlName = F(i).ControlName
            F(i).ColumnWidth = Int(F(i).width * magn)
        End If
    Next i
    ' If reducing magnification, reduce sections last
    If magn <= 1 Then
        F.width = F.width * magn
        For i = 0 To 2
            F.Section(i).Height = F.Section(i).Height * magn
        Next i
    End If
    ' Resize form and save new magnification setting on form control
    DoCmd.SelectObject A_FORM, F.FormName
    DoCmd.DoMenuItem 0, 4, 5   'Formbar:Window|SizeToFit
End Function
Aufruf im Öffnen-Ereignis des Forms:
Code:
Private Sub Form_Open(Cancel As Integer)
    ResizeAll Me
End Sub
Vielleicht hilft es Euch weiter.
toxicman
kann schon etwas mehr....


Verfasst am:
05. Jun 2012, 13:51
Rufname:
Wohnort: Bei Nürnberg


AW: Auflösung - AW: Auflösung

Nach oben
       Version: Office 2003

Hallo,

habe den unten genannten Code in meine Datenbank eingebaut und dieser würde funktionieren. Nur ein Problem habe ich mit Registersteuerelementen.
Diese werden riesengroß skaliert, wenn darin Buttons eingebaut sind. Sind keine Buttons drin, funktioniert es.

Weis einer, woran es liegen könnte? Ich komme da nicht wirklich weiter.

PS: Ich weis, dieser Thread ist Asbach, aber das war/ist die einzige Lösung für mein Problem mit dem Fensterskalieren in Access.

Mfg Toxic

_________________
Rechtschreibfehler jeder Art dienen zur allgemeinen Belustigung Rolling Eyes
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: listview an Formular Auflösung anpassen 0 DanielHov 44 05. März 2014, 23:30
DanielHov listview an Formular Auflösung anpassen
Keine neuen Beiträge Access Berichte: Welche Größe/Auflösung für Bericht-Hintergrundbild? 1 perlfan 187 07. Aug 2013, 16:52
kyron9000 Welche Größe/Auflösung für Bericht-Hintergrundbild?
Keine neuen Beiträge Access Tabellen & Abfragen: Auflösung von zugesteuerten Formuareinträgen in Abfragen 3 HTH318 74 07. Feb 2013, 20:28
Gast Auflösung von zugesteuerten Formuareinträgen in Abfragen
Keine neuen Beiträge Access Formulare: Probleme mit Auflösung und Schriftgrössen 4 Thom_CH 274 27. Sep 2012, 14:18
Thom_CH Probleme mit Auflösung und Schriftgrössen
Keine neuen Beiträge Access Programmierung / VBA: Auflösung Access 5 Stefan342 474 12. Jul 2012, 11:07
redround Auflösung Access
Keine neuen Beiträge Access Formulare: Popup Fenstergröße an auflösung angepassen 0 Tati-tata 798 01. Apr 2011, 16:57
Tati-tata Popup Fenstergröße an auflösung angepassen
Keine neuen Beiträge Access Programmierung / VBA: Export eines Reports/Forms in festgelegter Auflösung/Format 8 hmmka 375 29. Nov 2010, 15:53
hmmka Export eines Reports/Forms in festgelegter Auflösung/Format
Keine neuen Beiträge Access Berichte: Grafiken in Berichte einbinden / Auflösung 96dpi 0 Brooklyn 1359 24. Mai 2010, 13:56
Brooklyn Grafiken in Berichte einbinden / Auflösung 96dpi
Keine neuen Beiträge Access Formulare: Formulargröße für B.Auflösung XGA (1024x768) optimieren 1 Calvinstefan 1481 20. Mai 2010, 13:07
MissPh! Formulargröße für B.Auflösung XGA (1024x768) optimieren
Keine neuen Beiträge Access Formulare: Reiterleiste verschwindet bei anderer Auflösung 3 Conit 889 25. März 2010, 15:09
KlausMz Reiterleiste verschwindet bei anderer Auflösung
Keine neuen Beiträge Access Tabellen & Abfragen: Hilfe bei Auflösung einer m:n Beziehung 32 dieselross 4099 01. Okt 2009, 12:16
dieselross Hilfe bei Auflösung einer m:n Beziehung
Keine neuen Beiträge Access Formulare: Auflösung ändern! 4 hotcho 1369 21. Jan 2009, 00:35
Willi Wipp Auflösung ändern!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project