title image


Smiley TIPP: Bildfrequenz ermitteln
Ich hab die Funktion noch mal überarbeitet (der Ausgangscode war doch ziemlich buggy) - versuchs mal so:



Option Compare Database

Option Explicit



Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _

(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean



Private Const CCDEVICENAME = 32

Private Const CCFORMNAME = 32

Public Const ENUM_CURRENT_SETTINGS = (-1)



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 Long

End Type



Public Function GetDisplayFrequency()

Dim DevM As DEVMODE

EnumDisplaySettings 0&, ENUM_CURRENT_SETTINGS, DevM

GetDisplayFrequency = DevM.dmDisplayFrequency

End Function







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: