درخواست کمک عاجزانه !!!! خواهشا کمک کنین...

[khane_bozorg]

من 10 تا api برای تغییر display setting میخام ، میخام یه فرم باشه با 10 تا دکمه هر کدوم یه api رو نشون بده و تنظیمات صفحه رو تغییر بده مثل رزولوشن فرکانس رنگ........


برا من بیسواد کلی کار داره اما وقت زیادی از شما نمیگیره یه برادری کنین ما رو شرمنده خودتون کنین


بازم ممنونم از همه

[setroyd]

برای display هست

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

Private Const CDS_FULLSCREEN = &H4
Private Const CDS_GLOBAL = &H8
Private Const CDS_NORESET = &H10000000
Private Const CDS_RESET = &H40000000
Private Const CDS_TEST = &H2
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 'Win2000
dmPanningHeight As Long 'Win2000
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 OldX As Long, OldY As Long

Private Sub Form_Load()
Dim Dev As DEVMODE

OldX = Screen.Width / Screen.TwipsPerPixelX
OldY = 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 = OldX
Dev.dmPelsHeight = OldY

ChangeDisplaySettingsEx ByVal 0&, Dev, ByVal 0&, CDS_UPDATEREGISTR, ByVal 0&
End Sub

[khane_bozorg]

اقا كمك كنين اين فقط اندازه صفحه رو تغيير ميده !!!!!!! برا نه تا ديگه چكار كنم !!!

تورو خدا يكي يه كمكي بكنه