Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Апрель 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.825 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 102
от 26.04.2004, 02:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва		 О рассылке:
Задано вопросов: 217
Отправлено ответов: 184
Активность: 84.79 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]

 Список экспертов, ответы которых опубликованы в данном выпуске

Licvidator
Статус: Профессиональный
Общий рейтинг: 106.51
URL: PC Info
[Подробней >>]

 Краткий перечень вопросов

Вопрос № 211. Доброе время суток, уважаемые Эксперты! Я тут написал такой код: Dim InitialНeight As Integer Dim Ca... (ответов: 1)
Вопрос № 212. Приветствую, Licvidator! Вами было написано : 22 апреля 2004 г. 19:50 Приветствую Вас, Serzh! Ваш ко... (ответов: 1)
Вопросов: 2, ответов: 2

 Вопрос № 211
Доброе время суток, уважаемые Эксперты!
Я тут написал такой код:
Dim InitialНeight As Integer
Dim CalculatedHeight As Integer
Dim NewCalculatedHeight As Integer
Dim Restoration As Boolean
Private Sub Form_Load()
InitialНeight = Screen.Height
Restoration = False
End Sub
Private Sub tmrTimer_Timer()
NewCalculatedHeight = Screen.Height
If InitialНeight <> NewCalculatedHeight Then
CalculatedHeight = Screen.Height
If InitialНeight <> CalculatedHeight Then
Restoration = True
End If
Else
If Restoration = True Then
MsgBox "Разрешение экрано восстановлено!", vbExclamation + vbInformation, "Экран"
Restoration = False
End If
End If
End Sub
Так вот, при запуске из Васика все работает, а откомпилированная прога – нет #:-o
Кто-нить знает, в чем тут собака порылось, а главное как ентот баг исправить?
С уважением,
Serzh mailto:sezh@e-mail.ru


Вопрос отправлен: 22.04.2004, 18:13
Отправитель: Serzh (serzh@e-mail.ru)
[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Приветствую Вас, Serzh!
Ваш код можно упростить до:

Dim InitialНeight As Integer
Dim Restoration As Boolean

Private Sub Form_Load()
InitialНeight = Screen.Height
Restoration = False
End Sub

Private Sub tmrTimer_Timer()
If InitialНeight <> Screen.Height Then
Restoration = True
Else
If Restoration = True Then
MsgBox "Разрешение экрана восстановлено!", vbInformation, "Экран"
Restoration = False
End If
End If
End Sub

который прекрасно работает и в откомпилированном варианте.
PS а зачем надо было указывать MsgBox два противоречивых аргумента (vbExclamation + vbInformation) ?:)
Ответ отправлен: 22.04.2004, 19:42
Отправитель: Licvidator

 Вопрос № 212
Приветствую, Licvidator!
Вами было написано : 22 апреля 2004 г. 19:50
Приветствую Вас, Serzh!
Ваш код можно упростить до:
Dim InitialНeight As Integer
Dim Restoration As Boolean
Private Sub Form_Load()
InitialНeight = Screen.Height
Restoration = False
End Sub
Private Sub tmrTimer_Timer()
If InitialНeight <> Screen.Height Then
Restoration = True
Else
If Restoration = True Then
MsgBox "Разрешение экрана восстановлено!", vbInformation, "Экран"
Restoration = False
End If
End If
End Sub
который прекрасно работает и в откомпилированном варианте.

Чорт побери, а у меня не работает!:-[
Причем проверял в Win2k u Win

Вопрос отправлен: 22.04.2004, 22:45
Отправитель: Serzh
[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Здравствуйте, Serzh!
Что ж, давайте разбираться:) Опишите ситуацию. Вызывает ошибку? Или просто бездействует? Вы время таймера сколько задали?
Кстати, попробуйте наставить на форму лейблы и отображать на них состояние всех переменных, легче будет искать причину.
PS у меня VB версии 6.0 (SP3) + WinXP.
Ответ отправлен: 23.04.2004, 00:10
Отправитель: Licvidator

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.
 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:

 Выбор рассылки

Программисту
Assembler (25)
C / C++ (12)
Perl (1)
Builder / Delphi (18)
Pascal (17)
Basic / VBA (3)
Java / JavaScript (4)
PHP (10)
Криптография (6)
WinAPI (11)
Радиоэлектроника (7)
 Пользователю
Windows 95/98/Me (30)
Windows NT/2000/XP (42)
"Железо" (23)
Поиск информации (13)
 Администратору
Windows NT/2000/XP (24)
Linux / Unix (6)
 Юристу
Гражданское право (11)
Семейное право (8)
Трудовое право (10)
КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.
Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

Яндекс цитирования
© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное