Bildschirmauflösung ändern

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Dodo.

    Wahrscheinlich kommt gleich, das ist C# ich brauch aber VB.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Hier hast dus. Du brauchst nur die ChangeDisplayResolution-Methode aufzurufen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. <DllImport("user32.dll")>
    3. Public Shared Function EnumDisplaySettings(deviceName As String, modeNum As Integer, ByRef devMode As DEVMODE) As Integer
    4. End Function
    5. <DllImport("user32.dll")>
    6. Public Shared Function ChangeDisplaySettings(ByRef devMode As DEVMODE, flags As Integer) As Integer
    7. End Function
    9. Public Const ENUM_CURRENT_SETTINGS = -1
    10. Public Const CDS_UPDATEREGISTRY = &H1
    12. Public Sub ChangeDisplayResolution(width As Integer, height As Integer)
    13. Dim dm As DEVMODE
    14. dm.dmDeviceName = New String(New Char(31) {})
    15. dm.dmFormName = New String(New Char(31) {})
    16. dm.dmSize = Convert.ToInt16(Marshal.SizeOf(dm))
    17. EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, dm)
    18. dm.dmPelsWidth = width
    19. dm.dmPelsHeight = height
    20. ChangeDisplaySettings(dm, CDS_UPDATEREGISTRY)
    21. End Sub
    22. End Class
    24. <StructLayout(LayoutKind.Sequential)> _
    25. Public Structure DEVMODE
    26. Public Const CCHDEVICENAME As Integer = 32
    27. Public Const CCHFORMNAME As Integer = 32
    29. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCHDEVICENAME)> _
    30. Public dmDeviceName As String
    31. Public dmSpecVersion As Short
    32. Public dmDriverVersion As Short
    33. Public dmSize As Short
    34. Public dmDriverExtra As Short
    35. Public dmFields As DM
    37. Public dmOrientation As Short
    38. Public dmPaperSize As Short
    39. Public dmPaperLength As Short
    40. Public dmPaperWidth As Short
    42. Public dmScale As Short
    43. Public dmCopies As Short
    44. Public dmDefaultSource As Short
    45. Public dmPrintQuality As Short
    46. Public dmColor As Short
    47. Public dmDuplex As Short
    48. Public dmYResolution As Short
    49. Public dmTTOption As Short
    50. Public dmCollate As Short
    51. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=CCHFORMNAME)> _
    52. Public dmFormName As String
    53. Public dmLogPixels As Short
    54. Public dmBitsPerPel As Integer
    55. Public dmPelsWidth As Integer
    56. Public dmPelsHeight As Integer
    57. Public dmDisplayFlags As Integer
    58. Public dmDisplayFrequency As Integer
    60. Public dmICMMethod As Integer
    61. Public dmICMIntent As Integer
    62. Public dmMediaType As Integer
    63. Public dmDitherType As Integer
    64. Public dmReserved1 As Integer
    65. Public dmReserved2 As Integer
    66. Public dmPanningWidth As Integer
    67. Public dmPanningHeight As Integer
    69. Public dmPositionX As Integer
    70. Public dmPositionY As Integer
    71. End Structure
    73. <Flags()> _
    74. Enum DM As Integer
    75. Orientation = &H1
    76. PaperSize = &H2
    77. PaperLength = &H4
    78. PaperWidth = &H8
    79. Scale = &H10
    80. Position = &H20
    81. NUP = &H40
    82. DisplayOrientation = &H80
    83. Copies = &H100
    84. DefaultSource = &H200
    85. PrintQuality = &H400
    86. Color = &H800
    87. Duplex = &H1000
    88. YResolution = &H2000
    89. TTOption = &H4000
    90. Collate = &H8000
    91. FormName = &H10000
    92. LogPixels = &H20000
    93. BitsPerPixel = &H40000
    94. PelsWidth = &H80000
    95. PelsHeight = &H100000
    96. DisplayFlags = &H200000
    97. DisplayFrequency = &H400000
    98. ICMMethod = &H800000
    99. ICMIntent = &H1000000
    100. MediaType = &H2000000
    101. DitherType = &H4000000
    102. PanningWidth = &H8000000
    103. PanningHeight = &H10000000
    104. DisplayFixedOutput = &H20000000
    105. End Enum


    Ich übernehme keine Gewähr dafür, dass das funktioniert, ich hab den Code selber nur kopiert.

    VisualBasicer schrieb:

    Ich glaub ich weiß jetzt was ich machen muss.
    Wie oft willst Du denn die Bildschirmauflösung ändern, dass Du ein Programm dafür schreibst?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Irgendwie hört sich das so an als ob die Windows Einstellung die Auflösung nicht anbietet und deswegen möchte er ein Prog schreiben welches sie umstellt. Fakt is aber wenn die Auflösung nicht utnerstützt wird, kannst sie auch nicht ändern, z.B. bei falschen Grafikkartentreiber oder so. In den Windowseinstellungen ließt Windows die verfügbaren Auflösungen aus und bietet sie dir als Slider oder Auswahl an.

Facebook
Telefonspende