| |
 121 Кб. |
|
| | Порой вот так бывает
Как кто то пролетает
И форму в полразмера
Нахально прикрывает
А развернуть не удаётся
Точнее форма не даётся
Нет кнопки разворота у неё
Ни клик двойной
- всё по х.... короче для неё????   | |
| |
| |
| |
|
|
| | Свойство формы-макет-кнопки размера окна.
Если правильно понял вопрос | |
| |
| |
| |
|
|
| | проверь, мой друг, значение свойства,
что AutoResize-ом кличут на наречии аглицком
а кнопки ты размеров окон
ведь не забыл поставить <цензура> все?
прости мне если я советом
попал в просак
 | |
| |
| |
|
|
| |
|
|
| | зВИНЯЮСЯ  | |
| |
| |
| |
|
|
| | Я кнопки спрятал только две
Свернуть и развернуть окно
Для юзвера, чтоб кнопки те
Считалося - запрещено!
С крестом же кнопку я оставил
Закрыть чтоб форму юзьвер мог
А он мне (с) - глюк подставил
Предусмотреть я всё не смог.........
Ещё спасибо - за совет
Про авто и ресизе
Напротив выставлено НЕТ
И смотрится - красиво!
Но может я попал впросак
Коль выпал я в осадок
Значенье выставил не так?
И результат мне гадок?!  | |
| |
| |
| |
25 Кб. |
|
| | Скриншлт - на суд на Ваш несу
Там свойства формы данной
Для новичка - там как в лесу
Но Я - почти бывалый 
Нажал я кнопку эф один
И мне под самый нос
display complete и records
Ответ на мой запрос
Но по английски - я друзья
Как селезень по льду
Когда замёрзла вся вода
Для плаванья - в пруду. | |
| |
| |
| |
|
|
| | Тип границы поставь "изменяемая"
И будет тебе счастье.
Мышкой за границу рамки ухвати и рассширь как надо.
А ежели потом все равно откроется также
То табличку роди для хранения размеров окон.
И тягай оттуда значения. | |
| |
| |
| |
|
|
| | ыыыыы   | |
| |
| |
| |
|
|
| | Вам спасибочки за сообщение
За совет про тяганье значения
Никада я такого не пробывал
А вот видимо время пришло
Но с другой стороны ведь при пуске
Я размеры уже прописал
В Load формы - точней - при загрузке
MAXIMIZE я код накатал
Происходит такое спонтанно
И никак не пойму почему
Мне заказчик сказал - это странно
И признаюсь - я верю ему!
А по поводу формы границы
Есть заветное в этом зерно
Коль размерам захочется сбиьтся
Мне надеюсь - поможет оно!
А ваще - заведу ка я кнопку
Maximize я в ней пропишу
Погодите - приму сейчас - стопку
И тада результат - отпишу | |
| |
| |
| |
|
|
| | ну тогда поставь еще свойство всплывающая
или вот еще код пробуй.
Private Sub Form_Open(Cancel As Integer)
Dim lngFormHeight As Long
Dim lngFormWidth As Long
DoCmd.Echo False ' отключаем прорисовку, чтобы не отображать дергания экрана
DoCmd.Maximize ' развернем форму на весь экран
lngFormWidth = Me.InsideWidth 'сохраним ширину на данный момент
lngFormHeight = Me.InsideHeight 'сохраним высоту на данный момент
DoCmd.Restore 'восстановим
DoCmd.MoveSize 0, 0, lngFormWidth, lngFormHeight 'разместим по полученным координатам
DoCmd.Echo True 'включаем прорисовку
End Sub
|
| |
| |
| |
|
|
| |
|
|
| | см.выше я подписал.
а как помочь = х.з., а вдруг | |
| |
| |
| |
|
|
| |
Круто 
Спасибо, тока она (С) во весь экра не разворачивается - бубен нужен...... | |
| |
| |
| |
|
|
| | А у ВАС не завалялося как задержку делать?  | |
| |
| |
|
|
| |
|
|
| | какую задержку?
timer не катит? | |
| |
| |
| |
|
|
| | итак вот что вырисовалось для того, что бы при открытии формы - избежать передёргиваний
На Load формы вешаем
DoCmd.Echo False ' отключаем прорисовку, чтобы не отображать дергания экрана
DoCmd.Maximize ' развернем форму на весь экран
SleepVB (0.1) ' временная задержка
DoCmd.Echo True 'включаем прорисовку
|
| |
| |
| |
| |
|
|
| | А вот и сам слип
' объявляем WinAPI функцию ожидания сообщения
Private Declare Function WaitMessage Lib "user32.dll" () As Long
Public Function SleepVB(Seconds)
' ожидание Seconds секунд
Dim Start
Start = Timer ' текущее время в секундах
Do While Timer < Start + Seconds
WaitMessage ' ждем сообщения
DoEvents ' обрабатываем
Loop
End Function
|
Всё проходит гладенько и аккуратненько | |
| |
| |
| |
|
|
| | а форма-то развернулась как надо? | |
| |
| |
| |
|
|
| | 100%
--------------------------
ЗЫ
Спасибо Силыч!
Вот так ваще красота
DoCmd.Echo False ' отключаем прорисовку, чтобы не отображать дергания экрана
DoCmd.Restore 'восстановим
DoCmd.Maximize ' развернем форму на весь экран
SleepVB (0.05) ' временная задержка
DoCmd.Echo True 'включаем прорисовку
|
| |
| |
| |
| |
|
|
| | вариант
'TimerInterval = 1
Private Sub Form_Timer()
DoCmd.Echo True
TimerInterval = 0
End Sub | |
| |
| |
|
|
|
|
|
|
| |
|
|
| | Порезвились, в общем  | |
| |
| |
| |
|
|
| |
А результат - классный -
Все формы во весь экран - появляются сразу и как влитые - шикарно, блин - никада этим не парился, а тут - прямо - здорово!!!
Спасибо - за соучастие.
Кстати для ddi(это ник) то же вариант - я ему посоветовал сюда зайти. | |
| |
| |
| |
|
|
| | час спасибо но я уже нашол выход! | |
| |
| |
| |
|
|
| | Это радует | |
| |
| |
