Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2010, 22:38   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Как изменить, кодом, расширение экрана на 1280 X 800 точек

Здравствуйте.
Как изменить, кодом, расширение экрана на 12800 X 800 точек
а затем вернуть текущее расширение экрана.
Код:
Private Sub CommandButton1_Click()
    ' расширение экрана на 12800 X 800 точек
End Sub
Private Sub CommandButton2_Click()
    ' текущее расширение экрана
End Sub
segail вне форума Ответить с цитированием
Старый 09.04.2010, 22:44   #2
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Здравствуйте.
Делал как-то такое(только обычно называется разрешение, а не расширение...). См. вложение.
Вложения
Тип файла: rar Изменение разрешения экрана.rar (13.4 Кб, 75 просмотров)
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 09.04.2010, 22:53   #3
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Цитата:
Сообщение от segail Посмотреть сообщение
Здравствуйте.
Как изменить, кодом, расширение экрана на 12800 X 800 точек
а затем вернуть текущее расширение экрана.

End Sub[/CODE]
Можно вопрос,как у нас говорят
А зачем вам это надо?
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 09.04.2010, 23:01   #4
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Просто замечал, на некоторых ПК, установлено разрешение, мягко скажем не нормальное, и запуская свое какое ли ба приложение (созданное на экране 12800X800) выглядит не так (нужные края уходят за монитор). Вот и хотел при запуске проекта изменить разрешение экрана, а затем при выходе вернуть текущее…
segail вне форума Ответить с цитированием
Старый 09.04.2010, 23:03   #5
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Ну и что, мой файл не подошел? Там именно это и делается.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 09.04.2010, 23:04   #6
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Разбираюсь
segail вне форума Ответить с цитированием
Старый 09.04.2010, 23:09   #7
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

А по умолчанию нельзя?
Код:
Private Function Change_Options(dmf As DEVMODE, Retval As Long)
 ' Проверяем,возможно ли поменять разрешение на данном компьютере
    Retval = ChangeDisplaySettings(dmf, &H2)
    If Retval <> 0 Then
        MsgBox "Нельзя устанавливать такое разрешение!"
    Else
        ' Меняем и сохраняем новые параметры
        Retval = ChangeDisplaySettings(dmf, &H1)
        Select Case Retval
        Case 0: MsgBox "Новое разрешение установлено!"
        Case 1: MsgBox "Необходима перезагрузка, чтобы изменения вступили в силу"
        Case Else: MsgBox "Не могу изменить настройки!"
        End Select
    End If
End Function
segail вне форума Ответить с цитированием
Старый 09.04.2010, 23:13   #8
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Чего по умолчанию?
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 09.04.2010, 23:37   #9
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

по умолчанию - видимо без диалога.
Убедитесь, что оборудование поддерживает указанное разрешение а затем и устанавливайте.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 10.04.2010, 17:50   #10
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
по умолчанию - видимо без диалога.
Убедитесь, что оборудование поддерживает указанное разрешение а затем и устанавливайте.
Так это можно и вручную. А если при запуске проекта (проект уже запущен, в работе) предлагается перезагрузить…
Я на основание своего ПК задал вопрос (если вручную), он молчит и изменят разрешение. Я предполагал, что для других ПК тоже самое.
segail вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить разрешение экрана lionman Общие вопросы Delphi 7 07.01.2011 12:45
Расширение экрана в консольном приложении FelixKoT Общие вопросы Delphi 1 19.02.2010 21:22
определить радиус и центр окружности, на кот. лежит наиб.число точек заданного на плоскости мн-ва точек) kcю Помощь студентам 0 17.11.2009 19:50
Как изменить расширение файла Dux Помощь студентам 12 25.08.2009 15:38
Расширение экрана LAFUDR Помощь студентам 1 24.05.2008 15:12