title image


Smiley Screen resolution revisited
Bei mir zumindest flimmert der Bildschirm nach der Umstellung tierisch, da die Wiederholfrequenz auf den Minimalwert gesetzt wird (mag ein Fehler meines Grafiktreibers sein...), Abhilfe schafft, gleichzeitig die Wiederholfrequenz zu setzen:Option Compare DatabaseOption Explicit '------------------------------------------------------------' Global Declarations for ChangeScreenResolution'------------------------------------------------------------ Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As BooleanPrivate Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" _(lpDevMode As Any, ByVal dwFlags As Long) As Long Private Const CCDEVICENAME = 32Private Const CCFORMNAME = 32Private Const DM_PELSWIDTH = &H80000Private Const DM_PELSHEIGHT = &H100000Private Const DM_DISPLAYFREQUENCY = &H400000 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As LongEnd Type '------------------------------------------------------------'Comments : Allows changing of screen resolution in Win95' Example: Call ChangeScreenResolution(800,600)'Parameters: iWidth, iheight: integer values of resolution'Sets : Requested screen resolution or if screen is' already at resolution returns true'Returns : None'Created by: Bridgett M. Cole, Saltware Computer Services'Created : 12/1/97 8:15:58 PM'------------------------------------------------------------Public Sub ChangeScreenResolution(Optional iWidth As Long = 1024, _ Optional iHeight As Long = 768, _ Optional iFreq As Long = 75)Dim A As Boolean, I As Long, B As Long, DevM As DEVMODE I = 0 Do I = I + 1 Loop Until Not EnumDisplaySettings(0&, I, DevM) With DevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY .dmPelsWidth = iWidth .dmPelsHeight = iHeight .dmDisplayFrequency = iFreq End With ChangeDisplaySettings DevM, 0&End Sub Reinhard


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: