Private Sub btn_normal_mode_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_normal_mode.Click
        Dim f As New Funktionen()
        SetResolution()
    End Sub

    Imports System.Runtime.InteropServices
 
Public Class Funktionen
 
' ...
' ...
' ...
 
Public Function SetResolution( _
    ByVal Width As Int32, _
    ByVal Height As Int32, _
    ByVal BitsPerPixel As Int16 _
) As Boolean
        Dim dm As DEVMODE
        If Not EnumDisplaySettings(Nothing, 0, dm) Then
            Return False
        Else
            With dm
                .dmFields = _
                    DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
                .dmPelsWidth = 1280
                .dmPelsHeight = 1024
                .dmBitsPerPel = 32
            End With
            Return (ChangeDisplaySettings(dm, 0) = DISP_CHANGE_SUCCESSFUL)
        End If
    End Function
End Class

_________________________________________________________________________________

Systemintegrator der Spa? am Programmieren gefunden hat!
Bitte nicht hauen, wenn ich etwas Falsches, oder Quatsch von mir gebe ;)

Beitrag wurde zuletzt am 26.07.12 um 11:33:00 editiert.