Форум программистов Контакты:
О проблемах с регистрацией, почтой и по другим вопросам пишите сюда - post@programmersforum.ru
По необходимости будем регистрировать вручную. И проверяйте папку спам!
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

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

Ответ
 
Опции темы
Старый 09.04.2010, 21:38   #1
segail
Участник клуба
 
Регистрация: 13.06.2009
Сообщений: 635
Репутация: 10
По умолчанию Как изменить, кодом, расширение экрана на 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, 21:44   #2
The_Prist
Профессионал
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Адрес: Москва
Сообщений: 1,076
Репутация: 156
По умолчанию

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

icq: 482648532
skype: d_ober1
По умолчанию

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

End Sub[/CODE]
Можно вопрос,как у нас говорят
А зачем вам это надо?
__________________
Анализ,обработка данных Недорого
Прием благодарностей WebMoney WMR- R300799646346 WMU - U225793961398 WME E107914361028
doober вне форума   Ответить с цитированием
Старый 09.04.2010, 22:01   #4
segail
Участник клуба
 
Регистрация: 13.06.2009
Сообщений: 635
Репутация: 10
По умолчанию

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

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

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

А по умолчанию нельзя?
Код:

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, 22:13   #8
The_Prist
Профессионал
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Адрес: Москва
Сообщений: 1,076
Репутация: 156
По умолчанию

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

icq: 7934250
skype: i2x0,5
По умолчанию

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

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


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как изменить разрешение экрана 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 14:38
Расширение экрана LAFUDR Помощь студентам 1 24.05.2008 14:12




08:50.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.