LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Размер фо...
 Тема: Размер форм
 
 15.06.2007 21:09:53
Света1
3 сообщения


Тема: Размер форм
Подскажите, как решается след. проблемма:
рисую формы на 15' мониторе, а потом начинаю работать с ними на 17' мониторе и они не выводятся на всю ширину экрана. А если наоборот - то еще хуже, половины формы просто не видно. Изменять разрешение экрана с помощью свойств экрана - не выход. Что делать?


P.S. Создание форм
Автор: Света от 16.11.2005 5:13:10 Источник ...
 15.06.2007 21:09:53
All
4316 сообщения
1-ый


RE: Размер форм
Вообще это не простая задача, надо изучать масштабирование. Лучше купить книгу какого-нибудь автора, где это описано. Например, Кен Гетц и др. "Access 2000"


P.S. Создание форм
Автор: Admin от 0:00:00 Источник ...
 15.06.2007 21:09:53
All
4316 сообщения
1-ый


RE: Размер форм

http://microsoft.ru/offext/developer/automation/d
etails.aspx?id=445&cat=69
http://www.leadersoft.ru/rusboard/data/2101.htm
http://www.hiprog.com/access/article.asp?idd=246


P.S. Создание форм
Автор: Anonymous от 0:00:00 Источник ...
 15.06.2007 21:09:53
All
4316 сообщения
1-ый


RE: Размер форм

http://microsoft.ru/offext/developer/automation/d
etails.aspx?id=445&cat=69
http://www.leadersoft.ru/rusboard/data/2101.htm
http://www.hiprog.com/access/article.asp?idd=246

http://www.hiprog.com/access/article.asp?id=442


P.S. Создание форм
Автор: Anonymous от 0:00:00 Источник ...
 15.06.2007 21:09:53
Евгений10
73 сообщения


RE: Размер форм
Public Const Ws As Long = 11940 'Ширина
Public Const Hs As Long = 8205 'Высота

Function Rezi(frm As Object)
Dim idbl As Double
If frm.InsideWidth < Ws Then frm.InsideWidth = Ws
If frm.InsideHeight < Hs Then frm.InsideHeight = Hs
'эти две строки нужны для установки минимального размера окна
idbl = frm.WindowWidth
frm.ButClose.Left = idbl - 1200
frm.ButBack.Left = idbl - 1200
frm.ButOK.Left = idbl - 1200
frm.ButSave.Left = idbl - 1200
frm.ButReport.Left = idbl - 1200
frm.Box0.Width = frm.ButClose.Left - 300
frm.OtdelFld.Left = frm.Box0.Width - 5110
With frm.Box0
.Form.UsrNmsFld.Left = .Width - 3110
.Form.PassFld.Left = .Width - 3110
.Form.LabUser.Left = .Width - 4110
.Form.LabPass.Left = .Width - 4110
End With
End Function

Кусочек для образца, вешается на событие изменение размера



P.S. Создание форм
Автор: Евгений от 20.11.2005 19:21:56 Источник ...
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Размер фо...
ПоискПоиск  Список форумовСписок форумов  
right