ممكن كود تعديل اعدادات الشاشة عند تشغيل البرنامج

 

[color= #339933;]<StructLayout[color= #009900;](LayoutKind[color= #339933;].Sequential[color= #339933;], CharSet[color= #339933;]:=CharSet[color= #339933;].Ansi[color= #009900;])[color= #339933;]> [color= #990000;]_

Friend Structure DEVMODE

 

    [color= #339933;]<MarshalAs[color= #009900;](UnmanagedType[color= #339933;].ByValTStr[color= #339933;], SizeConst[color= #339933;]:=[color= #cc66cc;]32[color= #009900;])[color= #339933;]> [color= #990000;]_

    [color= #000000; font-weight: bold;]Public dmDeviceName [color= #b1b100;]As String

    [color= #000000; font-weight: bold;]Public dmSpecVersion [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmDriverVersion [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmSize [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmDriverExtra [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmFields [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmPositionX [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmPositionY [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmDisplayOrientation [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmDisplayFixedOutput [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmColor [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmDuplex [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmYResolution [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmTTOption [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmCollate [color= #b1b100;]As Short

    [color= #339933;]<MarshalAs[color= #009900;](UnmanagedType[color= #339933;].ByValTStr[color= #339933;], SizeConst[color= #339933;]:=[color= #cc66cc;]32[color= #009900;])[color= #339933;]> [color= #990000;]_

    [color= #000000; font-weight: bold;]Public dmFormName [color= #b1b100;]As String

    [color= #000000; font-weight: bold;]Public dmLogPixels [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmBitsPerPel [color= #b1b100;]As Short

    [color= #000000; font-weight: bold;]Public dmPelsWidth [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmPelsHeight [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmDisplayFlags [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmDisplayFrequency [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmICMMethod [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmICMIntent [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmMediaType [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmDitherType [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmReserved1 [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmReserved2 [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmPanningWidth [color= #b1b100;]As Integer

    [color= #000000; font-weight: bold;]Public dmPanningHeight [color= #b1b100;]As Integer

[color= #990000;]End Structure

 

Friend [color= #000000; font-weight: bold;]Class NativeMethods

 

    [color= #0000ff;]' PInvoke declaration for EnumDisplaySettings Win32 API

[color= #0000ff;]    <DllImport("user32.dll", CharSet:=CharSet.Ansi)> _

[color= #0000ff;]    Public Shared Function EnumDisplaySettings( _

[color= #0000ff;]    ByVal lpszDeviceName As String, _

[color= #0000ff;]    ByVal iModeNum As Integer, _

[color= #0000ff;]    ByRef lpDevMode As DEVMODE) As Integer

[color= #0000ff;]    End Function

 

[color= #0000ff;]    ' PInvoke declaration [color= #b1b100;]for ChangeDisplaySettings Win32 API

    [color= #339933;]<DllImport[color= #009900;]([color= #0000ff;]"user32.dll"[color= #339933;], CharSet[color= #339933;]:=CharSet[color= #339933;].Ansi[color= #009900;])[color= #339933;]> [color= #990000;]_

    [color= #000000; font-weight: bold;]Public Shared [color= #000000; font-weight: bold;]Function ChangeDisplaySettings[color= #009900;]( [color= #990000;]_

    ByRef lpDevMode [color= #b1b100;]As DEVMODE[color= #339933;], [color= #990000;]_

    ByVal dwFlags [color= #b1b100;]As Integer[color= #009900;]) [color= #b1b100;]As Integer

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class ResolutionChanger

 

    [color= #000000; font-weight: bold;]Private Shared [color= #000000; font-weight: bold;]Function CreateDevMode[color= #009900;]([color= #009900;]) [color= #b1b100;]As DEVMODE

        Dim dm [color= #b1b100;]As [color= #000000; font-weight: bold;]New DEVMODE

        dm[color= #339933;].dmDeviceName [color= #339933;]= [color= #000000; font-weight: bold;]New String[color= #009900;]([color= #000000; font-weight: bold;]New Char[color= #009900;]([color= #cc66cc;]32[color= #009900;]) [color= #009900;]{[color= #009900;]}[color= #009900;])

        dm[color= #339933;].dmFormName [color= #339933;]= [color= #000000; font-weight: bold;]New String[color= #009900;]([color= #000000; font-weight: bold;]New Char[color= #009900;]([color= #cc66cc;]32[color= #009900;]) [color= #009900;]{[color= #009900;]}[color= #009900;])

        dm[color= #339933;].dmSize [color= #339933;]= CShort[color= #009900;](Marshal[color= #339933;].[color= #990000;]SizeOf[color= #009900;](dm[color= #009900;])[color= #009900;])

        [color= #b1b100;]Return dm

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

 

    [color= #000000; font-weight: bold;]Public Enum DisplayChangeResultCode

        DISP_CHANGE_SUCCESSFUL [color= #339933;]= [color= #cc66cc;]0

        DISP_CHANGE_RESTART [color= #339933;]= [color= #cc66cc;]1

        DISP_CHANGE_FAILED [color= #339933;]= [color= #cc66cc;]-1

        DISP_CHANGE_BADMODE [color= #339933;]= [color= #cc66cc;]-2

        DISP_CHANGE_NOTUPDATED [color= #339933;]= [color= #cc66cc;]-3

        DISP_CHANGE_BADFLAGS [color= #339933;]= [color= #cc66cc;]-4

        DISP_CHANGE_BADPARAM [color= #339933;]= [color= #cc66cc;]-5

        DISP_CHANGE_BADDUALVIEW [color= #339933;]= [color= #cc66cc;]-6

    [color= #990000;]End Enum

 

    [color= #000000; font-weight: bold;]Public Shared Sub ChangeResolution[color= #009900;](ByVal width [color= #b1b100;]As Integer[color= #339933;], ByVal height [color= #b1b100;]As Integer[color= #339933;], ByVal f
req [color= #b1b100;]As Integer[color= #009900;])

 

        Const DM_PELSWIDTH [color= #b1b100;]As Integer [color= #339933;]= [color= #339933;]&H80000

        Const DM_PELSHEIGHT [color= #b1b100;]As Integer [color= #339933;]= [color= #339933;]&H100000

        Const DM_DISPLAYFREQUENCY [color= #b1b100;]As Integer [color= #339933;]= [color= #339933;]&H400000

        Const ENUM_CURRENT_SETTINGS [color= #b1b100;]As Integer [color= #339933;]= [color= #cc66cc;]-1

        Dim DevM [color= #b1b100;]As DEVMODE [color= #339933;]= CreateDevMode[color= #009900;]([color= #009900;])

        Dim enumResult [color= #b1b100;]As Integer

        Dim changeResult [color= #b1b100;]As DisplayChangeResultCode

 

        DevM[color= #339933;].dmFields [color= #339933;]= DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY

 

        enumResult [color= #339933;]= NativeMethods[color= #339933;].EnumDisplaySettings[color= #009900;](Nothing[color= #339933;], ENUM_CURRENT_SETTINGS[color= #339933;], DevM[color= #009900;])

 

        DevM[color= #339933;].dmPelsWidth [color= #339933;]= width

        DevM[color= #339933;].dmPelsHeight [color= #339933;]= height

        DevM[color= #339933;].dmDisplayFrequency [color= #339933;]= freq

 

        changeResult [color= #339933;]= CType[color= #009900;](NativeMethods[color= #339933;].ChangeDisplaySettings[color= #009900;](DevM[color= #339933;], [color= #cc66cc;]0[color= #009900;])[color= #339933;], DisplayChangeResultC
ode[color= #009900;])

 

        [color= #b1b100;]If changeResult [color= #339933;]<> DisplayChangeResultCode[color= #339933;].DISP_CHANGE_SUCCESSFUL Then

            Throw [color= #000000; font-weight: bold;]New Exception[color= #009900;]([color= #0000ff;]"Failed to change resolution: " [color= #339933;]& changeResult[color= #339933;].ToString[color= #009900;])

        [color= #990000;]End [color= #b1b100;]If

 

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

        ResolutionChanger[color= #339933;].ChangeResolution[color= #009900;]([color= #cc66cc;]800[color= #339933;], [color= #cc66cc;]600[color= #339933;], [color= #cc66cc;]60[color= #009900;])