|
| |
Visual-Basic Einsteiger| Komischer Effekt | |  | | Autor: Kunoma | | Datum: 18.08.05 14:05 |
| Hallo und guten Tag,
irgendwann hatte ich ein Code gefunden, wo ich die Bildschirmauflösung unter XP umstellen kann.
Toll.
Funktioniert auch, allerdings mit dem Ergebnis, dass nach der Umstellung der Bildschirminhalt auf dem Kopf steht????
Wär ja auch kein Problem, denn mit der Tastenkombination Strg+Alt+UP kann die Sache wieder richtig dargestellt werden. Habe mit SendKeys versucht das Problem in den Griff zu bekommen, allerdings ohne Erfolg.
Ob sich mal jemand den Code anschauen und ev. erklären kann warum der BS-Inhalt um 180 Grad gedreht wird?
Anbei der Code:
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwFlags As Long) As Long
Private Const CCDEVICENAME = 32
Private Const CCFORMNAME = 32
Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Private 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 Long
End Type
'_______________________________________________
Public Sub ChangeScreenResolution(Optional Width, Optional Height, Optional Freq)
Dim i As Long, DevM As DEVMODE
i = 0
Do
i = i + 1
Loop Until Not EnumDisplaySettings(0&, i, DevM)
With DevM
If Not IsMissing(Width) Then
.dmFields = .dmFields Or DM_PELSWIDTH
.dmPelsWidth = Width
End If
If Not IsMissing(Height) Then
.dmFields = .dmFields Or DM_PELSHEIGHT
.dmPelsHeight = Height
End If
If Not IsMissing(Freq) Then
.dmFields = .dmFields Or DM_DISPLAYFREQUENCY
.dmDisplayFrequency = Freq
End If
End With
ChangeDisplaySettings DevM, 0&
End Sub
'___________________________________________________
Private Sub cmdÄndernHoch_Click()
ChangeScreenResolution 1024, 768, 60
End Sub
'___________________________________________________
Private Sub cmdÄndernTief_Click()
ChangeScreenResolution 800, 600, 60
End Sub
'__________________________________________________
Private Sub cmdEnd_Click()
End
End Sub
'_________________________________________________
Danke im Voraus
Kunoma | |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
