ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
25 сообщений из 114, страница 2 из 5
  2  все
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538370
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
ИгорьКлaccess 2003, виснет и просит пожаловаться на Любопыта дядюшке Биллу.
Выше дал макет формы и классы в отдельных файлах. А это тоже виснет?
...
Рейтинг: 0 / 0
20.05.2007, 20:48
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538372
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Этого билла убить давно пора. (убить била-3)
Это что за фокусы такие? В 2002 работает, а в 2003 уже нет. Понимаю, когда в 97 не работает.
Где же пресловутая преемственность?
...
Рейтинг: 0 / 0
20.05.2007, 20:50
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538374
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Скажите, может проперти_нейм у меня слишком длинное?
вот тут:
CurrentProject.AllForms("форма").Properties("{1187C6DF-2FFD-4fad-8138-A37C1AEABF39}")
...
Рейтинг: 0 / 0
20.05.2007, 20:55
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538376
ИгорьКл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИгорьКл
Участник
ЛюбопытВыше дал макет формы и классы в отдельных файлах. А это тоже виснет?
Не виснет, но и неработает. Вот эти строки и многие другие покраснели.
Private WithEvents mfrm As Access.Form
Attribute mfrm.VB_VarHelpID = -1
Public Event AfterLoad(UserFactor As Variant)
Public Event AfterRescale(UserFactor As Variant)
RaiseEvent AfterLoad(decUserFactor)
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_UserMemId = 0
...
Рейтинг: 0 / 0
20.05.2007, 21:00
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538382
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
ИгорьКл ЛюбопытВыше дал макет формы и классы в отдельных файлах. А это тоже виснет?
Не виснет, но и неработает. Вот эти строки и многие другие покраснели.
Private WithEvents mfrm As Access.Form
Attribute mfrm.VB_VarHelpID = -1
Public Event AfterLoad(UserFactor As Variant)
Public Event AfterRescale(UserFactor As Variant)
RaiseEvent AfterLoad(decUserFactor)
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_UserMemId = 0
Вот те на. Это же аттрибуты, сгенерированные ВБА. И теперь сам не понимает, что сгенерировал.
У вас есть работающая база с классами на 2003? Экспортируйте в файл модуль вашего класса и посмотрите какие аттрибуты она генерит. Может найдется по аналогии что исправить.
...
Рейтинг: 0 / 0
20.05.2007, 21:04
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538385
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Идея!
Убейте все строчки с аттрибутами. Ведь они в редакторе ВБА не должны быть видны.
...
Рейтинг: 0 / 0
20.05.2007, 21:07
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538388
ИгорьКл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИгорьКл
Участник
Attribute mfrm.VB_VarHelpID = -1 на эту строчку пишет:
Compile error: Syntax error
...
Рейтинг: 0 / 0
20.05.2007, 21:09
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538392
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Потом последних двух строчек аттрибутов у меня в классе нет. Выше давал шаманский код.
Или вот вообщем с шаманским кодом модуль класса.
...
Рейтинг: 0 / 0
20.05.2007, 21:11
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538393
ИгорьКл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИгорьКл
Участник
ЛюбопытУбейте все строчки с аттрибутами. Ведь они в редакторе ВБА не должны быть видны.

ЗАРАБОТАЛААААА!!!!!!!!!!!!!!!
...
Рейтинг: 0 / 0
20.05.2007, 21:14
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538394
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Очень надеюсь, что ошибка из-за этих аттрибутов.
Гетц писал как дать понять ВБА, что с пользовательскими коллекциями поступать так-же как со своими. А я этого не сделал (работает, ну и пусть дальше работает, чего еще суетиться).
...
Рейтинг: 0 / 0
20.05.2007, 21:14
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538395
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
ИгорьКл ЛюбопытУбейте все строчки с аттрибутами. Ведь они в редакторе ВБА не должны быть видны.

ЗАРАБОТАЛААААА!!!!!!!!!!!!!!!
Вах... Ну слава богу.
...
Рейтинг: 0 / 0
20.05.2007, 21:15
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538399
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Теперь еще несколько штрихов.
в модуле ClassResizeForm найдите функцию SetControlOffset и сделайте его паблик.
в модуле формы:
1.добавить на уровне модуля переменную Private mblnSplitterMoved As Boolean
2. На lblSplitterY_MouseMove добавить mblnSplitterMoved = True если смещение произошло
3.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub lblSplitterY_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call SetCursor(ctlImageList.ListImages( 1 ).Picture.Handle)
   If Button = acLeftButton Then
      mblnClickOnSplitter = True
      mblnSplitterMoved = False
   End If
End Sub

Private Sub lblSplitterY_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = acLeftButton Then
      mblnClickOnSplitter = False
      If mblnSplitterMoved = True Then Call mrfrm.SetControlOffset(mrfrm)
   End If
End Sub
Тем самым независимо от того, что сделал пользователь со сплиттерами, код запомнит текущее положение сплиттера и восстановит при следующей загрузке. уфф.. намучился.
...
Рейтинг: 0 / 0
20.05.2007, 21:23
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538426
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
2 Любопыт
Отвлекался на некоторое время. Смотрю, у вас был интенсивный диалог с большим количеством замен. Лучше выложить окончательный рабочий вариант. Что-то лениво все подставлять
...
Рейтинг: 0 / 0
20.05.2007, 21:54
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538454
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
...
Рейтинг: 0 / 0
20.05.2007, 22:26
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538456
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
...
Рейтинг: 0 / 0
20.05.2007, 22:27
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538458
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Проблема была в генерации ВБА аттрибутов.
Если опять не получится то вот классы в отдельном модуле, пусть сам Аксесс 2003 генерит что ему надо. При появлении ошибок и аттрибутов в редакторе ВБА убейте все аттрибуты.
...
Рейтинг: 0 / 0
20.05.2007, 22:29
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538461
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Да сообщите, как рабочий вариант базы заработал. Ну и вообще, что и как у вас происходило. ок?
...
Рейтинг: 0 / 0
20.05.2007, 22:31
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538501
Шыфл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шыфл
Участник
Не работает ничего :)
Если запускаешь проект целиком, то при открытии формы или редактора VBA начинает злобно ругаться и умирать, причём второй раз уже даже не открывается, а сразу ругается. :)
Ругается и при попытке сделать импорт в пустую базу.

При составлении по схеме "формы + модули" ругается при импорте файла Form_frm1.cls Говорит мол
Access
Недопустимое имя модуля 'Form_frm1'
*Имя модуля начинается с префикса Form_ или Report_.
*Модуль не должен иметь имя Forms, Reports, Modules, Applicetion, Screen, Assistant, CommandBars, References и DoCmd.
*Слишком дленное имя модуля.

И импортирует его как Class1
Потом можно переименовать в Form_frm1, но ничего не работает. Не ресайзится... Такие дела
Access 2003
...
Рейтинг: 0 / 0
20.05.2007, 23:40
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538508
Шыфл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шыфл
Участник
Нет, что-то происходит, потому как при просмотре первой формы иногда вместо "режим формы" возникает "обработка команды". Но что-то не понятно, что меняется :-/

З.Ы. В табличных формах в правой форме при установке фокуса на First Name, Last Name уходит влево (не видно), а внизу появляется ползунок. Ни одна кнопка не работает :-/
...
Рейтинг: 0 / 0
20.05.2007, 23:55
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538671
hruptor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hruptor
Гость
ЛюбопытДа сообщите, как рабочий вариант базы заработал. Ну и вообще, что и как у вас происходило. ок?

В Access 2003 SP2 всё чудесно работает :)
...
Рейтинг: 0 / 0
21.05.2007, 08:37
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538693
Фотография Palarm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Palarm
Участник
Вот еще вариант
...
Рейтинг: 0 / 0
21.05.2007, 08:53
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538704
DiDis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DiDis
Участник
Акс 2003 SP2 не работает
востановить бд пишет... в модули не заходит.. тот же самый вис
...
Рейтинг: 0 / 0
21.05.2007, 08:58
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538712
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
ШыфлПри составлении по схеме "формы + модули" ругается при импорте файла Form_frm1.cls Говорит мол
Access
Недопустимое имя модуля 'Form_frm1'
*Имя модуля начинается с префикса Form_ или Report_.
*Модуль не должен иметь имя Forms, Reports, Modules, Applicetion, Screen, Assistant, CommandBars, References и DoCmd.
*Слишком дленное имя модуля.

И импортирует его как Class1
Потом можно переименовать в Form_frm1, но ничего не работает. Не ресайзится... Такие дела
Access 2003
модуль 'Form_frm1' импортировать не надо. Надо в базе создать модуль для формы frm1 (пустой), скопировать из текстового файла текст из модуля 'Form_frm1' и вставить в проект.
...
Рейтинг: 0 / 0
21.05.2007, 09:03
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538722
Любопыт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Любопыт
Участник
Не могу понять, то работает
hruptorВ Access 2003 SP2 всё чудесно работает :)
то не работает
[DiDis]Акс 2003 SP2 не работает
востановить бд пишет... в модули не заходит.. тот же самый вис[/quot]
В чем-же дело?
2 hruptor
У вас сразу база заработала без импортирования классов?
...
Рейтинг: 0 / 0
21.05.2007, 09:09
| Ответить | Цитировать | Написать  
Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
    #34538763
hruptor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
hruptor
Гость
Любопыт
2 hruptor
У вас сразу база заработала без импортирования классов?

Да, заработала сразу. Может быть у других не работает потому что нет файла MSCOMCTL.OCX (для ImageListCtrl). У меня этот файл версии "6.01.9545, April 25, 2002"
Проверил на Acess 2003 без SP, тоже работает :)
...
Рейтинг: 0 / 0
21.05.2007, 09:29
| Ответить | Цитировать | Написать  
25 сообщений из 114, страница 2 из 5
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Выкладываю монстра (по размерам кода) Масштабирование и ресайзинг форм.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=34538395&tid=1610414]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 12ms
total:  145ms
созд. / загр.: 145ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]