كيفية نغيير دقة الشاشة الى 768× 1024

اخي العزيز تحياتي لك اليك طريقة فعل ذلك .

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

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 1024, 768, 32

'ملحوظه اخي "Malekfire"
'1024 هي تغير العرض لها
'768 هي تغير طول الشاششه لهذا الرقم
'32 وهي عدد الالوان الشاشه تستطيع ان تغير في هذه الارقام كما تشاء
'A7med_Prof

او حمل الملف المرفق..... تحياتي لك .

Dsplay_Screen_Four U.zip

اشكرك اخي احمد جزيل الشكر ويا ريت اجاوب على السؤالين الي في المنتدى باسم Malefire :D

العفو انا تحت امرك