РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss Статус: Академик Рейтинг: 593 ∙ повысить рейтинг »

Калеев Владимир Викторович Статус: 5-й класс Рейтинг: 142 ∙ повысить рейтинг »

AMV007 Статус: 3-й класс Рейтинг: 124 ∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / WinAPI

Вопрос № 145290: Есть ли функции API с помощью которых можно менять разрешение экрана монитора....

Есть ли функции API с помощью которых можно менять
разрешение экрана монитора.

Отправлен: 28.09.2008, 13:46
Вопрос задал: Кулешов Владимир Григорьевич, Посетитель
Всего ответов: 3
Страница вопроса »

Ответ отправил: estiGi, Практикант
Ответ отправлен: 28.09.2008, 14:17

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 230602 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает DrakoN, Практикант :
Здравствуйте, Кулешов Владимир Григорьевич!
В приложении пример на VB.Net (VS 2005).
Удачи

Приложение:
Option Strict Off Option Explicit On <System.Runtime.InteropServices.ProgId("clsDisplaySettings_NET.clsDisplaySettings")> Public Class clsDisplaySettings Private Structure DEVMODE <VBFixedString(32),System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,SizeConst:=32)> Public dmDeviceName As String Dim dmSpecVersion As Short Dim dmDriverVersion As Short Dim dmSize As Short Dim dmDriverExtra As Short Dim dmFields As Integer Dim dmOrientation As Short Dim dmPaperSize As Short Dim dmPaperLength As Short Dim dmPaperWidth As Short Dim dmScale As Short Dim dmCopies As Short Dim dmDefaultSource As Short Dim dmPrintQuality As Short Dim dmColor As Short Dim dmDuplex As Short Dim dmYResolution As Short Dim dmTTOption As Short Dim dmCollate As Short <VBFixedString(32),System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,SizeConst:=32)> Public dmFormName As String Dim dmUnusedPadding As Short Dim dmBitsPerPixel As Short Dim dmPelsWidth As Integer Dim dmPelsHeight As Integer Dim dmDisplayFlags As Integer Dim dmDisplayFrequency As Integer \' The following only appear in Windows 95, 98, 2000 Dim dmICMMethod As Integer Dim dmICMIntent As Integer Dim dmMediaType As Integer Dim dmDitherType As Integer Dim dmReserved1 As Integer Dim dmReserved2 As Integer \' The following only appear in Windows 2000 Dim dmPanningWidth As Integer Dim dmPanningHeight As Integer End Structure Private Declare Function EnumDisplaySettings Lib "user32.dll" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As String, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean Const ENUM_CURRENT_SETTINGS As Short = -1 Private Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer Const CDS_UPDATEREGISTRY As Short = &H1s Const CDS_TEST As Short = &H2s Const DISP_CHANGE_SUCCESSFUL As Short = 0 Const DISP_CHANGE_RESTART As Short = 1 Public Function ChangeDisplay(ByRef lngpxlsWidth As Integer, ByRef lngpxlsHeight As Integer) As Integer Dim dm As New DEVMODE \' display settings Dim retval As Integer = 0 \' return value \' Change the resolution settings to passed Resolution Dim value(32) As Char dm.dmDeviceName = New String(value, 0, value.Length) dm.dmFormName = New String(value, 0, value.Length) dm.dmSize = CShort(System.Runtime.InteropServices.Marshal.SizeOf(dm)) If EnumDisplaySettings(vbNullString, ENUM_CURRENT_SETTINGS, dm) = False Then System.Diagnostics.Debug.WriteLine("Unhandle errorr while getting display settings") Exit Function End If dm.dmPelsWidth = lngpxlsWidth dm.dmPelsHeight = lngpxlsHeight retval = ChangeDisplaySettings(dm, CDS_TEST) If retval <> DISP_CHANGE_SUCCESSFUL Then System.Diagnostics.Debug.WriteLine("Cannot change to that resolution!") Else Try retval = ChangeDisplaySettings(dm, CDS_UPDATEREGISTRY) Catch ex As Exception System.Diagnostics.Debug.WriteLine(ex.ToString) End Try Select Case retval Case DISP_CHANGE_SUCCESSFUL ChangeDisplay = 1 Case DISP_CHANGE_RESTART ChangeDisplay = 2 Case Else ChangeDisplay = 3 End Select End If End Function Public Function GetCurrentDisplaySettings() As Integer() \'This function returns current screen resolution Dim Display(1) As Integer Dim dm As New DEVMODE \' display settings Dim retval As Integer = 0 \' return value Try \' Change the resolution settings to passed Resolution Dim value(32) As Char dm.dmDeviceName = New String(value, 0, value.Length) dm.dmFormName = New String(value, 0, value.Length) dm.dmSize = CShort(System.Runtime.InteropServices.Marshal.SizeOf(dm)) If EnumDisplaySettings(vbNullString, ENUM_CURRENT_SETTINGS, dm) = False Then System.Diagnostics.Debug.WriteLine("Unhandle errorr while getting display settings") Display = Nothing Exit Function End If Display(1) = dm.dmPelsHeight Display(0) = dm.dmPelsWidth Catch ex As Exception MsgBox("Unhandle errorr while getting display settings") Display = Nothing End Try Return Display End Function End Class
-----
От Винта!

Ответ отправил: DrakoN, Практикант
Ответ отправлен: 28.09.2008, 15:10

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 230605 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает PavelGM, Практикант :
Здравствуйте, Кулешов Владимир Григорьевич!

Platform SDK, пример SetDisp, ключевая функция в приложении

Приложение:
/**************************************************************************** * * FUNCTION : ChangeResolution (UINT nNewMode, HWND hwnd) * * PURPOSE : Change the resolution to the nNewMode index DEVMODE * \****************************************************************************/ BOOL ChangeResolution ( UINT nNewMode, HWND hwnd ) { LONG lResult; //Result of ChangeDisplaySettings INT_PTR nUserResponse; //Return from VerifyRes Dlg UINT nOldMode; /* ChangeDisplaySettings can set dmBitsPerPel Bits per pixel dmPelsWidth Pixel width dmPelsHeight Pixel height dmDisplayFlags Mode flags dmDisplayFrequency Mode frequency but one of these must be set in the DEVMODE dmFields DM_BITSPERPEL Use the dmBitsPerPel value. DM_PELSWIDTH Use the dmPelsWidth value. DM_PELSHEIGHT Use the dmPelsHeight value. DM_DISPLAYFLAGS Use the dmDisplayFlags value. DM_DISPLAYFREQENCY Use the dmDisplayFrequency value. dmSize must be set to the size, in bytes, of the DEVMODE structure. */ // // First select a DevMode to use // to start, just cycling through them // nOldMode = gnCurrentMode; gnCurrentMode = nNewMode; // // Increment ptr to the new mode // gpCurrentMode = gpDevModes; gpCurrentMode += nNewMode; // // Verify that the DEVMODE select will change something // if (!(DM_BITSPERPEL & gpCurrentMode->dmFields || DM_PELSWIDTH & gpCurrentMode->dmFields || DM_PELSHEIGHT & gpCurrentMode->dmFields || DM_DISPLAYFLAGS & gpCurrentMode->dmFields || DM_DISPLAYFREQUENCY & gpCurrentMode->dmFields ) ) { // // Note our DEVMODE returned from EnumDisplaySettings // So we should never enter here // gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; return (FALSE); } /************************************************************\ * * * Possible Flags for param 2 of ChangeDisplay Settings * * 0 The graphics mode for the current * * screen will be changed dynamically. * * CDS_UPDATEREGISTRY The graphics mode for the * * current screen will be changed dynamically * * and the graphics mode will be updated in * * the registry. The mode information is * * stored in the USER profile. * * CDS_TEST The system tests if the requested * * graphics mode could be set. * * * \************************************************************/ // // First have the system test if we can set it // // // Param 1 is the new DEVMODE // Param 2 is Test Flag, // which asks the operating system if this is a valid setting // to change to -- wedon\'t want to make the system unusable // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, CDS_TEST ); if (lResult == DISP_CHANGE_RESTART) { MessageBox(hwnd, "This mode requires a reboot which\n" \ "is not supported in this sample.", "SetDisp Message", IDOK); gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; return FALSE; } if (DISP_CHANGE_SUCCESSFUL ==lResult) { // // Param 2 is 0 to change dynamically // hence the app name SetDisp! // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, 0 ); } switch (lResult) { case DISP_CHANGE_SUCCESSFUL: //The settings change was successful. TRC("DISP_CHANGE_SUCCESSFUL\n"); break; case DISP_CHANGE_RESTART: //The computer must be restarted in order // for the graphics mode to work. TRC("DISP_CHANGE_RESTART\n"); break; case DISP_CHANGE_BADFLAGS: //An invalid set of flags was passed in. TRC("DISP_CHANGE_BADFLAGS\n"); break; case DISP_CHANGE_FAILED: //The display driver failed the specified // graphics mode. TRC("DISP_CHANGE_FAILED\n"); break; case DISP_CHANGE_BADMODE: //The graphics mode is not supported. TRC("DISP_CHANGE_BADMODE\n"); break; case DISP_CHANGE_NOTUPDATED: //Windows NT only: Unable to write settings // to the registry. TRC("DISP_CHANGE_NOTUPDATED\n"); break; default: TRC("Undocumented return value!!!!\n"); break; } // // Set a timer to only give the user so much // time to dedice incase the screen is garbled // SetTimer(hwnd, VERIFY_RESCHANGE, VERIFY_TIMEOUT, VerifyTimerProc); // // Have the user verify the new resolution and depth // nUserResponse = DialogBox(g_hinst,// handle this application MAKEINTRESOURCE(IDD_VERIFYRES),// identifies dialog box template NULL, // handle to owner window VerifyDlgProc); // the dialog box procedure // // The verification is over, kill the timer // KillTimer(hwnd, VERIFY_RESCHANGE); if (IDYES == nUserResponse) { // // Keep resolution and update registry // char szTip[50]; // // TODO: give them three choices: // Dynamic only, Registry too, or Abort // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, CDS_UPDATEREGISTRY ); // Flag to update registry switch (lResult) { case DISP_CHANGE_SUCCESSFUL: // // The settings change was successful. // TRC("DISP_CHANGE_SUCCESSFUL - reg\n"); wsprintf(szTip,"%d x %d, %d bit color at %d hz", gpCurrentMode->dmPelsWidth, gpCurrentMode->dmPelsHeight, gpCurrentMode->dmBitsPerPel, gpCurrentMode->dmDisplayFrequency); { // // Update the Menu informtion, just a check mark for now // HMENU hMenu, hMenu2; hMenu = GetMenu(hwnd); hMenu2 = GetSubMenu (hMenu, 0); // // Uncheck the old // CheckMenuItem (hMenu2, nOldMode, MF_BYPOSITION | MF_UNCHECKED); // // Check the new // CheckMenuItem (hMenu2, gnCurrentMode, MF_BYPOSITION | MF_CHECKED); } // // Update the Notify_Icon quick tip // TrayMessage(hwnd, NIM_MODIFY, g_sDlgItems[0].uNotify, LoadImage(g_hinst, MAKEINTRESOURCE(IDI_SETDISP), IMAGE_ICON, 16, 16, 0), szTip); break; case DISP_CHANGE_RESTART: //The computer must be restarted in order // for the graphics mode to work. TRC("DISP_CHANGE_RESTART - reg\n"); break; case DISP_CHANGE_BADFLAGS: //An invalid set of flags was passed in. TRC("DISP_CHANGE_BADFLAGS - reg\n"); break; case DISP_CHANGE_FAILED: //The display driver failed the specified // graphics mode. TRC("DISP_CHANGE_FAILED - reg\n"); break; case DISP_CHANGE_BADMODE: //The graphics mode is not supported. TRC("DISP_CHANGE_BADMODE - reg\n"); break; case DISP_CHANGE_NOTUPDATED: //Windows NT only: Unable to write settings // to the registry. TRC("DISP_CHANGE_NOTUPDATED - reg\n"); break; default: TRC("Undocumented return value!!!! - reg\n"); break; } } else { // // The user chose to not keep the setting or we timed out // so they may not have seen the dialog box to choose // // Change resolution back by calling // ChangeDisplaySettings // with a NULL DEVMODE which returns us to the current // registry settings // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( NULL, 0 ); // 0 to change dynamically gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; } return (TRUE); }

Ответ отправил: PavelGM, Практикант
Ответ отправлен: 29.09.2008, 10:46

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 230677 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Здравствуйте.
Перекопал кучу материала, но так и не смог установить в своей программе в качестве фона диалогового окна какую-нибудь картинку.
Вообще говоря не получается даже сделать фон диалога, например, черным.
Был бы очень признателен, если бы получил фрагмент кода описывающего процедуру установки фона диалога.
Если понадобится, могу выложить свой код. А вы, уважаемые эксперты, посмотрите где там ошибка.
Заранее спасибо.

Отправлен: 11.11.2005, 08:06
Вопрос задал: Wooden
Всего ответов: 2
Страница вопроса »

Ответ отправил: Лысков Игорь Витальевич, Модератор
Ответ отправлен: 11.11.2005, 11:16

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 71380 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает estiGi, Практикант :
Здравствуйте, Wooden!
Если как минимум два способа
можно рисовать в WM_PAINT - все что угодно по контексту GetDC/ReleaseDC
если просто заливать фон одним цветом или картинкой (да и не только - все возможности кисти HBRUSH), то можно возвращать свою кисть из обработчика WM_CTLCOLOR - причем для каждого типа контрола свою кисть можно. В общем, см. в МСДН - http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_mfcnotes_TN062.asp

Ответ отправил: estiGi, Практикант
Ответ отправлен: 11.11.2005, 14:39

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 71421 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Здрвствуйте. Беда такая: В программе есть модальный диалог и в нем окно редактирования. Самое примитивное. Все работает, только при нажатии на "Enter"(например ,чтобы перевести курсор на следующую строку) окно диалога закрывается. Может, у кого была такая уха? Подскажите пожалуйста. Спасибо.

Отправлен: 04.12.2006, 17:33
Вопрос задал: Lameruga
Всего ответов: 3
Страница вопроса »

Ответ отправил: Tek, Студент
Ответ отправлен: 04.12.2006, 17:57

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 129994 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Григорьеа Владимир Дмитриевич, 2-й класс :
Здравствуйте, Lameruga!
Немного подправлю,возможно ошибаюсь,не ID_OK а IDOK.

Ответ отправил: Григорьеа Владимир Дмитриевич, 2-й класс
Ответ отправлен: 04.12.2006, 18:08

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 129996 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает Gladiator, Студент :
Здравствуйте, Lameruga!
Если глянуть в Windows.pas, то мы увидим следующее:
{$EXTERNALSYM IDOK}
IDOK = 1; ID_OK = IDOK;

Следовательно, не принципиально, ID_OK или IDOK.

Ответ отправил: Gladiator, Студент
Ответ отправлен: 05.12.2006, 08:08

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 130052 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

подать вопрос экспертам этой рассылки »