تغییر رزولیشین کامپیوتر

سلام می خواستم بدونم چطوری میشه رزولیشن کامپیوترمو تغییر بدم:20:
در حقیقت دو تا کار می خوام بکنم
یک کد برای اینکه بفهمم رزولیشین کامپیوتر چند در چنده
یک کد دیگه بری تغییر رزولیشین کامپیوتر:5:
منتظر جوام

سلام بهرام جان!

نقل قول:

---

می خواستم بدونم چطوری میشه رزولیشن کامپیوترمو تغییر بدم

---

کاری نداره برو تو Display Properties تغییرش بده :دی (شوخی)

خوب برای بدست آوردن Resolution از این کد استفاده شود:

کد:

---

Const SM_CXSCREEN = 0        'Width  of screen
Const SM_CYSCREEN = 1        'Height of Screen

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long


Private Sub Form_Load()
  MsgBox "Resolution: " + CStr(GetSystemMetrics(SM_CXSCREEN)) + "x" + CStr(GetSystemMetrics(SM_CYSCREEN))
End Sub

---

و برای تغییرش هم به اینجاها یه نگاهی بنداز:

کد:

---

http://www.dreamincode.net/code/snippet879.htm

---

کد:

---

http://www.vb-helper.com/howto_change_display_mode_xp.html

---

موفق باشی دوست خوبم! :11:

ممنون جیگر طلا [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---


Private Const DM_PELSWIDTH = &H80000
Private Const DM_PELSHEIGHT = &H100000
Private Const CDS_UPDATEREGISTRY = &H1

Private 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
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
dmPanningWidth As Long
dmPanningHeight As Long
End Type

Private Declare Function ChangeDisplaySettingsEx Lib "user32" Alias "ChangeDisplaySettingsExA" (lpszDeviceName As Any, lpDevode As Any, ByVal hWnd As Long, ByVal dwFlags As Long, lParam As Any) As Long

Dim PrevX As Long, PrevY As Long

Private Sub Form_Load()
Dim Dev As DEVMODE
PrevX = Screen.Width / Screen.TwipsPerPixelX
PrevY = Screen.Height / Screen.TwipsPerPixelY
Dev.dmSize = Len(Dev)
Dev.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
Dev.dmPelsWidth = 800
Dev.dmPelsHeight = 600
ChangeDisplaySettingsEx ByVal 0&, Dev, ByVal 0&, CDS_UPDATEREGISTR, ByVal 0&
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim Dev As DEVMODE
Dev.dmSize = Len(Dev)
Dev.dmPelsWidth = PrevX
Dev.dmPelsHeight = PrevY
ChangeDisplaySettingsEx ByVal 0&, Dev, ByVal 0&, CDS_UPDATEREGISTR, ByVal 0&
End Sub

________

---

مرسی جواب رو داده بودن
ولی بازم زحمت کشیدین ممنون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مرسی جواب رو داده بودن
ولی بازم زحمت کشیدین ممنون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

سلام خواهش می کنم
ولی این برنامش یکم با اون یکی فرق داره اول رزولیشن فعلی را می گیره بعد تغییر می ده در آخر هم به حالت اول بر می گرده