khane_bozorg
پنج شنبه 07 اردیبهشت 1391, 23:24 عصر
من 10 تا api برای تغییر display setting میخام ، میخام یه فرم باشه با 10 تا دکمه هر کدوم یه api رو نشون بده و تنظیمات صفحه رو تغییر بده مثل رزولوشن فرکانس رنگ........
برا من بیسواد کلی کار داره اما وقت زیادی از شما نمیگیره یه برادری کنین ما رو شرمنده خودتون کنین
بازم ممنونم از همه
setroyd
جمعه 08 اردیبهشت 1391, 00:23 صبح
برای 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
جمعه 08 اردیبهشت 1391, 12:12 عصر
اقا كمك كنين اين فقط اندازه صفحه رو تغيير ميده !!!!!!! برا نه تا ديگه چكار كنم !!!
تورو خدا يكي يه كمكي بكنه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.