| Вопрос: Смена разрешения экрана | Добавлено: 27.11.05 17:57 |
Автор вопроса:  Tamplier | ICQ: 298742928 |
| С помощью чего и как сие чудо возможно? |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 1 Автор ответа:  Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #1 | Добавлено: 27.11.05 20:33 |
| В библиотеке кодов и/или примерах должно быть | ||
|
Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #2 | Добавлено: 28.11.05 12:36 |
| Причем только я раза три тут постил. В ПОИСК! | ||
|
Номер ответа: 3 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #3 | Добавлено: 28.11.05 17:17 |
| Да и я вроде разок постил. | ||
|
Номер ответа: 4 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #4 | Добавлено: 28.11.05 17:39 |
| Пасиб | ||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 28.11.05 18:16 |
|
Причем только я раза три тут постил. В ПОИСК! Опять про поиск  треть(меньшая) только работает от всего поиска!
|
||
|
Номер ответа: 6 Автор ответа:  «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #6 | Добавлено: 28.11.05 18:38 |
> Noviks (AgentFire)
С помощью чего и как сие чудо возможно?
' Узнаем
Private Sub Form_Load() Dim intWidth As Integer Dim intHeight As Integer intWidth = Screen.Width \ Screen.TwipsPerPixelX intHeight = Screen.Height \ Screen.TwipsPerPixelY MsgBox "Screen Resolution:" + vbCrLf + vbCrLf + Str$(intWidth) + " x" + Str$(intHeight), 64, "Info" End Sub ' Меняем Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean Const DM_PELSWIDTH = &H80000 Const DM_PELSHEIGHT = &H100000 Const CCFORMNAME = 32 Const CCDEVICENAME = 32 Private Type DEVMODE dmDeviceName As String * CCDEVICENAME 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 * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type Public Sub ChangeResolution(iWidth As Single, iHeight As Single) Dim DevM As DEVMODE Dim a As Boolean Dim i As Long Dim b As Long i = 0 Do a = EnumDisplaySettings(0&, i&, DevM) i = i + 1 Loop Until (a = False) DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT DevM.dmPelsWidth = iWidth DevM.dmPelsHeight = iHeight b = ChangeDisplaySettings(DevM, 0) End Sub Private Sub Command1_Click() ChangeResolution 640, 480 End Sub |
||
|
Номер ответа: 7 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #7 | Добавлено: 28.11.05 18:40 |
| // и ненадо людей в поиск слать, вам было приятно когда когда-то вас также посылали? | ||
|
Номер ответа: 8 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #8 | Добавлено: 28.11.05 20:52 |
| 2 «Unknown Lamer»: одно дело лень (т.к. я уверен, что в примерах смена разрешения экрана есть), другое - посмотрел, что в примерах и библиотеке этого нет, и оставил пост на форуме. | ||
|
Номер ответа: 9 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #9 | Добавлено: 28.11.05 21:48 |
|
2 Firebird:
Ну тут немогу не согласиться... |
||
|
Номер ответа: 10 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #10 | Добавлено: 29.11.05 12:42 |
|
> Noviks (AgentFire)
Чем тебе не понравилось?
|
||
|
Номер ответа: 11 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #11 | Добавлено: 29.11.05 15:03 |
|
и ненадо людей в поиск слать, вам было приятно когда когда-то вас также посылали?
Просто задрало отвечать на одни и те же вопросы. посмотрел, что в примерах и библиотеке этого нет, и оставил пост на форуме.
Иногда можно и напостить. Только все равно в поиск пошлют если тема такая уже была. |
||
|
Номер ответа: 12 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #12 | Добавлено: 29.11.05 16:44 |
|
Просто задрало отвечать на одни и те же вопросы А кого не задрало быть все время посылаемым в этот глючной поиск?
|
||
|
Номер ответа: 13 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #13 | Добавлено: 29.11.05 18:42 |
|
А кого не задрало быть все время посылаемым в этот глючной поиск?
|
||
|
Номер ответа: 14 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #14 | Добавлено: 30.11.05 08:03 |
| А у гугла есть такой хороший параметр - site: | ||
|
Номер ответа: 15 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #15 | Добавлено: 30.11.05 20:22 |
|
одно дело лень (т.к. я уверен, что в примерах смена разрешения экрана есть), другое - посмотрел, что в примерах и библиотеке этого нет, и оставил пост на форуме.
Согласен. С этим и многими другими постами. Плиск результатов не дал, в библиотеке ничего не нашел. Сенька 2«Unknown Lamer» за код |
||