كيفية جعل عرض الشاشه الدسبلاي

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته :

أخي العزيز :: أحمد :: وفقك الله

إذا أردت تغيير دقة الشاشة إلى الدقة 800 × 600 أو إلى أي دقة أخرى فإليك الكود التالي :

1- ضع هذا الكود في ملف Module :

Public Const DISP_CHANGE_SUCCESSFUL = 0
Public Const DISP_CHANGE_RESTART = 1
Public Const DISP_CHANGE_FAILED = -1
Public Const CDS_UPDATEREGISTRY = 1
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSHEIGHT = &H100000
Public Const DM_PELSWIDTH = &H80000
Const BITSPIXEL = 12

Public Type DevMode
    dmDeviceName As String * 32
    dmSpecVersion As Integer
    dmDriverVersion As Integer
    dmSize As Integer
    dmDriverExtra As Integer
    dmFields As Long
    dmOrientation As Integer
    dmPaperSize As Integer
    dmPaperLength As Integer
    dmPaperWidth As Integer
    dmScale As Integer
    dmCopies As Integer
    dmDefaultSource As Integer
    dmPrintQuality As Integer
    dmColor As Integer
    dmDuplex As Integer
    dmYResolution As Integer
    dmTTOption As Integer
    dmCollate As Integer
    dmFormName As String * 32
    dmLogPixels As Integer
    dmBitsPerPel As Long
    dmPelsWidth As Long
    dmPelsHeight As Long
    dmDisplayFlags As Long
    dmDisplayFrequency As Long
    dmICMMethod As Long                                    ' Windows 95 only
    dmICMIntent As Long                                    ' Windows 95 only
    dmMediaType As Long                                    ' Windows 95 only
    dmDitherType As Long                                   ' Windows 95 only
    dmICCManufacturer As Long                              ' Windows 95 only
    dmICCModel As Long                                     ' Windows 95 only
    dmPanningWidth As Long                                 ' Windows 95 only
    dmPanningHeight As Long                                ' Windows 95 only
End Type

Public Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As DevMode, ByVal dwFlags As Long) As Long


Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long

Public Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Any) As Long



Public ScreenWidth, ScreenHeight As Integer
Public X, Y As Integer
Public intOldBITSPIXEL As Long
Dim I As Integer

Public Sub ChangeIt(lPelsWidth As Long, lPelsHeight As Long, lBitsPerPel As Long)

    Dim utDevMode As DevMode
    Dim iRes As Long
    Dim sMsg As String

    With utDevMode
        .dmSize = Len(utDevMode)
        .dmPelsWidth = lPelsWidth
        .dmPelsHeight = lPelsHeight
        .dmBitsPerPel = lBitsPerPel
        .dmFields = DM_BITSPERPEL Or DM_PELSHEIGHT Or DM_PELSWIDTH
    End With

    iRes = ChangeDisplaySettings(utDevMode, CDS_UPDATEREGISTRY)

    Select Case iRes
        Case Is = DISP_CHANGE_SUCCESSFUL
            'sMsg = "Display setting has been changed successfully."
        Case Is = DISP_CHANGE_RESTART
            sMsg = "You have to restart your computer in order to carry out the new setting."
        Case Is = DISP_CHANGE_FAILED
            sMsg = "Sorry, failed to change the display setting."
    End Select

    If sMsg <> vbNullString Then MsgBox sMsg, , "Display"

End Sub

ثم استخدم الكود التالي في المكان والحدث الذين تراهما مناسبين :

    ChangeIt 800, 600, 16

وتقبل تحياتي :: المبرمج أحمد ::

وإليك المثال التالي الذي يقوم بالتالي :

1- حفظ الدقة الحالية في متغير .

2- عند تشغيل البرنامج يقو بتغيير الدقة إلى 1024 × 768

3- عند الخروج من البرنامج يقوم بإعادة الدقة كما كانت عليه قبل تشغيل البرنامج .

وفقك الله لفعل الخير دائما يا أخ أحمد

أخوك / المبرمج أحمد

AH_Resolution.zip

شكرا لك على الرد السريع

أخي أحمد

لا شكر على واجب ، وأنا في خدمة الأعضاء دائمًا

والسلام عليكم

عزيزى المبرمج أحمد

الكود ده لاى ويندز ولا 95 فقط ؟

جزاك الله خيرا

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ،،

أخي العزيز / أحمد فتحي

لقد قمت بتجربة الكود على نظامي التشغيل Windows XP,Windows Me وقد عمل عليهما بكفاءة إذًا فهو ليس مقتصرًا على Windows 95 فقط

وتقبل تحياتي / المبرمج أحمد