Bildschirmauflösung ändern (UPDATE: Zweite Frage!)

  • VB.NET
  • .NET (FX) 4.0

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von PhoenixBlaster.

    Bildschirmauflösung ändern (UPDATE: Zweite Frage!)

    okay ich hab jetzt diesen code verwendet:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Runtime
    3. Imports System.Runtime.InteropServices
    5. Class ResChanger
    6. <StructLayout(LayoutKind.Sequential)> _
    7. Public Structure DEVMODE
    8. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    9. Public dmDeviceName As String
    10. Public dmSpecVersion As Short
    11. Public dmDriverVersion As Short
    12. Public dmSize As Short
    13. Public dmDriverExtra As Short
    14. Public dmFields As Integer
    15. Public dmOrientation As Short
    16. Public dmPaperSize As Short
    17. Public dmPaperLength As Short
    18. Public dmPaperWidth As Short
    19. Public dmScale As Short
    20. Public dmCopies As Short
    21. Public dmDefaultSource As Short
    22. Public dmPrintQuality As Short
    23. Public dmColor As Short
    24. Public dmDuplex As Short
    25. Public dmYResolution As Short
    26. Public dmTTOption As Short
    27. Public dmCollate As Short
    28. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    29. Public dmFormName As String
    30. Public dmLogPixels As Short
    31. Public dmBitsPerPel As Short
    32. Public dmPelsWidth As Integer
    33. Public dmPelsHeight As Integer
    34. Public dmDisplayFlags As Integer
    35. Public dmDisplayFrequency As Integer
    36. Public dmICMMethod As Integer
    37. Public dmICMIntent As Integer
    38. Public dmMediaType As Integer
    39. Public dmDitherType As Integer
    40. Public dmReserved1 As Integer
    41. Public dmReserved2 As Integer
    42. Public dmPanningWidth As Integer
    43. Public dmPanningHeight As Integer
    44. End Structure
    46. Sub New()
    47. ' TODO: Complete member initialization
    48. End Sub
    50. Private Declare Function EnumDisplaySettings Lib "user32.dll" Alias "EnumDisplaySettingsA" _
    51. (ByVal deviceName As String, ByVal modeNum As Integer, ByRef devMode As DEVMODE) As Integer
    52. Private Declare Function ChangeDisplaySettingsEx Lib "user32.dll" Alias "ChangeDisplaySettingsExA" _
    53. (ByVal lpszDeviceName As String, ByRef lpDevMode As DEVMODE, ByVal hwnd As Int32, _
    54. ByVal dwflags As Int32, ByVal lParam As Int32) As Int32
    55. 'Struktur die die Bildschirmauflösung beschreibt
    56. Public Structure ScreenResolution
    57. Public Resolution As Size
    58. Public ColorDeptI As Integer
    59. Public ColorDeptS As String
    60. Public Total As String
    61. End Structure
    63. Private ScreenRes As New List(Of ScreenResolution)
    64. Private deviceName As String 'dies kann ab .net 2 einfacher mit Screen.PrimaryScreen.Bounds abfegragt werden
    65. Private Const ENUM_CURRENT_SETTINGS As Integer = -1
    66. Private Const CDS_UPDATEREGISTRY As Integer = 1 'entgültige umstellung der auflösung
    67. Private Const CDS_TEST As Integer = 2 'umstellung der auflösung testen
    68. Private Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    69. Private Const DISP_CHANGE_RESTART As Integer = 1
    70. Private Const DISP_CHANGE_FAILED As Integer = -1
    71. Private Const DM_BITSPERPEL = &H40000
    72. Private Const DM_PELSWIDTH = &H80000
    73. Private Const DM_PELSHEIGHT = &H100000
    74. Private Const DM_DISPLAYFREQUENCY = &H400000
    76. ''' <summary>Sub New der ResChanger</summary>
    77. ''' <param name="devName">DeviceName des gewählten Bildschirmes.</param>
    78. Public Sub New(ByVal devName As String)
    79. deviceName = devName
    80. Dim dm As New DEVMODE()
    81. dm.dmDeviceName = New String(New Char(31) {})
    82. dm.dmFormName = New String(New Char(31) {})
    83. dm.dmSize = CShort(Marshal.SizeOf(dm))
    84. Dim counter As Integer = 0
    85. Do
    86. 'durch hochzählen des counter werden alle auflösungen ermittelt, bis 0 zurückgegeben wird 'wenn counter als -1 (ENUM_CURRENT_SETTINGS) übergeben wird, wird die aktuelle auflösung ermittelt
    87. If EnumDisplaySettings(deviceName, counter, dm) <> 0 Then ' Farbtiefe
    88. Dim Colors As String
    89. Select Case dm.dmBitsPerPel
    90. Case 4
    91. Colors = "16 Farben"
    92. Case 8
    93. Colors = "256 Farben"
    94. Case 16
    95. Colors = "HighColor"
    96. Case 24
    97. Colors = "24-Bit"
    98. Case 32
    99. Colors = "TrueColor"
    100. Case Else
    101. 'was eigentlich nicht sein darf
    102. Colors = "Keine Farbtiefe gefunden !!!"
    103. End Select
    104. 'liste füllen
    105. Dim sr As New ScreenResolution
    106. sr.ColorDeptI = dm.dmBitsPerPel
    107. sr.ColorDeptS = Colors
    108. sr.Resolution = New Size(dm.dmPelsWidth, dm.dmPelsHeight)
    109. sr.Total = dm.dmPelsWidth & " x " & dm.dmPelsHeight & " "
    110. sr = Nothing
    111. counter += 1
    112. Else
    113. Exit Do
    114. End If
    115. Loop
    116. End Sub
    118. #Region "Public Functions/Subs"
    119. ''' <summary>Stellt die Bildschrimauflösung.</summary>
    120. ''' <param name="res">Neue Auflösung als Size</param>
    121. ''' <param name="colorDept">Neue Farbtiefe als Integer</param>
    122. ''' <returns>True wenn die Umstellung erfolgreich war sonst False</returns>
    123. Public Function ChangeRes(ByVal res As Size, ByVal colorDept As Integer) As Boolean
    124. Try
    125. 'Struktur für die Übergabe vorbereiten
    126. Dim dm As New DEVMODE
    127. dm.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL Or DM_DISPLAYFREQUENCY
    128. dm.dmPelsHeight = res.Height
    129. dm.dmPelsWidth = res.Width
    130. dm.dmBitsPerPel = colorDept
    131. dm.dmDeviceName = New String(New Char(31) {})
    132. dm.dmFormName = New String(New Char(31) {})
    133. dm.dmSize = CShort(Marshal.SizeOf(dm))
    134. 'Auflösung umstellen
    135. Dim ret As Integer = ChangeDisplaySettingsEx(deviceName, dm, 0&, CDS_UPDATEREGISTRY, 0&)
    136. Select Case ret
    137. Case DISP_CHANGE_SUCCESSFUL
    138. Return True
    139. Case Else
    140. Return False
    141. End Select
    142. dm = Nothing
    143. Return True
    144. Catch ex As Exception
    145. End Try
    146. End Function
    147. #End Region
    149. #Region "Properties"
    150. ''' <summary>Gibt eine Liste mit allen möglichen Bildschrimauflösungen zurück.</summary>
    151. ''' <returns>Bildschirmauflösungen List(Of ScreenResolution)</returns>
    152. Public ReadOnly Property ScreenResolutions() As List(Of ScreenResolution)
    153. Get
    154. Return ScreenRes
    155. End Get
    156. End Property
    157. #End Region
    158. End Class


    Anwendung

    VB.NET-Quellcode

    1. ​ Try
    2. r.ChangeRes(New Size(1920, 1200), 32)
    3. Catch ex As Exception
    4. End Try


    der funktioniert auch, komisch ist nur obwohl es funktioniert bekomm ich bei der Abfrage zurück das es nicht funktioniert hat außerdem zittert alles nach der Auflösungsänderung das zu unterbinden mit lockwindowupdate hat nicht funktioniert

    mfg

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „PhoenixBlaster“ ()

    DllImport, MessageBox.Show, zusätzlich: https://www.google.de/url?sa=t&rct=j&q=&esrc=s&source=web&cd=2&cad=rja&uact=8&ved=0CCkQFjAB&url=https%3A%2F%2Fwww.vb-paradise.de%2Findex.php%2FThread%2F61310-B%25C3%25B6ses-aus-VB6-VB2003-und-die-richtigen-VB-NET-Alternativen%2F&ei=g5DWU_SXHsKuPLCbgbAN&usg=AFQjCNENlIU5-qWBlp5zy8wyiU-L0nvvuQ&bvm=bv.71778758,d.ZWU

    Das von Dir angesprochene "As String * CCDEVICENAME" ist wohl irgendso nen Option Strict Off-Zeugs in VB.NET, wobei ein String mit nem Integer multipliziert wird.
    In .NET musste das halt parsen oder gleich den richtigen Typen verwenden.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende