ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Растянуть форму?
25 сообщений из 29, страница 1 из 2
  1  все
Растянуть форму?
    #32582493
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
По нажатию на кнопку мне нужно растянуть область данных формы и вложенную в нее форму до заданных размеров.
Height и Width формы (области данных) к чему относятся? Никак не могу найти.
...
Рейтинг: 0 / 0
30.06.2004, 09:58:54
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582498
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
- У формы - Width
- У секций (заголовой, примечание, область данный) - Height
- Видимые размеры формы - InsideHeight, InsideWidth
...
Рейтинг: 0 / 0
30.06.2004, 10:02:02
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582508
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Пишу Me.InsideHeight=13.5, а размер меняться и не думал?
...
Рейтинг: 0 / 0
30.06.2004, 10:05:43
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582518
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
InvisibleПишу Me.InsideHeight=13.5, а размер меняться и не думал?
Что такое 13.5?
Там вроде в твипах надо и значения там уже в тысячах измеряются :)
Вы бы посмотрели чему оно равно изначально :)
...
Рейтинг: 0 / 0
30.06.2004, 10:11:46
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582519
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kedzo
Участник
если форма развернута на весь экран, то сначала ей надо сделать restore, а потом изменять размер.
...
Рейтинг: 0 / 0
30.06.2004, 10:12:49
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582520
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
А форма случаем не на весь экран развернута?
...
Рейтинг: 0 / 0
30.06.2004, 10:13:37
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582537
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Могу кинуть программку, которая запоминает последние установки в конструкторе.
...
Рейтинг: 0 / 0
30.06.2004, 10:20:09
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582548
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Начальное значение я посмотрел, рассчитывал на то, что при внесении данного значения видимая область уменьшится. Форма изначально была развернута, но пробовал и так и так. После внесение изменение в размеры значения H и W не меняются , вот такая ерунда.
...
Рейтинг: 0 / 0
30.06.2004, 10:23:43
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582554
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Держи родной и пользуйся

Public Sub DlgResize(Frm As Form)
On Error GoTo Err_1
Frm.InsideWidth = Frm.Width
Frm.InsideHeight = Frm.Section(0).Height
DoCmd.Restore
Exit_1:
Exit Sub
Err_1:
E_MsgBox Err.Description
Resume Exit_1
End Sub

Вызываешь её так

Private Sub Form_Open(Cancel As Integer)
DlgResize Me
End Sub
...
Рейтинг: 0 / 0
30.06.2004, 10:26:56
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582561
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Дык - может ты все задачу свормулируешь?

А так - вот сюда посмотри
/topic/98527&pg=-1
...
Рейтинг: 0 / 0
30.06.2004, 10:29:35
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582585
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Угу. Ента весч подгоняет видимые размеры формы под область данных, а мне нужно саму область данных расширять. Короче говоря задача такая: когда увеличиваем разрешение, форма могёт взять всю область экрана, вот.
...
Рейтинг: 0 / 0
30.06.2004, 10:34:53
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582606
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As Rect) As Long

Public Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Sub MyFormReSize()
Dim AccRect as Rect
    Call GetClientRect(Application.hWndAccessApp, AccRect)
    AccRect.Top = (AccRect.Bottom - AccRect.Top) *  15  -  1320 
    DoCmd.Restore
    DoCmd.MoveSize ,  0 , , AccRect.Top
End Sub
?
...
Рейтинг: 0 / 0
30.06.2004, 10:41:11
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582623
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
to paparome:
А эта формула получена практическим опытом?
AccRect.Top = (AccRect.Bottom - AccRect.Top) * 15 - 1320
...
Рейтинг: 0 / 0
30.06.2004, 10:46:21
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582631
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Progato paparome:
А эта формула получена практическим опытом?
AccRect.Top = (AccRect.Bottom - AccRect.Top) * 15 - 1320
Если ты про константу 1320 , то да :)
...
Рейтинг: 0 / 0
30.06.2004, 10:48:06
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582641
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
круто!!!
долго мучился, пока искал подходящее значение?
...
Рейтинг: 0 / 0
30.06.2004, 10:49:15
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582653
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Progaкруто!!!
долго мучился, пока искал подходящее значение?
минуты 2 :)
...
Рейтинг: 0 / 0
30.06.2004, 10:53:34
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582722
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Ммможет. Ведь форма занимает часть рабочего стола . Она ленточна и она развернута внутри запущеного Акса (само окно акса маленькое). Мы видим n кол-во записей, но вот мы нажимаем на развернуть окно акса и видим внизу n-ого кол-ва строк еще кучу свободного пространства. В этом случае мы нажимаем на кнопку формы и раз... мы видим больше чем n записей. А когда мы хотим ВЕРНУТЬСЯ ОБРАТНО. Мы нажимаем кнопочку, ап... и опять стало n строк. Послечего мы спокойно можем restore-ить окно Акса. И все это в пределах одного разрешения. Но позже и на разрешение сделаю.

Я хочу взять два статических значения высоты области данных гл. формы и размеров подформы и просто менять их.
paparome, в Вашем примере не понятно как тогда восстанавливать бывшие значения размеров.
...
Рейтинг: 0 / 0
30.06.2004, 11:10:30
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582868
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
paparome- У формы - Width
- У секций (заголовой, примечание, область данный) - Height
Может ли по определенным причинам изменение значенией этих свойств не применяться?
...
Рейтинг: 0 / 0
30.06.2004, 11:51:32
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582881
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
авторМожет ли по определенным причинам изменение значенией этих свойств не применяться?

Может - если, например, компоненты не влезают в новые размеры
+
Height области данных в ленточной форме это не суммарная высота всех видимых записей, а высота одной записи
...
Рейтинг: 0 / 0
30.06.2004, 11:54:25
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32582932
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
Спасибо. Все получилось. Действительно на меньшее значение не хотело меняться из-за того, что вложенная форма не позволяла этого сделать. Теперь все ок! Еще раз спасибо.
...
Рейтинг: 0 / 0
30.06.2004, 12:06:30
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32583286
Invisible
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Invisible
Участник
В довершение хочу спросить - как maximize и restore окно самого акцесса, а не формы, внутри его?
...
Рейтинг: 0 / 0
30.06.2004, 13:50:17
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32583319
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
ИМХО - только через API
Вот, примено, по поиску
http://www.sql.ru/forum/actualsearch.aspx?search=SetWindowPos&a=&ma=0&bid=4&dt=-1&s=1&so=1
...
Рейтинг: 0 / 0
30.06.2004, 14:01:51
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32583333
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
может проще восп. готовым примером от Гетца? т,1 стр.499
...
Рейтинг: 0 / 0
30.06.2004, 14:06:39
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32583335
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
ищможет проще восп. готовым примером от Гетца? т,1 стр.499
Может и проще, но у меня Гетца нет :(
...
Рейтинг: 0 / 0
30.06.2004, 14:07:22
| Ответить | Цитировать | Написать  
Растянуть форму?
    #32583402
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
(голосом Карлсона) только один торт и восем свечек?
(голосом донны Розы) какая неприятность. а я вот пристрастилась.
...
Рейтинг: 0 / 0
30.06.2004, 14:27:48
| Ответить | Цитировать | Написать  
25 сообщений из 29, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Растянуть форму?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32583402&tid=1670718]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 58ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 237ms
total:  359ms
созд. / загр.: 359ms
x
x
Закрыть


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