Bildschirmauflösung ändern

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von keydrow.

    Bildschirmauflösung ändern

    Hallo Leute,
    ohne groß rumzureden wie kann ich die Bildschirmauflösung ändern? Ich benutze VB12 und finde nur Sachen die für VB6 u. älter gedacht sind.

    Was hast du den eingegeben? Ich habe es mit "vb bildschirmauflösung ändern", "vb 10 bildschirmauflösung ändern" und "vb 12 bildschirmauflösung ändern" probiert.

    Ok danke das mit dem Converter wusste ich schon. Der Converter sagt mir das:

    Resolution.ScreenResolution.ChangeResolution(Width, Height)

    in VB das ist

    VB.NET-Quellcode

    1. Resolution.ScreenResolution.ChangeResolution(Width, Height)

    Nur das Problem VB Zeigt mir das als Fehler an.

    "Resolution" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.

    Mich macht das "Schutzstufe" Stutzig.

    So ich hab jetzt meine Klasse Resolution
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Windows.Forms
    3. Imports System.Runtime.InteropServices
    4. Class Resolution
    7. <StructLayout(LayoutKind.Sequential)> _
    8. Public Structure DEVMODE1
    9. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    10. Public dmDeviceName As String
    11. Public dmSpecVersion As Short
    12. Public dmDriverVersion As Short
    13. Public dmSize As Short
    14. Public dmDriverExtra As Short
    15. Public dmFields As Integer
    17. Public dmOrientation As Short
    18. Public dmPaperSize As Short
    19. Public dmPaperLength As Short
    20. Public dmPaperWidth As Short
    22. Public dmScale As Short
    23. Public dmCopies As Short
    24. Public dmDefaultSource As Short
    25. Public dmPrintQuality As Short
    26. Public dmColor As Short
    27. Public dmDuplex As Short
    28. Public dmYResolution As Short
    29. Public dmTTOption As Short
    30. Public dmCollate As Short
    31. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    32. Public dmFormName As String
    33. Public dmLogPixels As Short
    34. Public dmBitsPerPel As Short
    35. Public dmPelsWidth As Integer
    36. Public dmPelsHeight As Integer
    38. Public dmDisplayFlags As Integer
    39. Public dmDisplayFrequency As Integer
    41. Public dmICMMethod As Integer
    42. Public dmICMIntent As Integer
    43. Public dmMediaType As Integer
    44. Public dmDitherType As Integer
    45. Public dmReserved1 As Integer
    46. Public dmReserved2 As Integer
    48. Public dmPanningWidth As Integer
    49. Public dmPanningHeight As Integer
    50. End Structure
    54. Class User_32
    55. <DllImport("user32.dll")> _
    56. Public Shared Function EnumDisplaySettings(deviceName As String, modeNum As Integer, ByRef devMode As DEVMODE1) As Integer
    57. End Function
    58. <DllImport("user32.dll")> _
    59. Public Shared Function ChangeDisplaySettings(ByRef devMode As DEVMODE1, flags As Integer) As Integer
    60. End Function
    62. Public Const ENUM_CURRENT_SETTINGS As Integer = -1
    63. Public Const CDS_UPDATEREGISTRY As Integer = &H1
    64. Public Const CDS_TEST As Integer = &H2
    65. Public Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    66. Public Const DISP_CHANGE_RESTART As Integer = 1
    67. Public Const DISP_CHANGE_FAILED As Integer = -1
    68. End Class
    71. Namespace Resolution
    72. Public NotInheritable Class ScreenResolution
    73. Private Sub New()
    74. End Sub
    76. ''' <summary>
    77. ''' Ändert die Bildschirmauflösung in die gewünschte Größe
    78. ''' </summary>
    79. ''' <param name="width"></param>
    80. ''' <param name="height"></param>
    81. Public Shared Sub ChangeResolution(width As Integer, height As Integer)
    82. Dim screen__1 As Screen = Screen.PrimaryScreen
    85. Dim iWidth As Integer = width
    86. Dim iHeight As Integer = height
    89. Dim dm As New DEVMODE1()
    90. dm.dmDeviceName = New [String](New Char(31) {})
    91. dm.dmFormName = New [String](New Char(31) {})
    92. dm.dmSize = CShort(Marshal.SizeOf(dm))
    94. If 0 <> User_32.EnumDisplaySettings(Nothing, User_32.ENUM_CURRENT_SETTINGS, dm) Then
    96. dm.dmPelsWidth = iWidth
    97. dm.dmPelsHeight = iHeight
    99. Dim iRet As Integer = User_32.ChangeDisplaySettings(dm, User_32.CDS_TEST)
    101. If iRet = User_32.DISP_CHANGE_FAILED Then
    102. MessageBox.Show("Unable to process your request")
    103. MessageBox.Show("Description: Unable To Process Your Request. Sorry For This Inconvenience.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    104. Else
    105. iRet = User_32.ChangeDisplaySettings(dm, User_32.CDS_UPDATEREGISTRY)
    107. Select Case iRet
    108. Case User_32.DISP_CHANGE_SUCCESSFUL
    109. If True Then
    110. Exit Select
    112. 'successfull change
    113. End If
    114. Case User_32.DISP_CHANGE_RESTART
    115. If True Then
    117. MessageBox.Show("Description: You Need To Reboot For The Change To Happen." & vbLf & " If You Feel Any Problem After Rebooting Your Machine" & vbLf & "Then Try To Change Resolution In Safe Mode.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    118. Exit Select
    119. 'windows 9x series you have to restart
    120. End If
    121. Case Else
    122. If True Then
    124. MessageBox.Show("Description: Failed To Change The Resolution.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    125. Exit Select
    126. 'failed to change
    127. End If
    128. End Select
    130. End If
    131. End If
    132. End Sub
    133. End Class
    134. End Namespace
    135. End Class

    Jetzt Kommen die Fehler:
    Namespace-Anweisungen können nur auf Namespace- oder Dateiebene verwendet werden.Zeile:71

    "ScreenResolution" ist kein Member von "Test.Resolution"

    *facepalm* Fehler Selber Gefunden!
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Windows.Forms
    3. Imports System.Runtime.InteropServices
    4. Class Resolutions
    6. End Class
    7. <StructLayout(LayoutKind.Sequential)> _
    8. Public Structure DEVMODE1
    9. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    10. Public dmDeviceName As String
    11. Public dmSpecVersion As Short
    12. Public dmDriverVersion As Short
    13. Public dmSize As Short
    14. Public dmDriverExtra As Short
    15. Public dmFields As Integer
    17. Public dmOrientation As Short
    18. Public dmPaperSize As Short
    19. Public dmPaperLength As Short
    20. Public dmPaperWidth As Short
    22. Public dmScale As Short
    23. Public dmCopies As Short
    24. Public dmDefaultSource As Short
    25. Public dmPrintQuality As Short
    26. Public dmColor As Short
    27. Public dmDuplex As Short
    28. Public dmYResolution As Short
    29. Public dmTTOption As Short
    30. Public dmCollate As Short
    31. <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=32)> _
    32. Public dmFormName As String
    33. Public dmLogPixels As Short
    34. Public dmBitsPerPel As Short
    35. Public dmPelsWidth As Integer
    36. Public dmPelsHeight As Integer
    38. Public dmDisplayFlags As Integer
    39. Public dmDisplayFrequency As Integer
    41. Public dmICMMethod As Integer
    42. Public dmICMIntent As Integer
    43. Public dmMediaType As Integer
    44. Public dmDitherType As Integer
    45. Public dmReserved1 As Integer
    46. Public dmReserved2 As Integer
    48. Public dmPanningWidth As Integer
    49. Public dmPanningHeight As Integer
    50. End Structure
    54. Class User_32
    55. <DllImport("user32.dll")> _
    56. Public Shared Function EnumDisplaySettings(deviceName As String, modeNum As Integer, ByRef devMode As DEVMODE1) As Integer
    57. End Function
    58. <DllImport("user32.dll")> _
    59. Public Shared Function ChangeDisplaySettings(ByRef devMode As DEVMODE1, flags As Integer) As Integer
    60. End Function
    62. Public Const ENUM_CURRENT_SETTINGS As Integer = -1
    63. Public Const CDS_UPDATEREGISTRY As Integer = &H1
    64. Public Const CDS_TEST As Integer = &H2
    65. Public Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    66. Public Const DISP_CHANGE_RESTART As Integer = 1
    67. Public Const DISP_CHANGE_FAILED As Integer = -1
    68. End Class
    69. Namespace Resolution
    70. Public NotInheritable Class ScreenResolution
    71. Private Sub New()
    72. End Sub
    74. ''' <summary>
    75. ''' Ändert die Bildschirmauflösung in die gewünschte Größe
    76. ''' </summary>
    77. ''' <param name="width"></param>
    78. ''' <param name="height"></param>
    79. Public Shared Sub ChangeResolution(width As Integer, height As Integer)
    80. Dim screen__1 As Screen = Screen.PrimaryScreen
    83. Dim iWidth As Integer = width
    84. Dim iHeight As Integer = height
    87. Dim dm As New DEVMODE1()
    88. dm.dmDeviceName = New [String](New Char(31) {})
    89. dm.dmFormName = New [String](New Char(31) {})
    90. dm.dmSize = CShort(Marshal.SizeOf(dm))
    92. If 0 <> User_32.EnumDisplaySettings(Nothing, User_32.ENUM_CURRENT_SETTINGS, dm) Then
    94. dm.dmPelsWidth = iWidth
    95. dm.dmPelsHeight = iHeight
    97. Dim iRet As Integer = User_32.ChangeDisplaySettings(dm, User_32.CDS_TEST)
    99. If iRet = User_32.DISP_CHANGE_FAILED Then
    100. MessageBox.Show("Unable to process your request")
    101. MessageBox.Show("Description: Unable To Process Your Request. Sorry For This Inconvenience.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    102. Else
    103. iRet = User_32.ChangeDisplaySettings(dm, User_32.CDS_UPDATEREGISTRY)
    105. Select Case iRet
    106. Case User_32.DISP_CHANGE_SUCCESSFUL
    107. If True Then
    108. Exit Select
    110. 'successfull change
    111. End If
    112. Case User_32.DISP_CHANGE_RESTART
    113. If True Then
    115. MessageBox.Show("Description: You Need To Reboot For The Change To Happen." & vbLf & " If You Feel Any Problem After Rebooting Your Machine" & vbLf & "Then Try To Change Resolution In Safe Mode.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    116. Exit Select
    117. 'windows 9x series you have to restart
    118. End If
    119. Case Else
    120. If True Then
    122. MessageBox.Show("Description: Failed To Change The Resolution.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    123. Exit Select
    124. 'failed to change
    125. End If
    126. End Select
    128. End If
    129. End If
    130. End Sub
    131. End Class
    132. End Namespace