ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Своя функция
22 сообщений из 22, страница 1 из 1
Своя функция
    #39384626
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
Добренькой ночи/дня!

Есть простая функция

Код: vbnet
1.
2.
3.
4.
5.
Private Function MYFUNC (ctl1 As control)
Dim Переменная1
Переменная1=3000
ctl1.height = ctl1/Переменная1
End function



Пытаюсь при нажатии кнопки изменить высоту поля (упрощенно)

Код: vbnet
1.
2.
3.
Private Sub Кнопка1_Click()
call MYFUNC (Поле1)
End sub



Но высота Поля1 не меняется. Если вместо вызова функции я пишу: поле1.height = поле1/Переменная1, то все работает, а так нет.
...
Рейтинг: 0 / 0
14.01.2017, 02:36
| Ответить | Цитировать | Написать  
Своя функция
    #39384644
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
У типа данных Control нет свойства по умолчанию, насколько я знаю. Когда вы вызываете изменение высоты в окне, тип данных не Control, а, например TextBox, который уже имеет свойство по умолчанию Value, откуда и читается значение. Не совсем понятно, что вы делаете, насколько я понял, меняеете высоту текстбокса в зависимости от значения в текстовом поле. Если так, то попробуйте такое выражение:
Код: vbnet
1.
ctl1.height = ctl1.Value / Переменная1
...
Рейтинг: 0 / 0
14.01.2017, 07:40
| Ответить | Цитировать | Написать  
Своя функция
    #39384658
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Своя функция,
а чем не устраивает штатное свойство "расширение"
...
Рейтинг: 0 / 0
14.01.2017, 10:39
| Ответить | Цитировать | Написать  
Своя функция
    #39384680
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
MrShin, добавление value не помогает.

sdku, а можно поподробнее?
...
Рейтинг: 0 / 0
14.01.2017, 12:57
| Ответить | Цитировать | Написать  
Своя функция
    #39384683
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Своя функция...sdku, а можно поподробнее?...
Раз судоку молчит. то позволю себе предположить. что имелось в виду вот это -
...
Рейтинг: 0 / 0
14.01.2017, 13:04
| Ответить | Цитировать | Написать  
Своя функция
    #39384699
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
Лапух, нет, совсем не то.
Я ведь привел пример упрощенный. У меня там немного более сложная формула и меняется не только высота, но и поля и отступы.

Поэтому вопрос остается. Как сделать свою функцию с переменными. Ведь вроде сделал все правильно. Объявил переменные в функции. Что не так?
...
Рейтинг: 0 / 0
14.01.2017, 13:48
| Ответить | Цитировать | Написать  
Своя функция
    #39384707
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Своя функция..... меняется не только высота, но и поля и отступы....О каких таких "полях" речь. Вам надо изменять положение текста(данных в поле) или положение самого элемента управления (поля)?
...
Рейтинг: 0 / 0
14.01.2017, 14:31
| Ответить | Цитировать | Написать  
Своя функция
    #39384709
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Своя функция...Лапух, нет, совсем не то....
Я конечно в - VBA - Лапух (что видно из моего погоняла ), но кое чего и знаю, возможно и присоветую.
Но т. к. видимо не въезжаю в суть вопроса, то попрошу вас не стесняться и поподробнее рассказать о том. чего возжелали, что бы даже я понял.
...
Рейтинг: 0 / 0
14.01.2017, 14:33
| Ответить | Цитировать | Написать  
Своя функция
    #39384723
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Своя функция,
и еще:
Код: vbnet
1.
ctl1.height = ctl1/Переменная1

все нормально работает если тип данных числовой
(менять высоту в зависимости от числа записанного в поле по меньшей мере странно-почему для 11 и 99 высота поля должна быть разной )
...
Рейтинг: 0 / 0
14.01.2017, 15:26
| Ответить | Цитировать | Написать  
Своя функция
    #39384727
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Лапух...что видно из моего погоняла Вопрос к модераторам: Уместен ли на форуме в профильных темах подобный блатной жаргон?
...
Рейтинг: 0 / 0
14.01.2017, 15:48
| Ответить | Цитировать | Написать  
Своя функция
    #39384729
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Своя функция,

В точности воспроизвела все действия.
Все работает, ctl1 в функции опознается правильно.
...
Рейтинг: 0 / 0
14.01.2017, 15:52
| Ответить | Цитировать | Написать  
Своя функция
    #39384732
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
__MichelleЛапух...что видно из моего погоняла Вопрос к модераторам: Уместен ли на форуме в профильных темах подобный блатной жаргон?
Мишель, вы же первые попросили о перемирии и высказали желание нас с вами не упоминать в - СУЕ.
Чё случилось?
Я вас не трогал.
Чё вы так взбрыкнули?
...
Рейтинг: 0 / 0
14.01.2017, 16:09
| Ответить | Цитировать | Написать  
Своя функция
    #39384735
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
1. Я никого ни о чем не просила и не высказывала никаких желаний.
2. Вопрос был к модераторам.
...
Рейтинг: 0 / 0
14.01.2017, 16:12
| Ответить | Цитировать | Написать  
Своя функция
    #39384741
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
__Michelle...2. Вопрос был к модераторам....
Ладно, продолжим подлавливать друг друга во всяких нюансах, если уж вы так шибко возжелали и у вас засвербило в неких местах.
Я всегда. практически за любой, дозволеный кипишь.
...
Рейтинг: 0 / 0
14.01.2017, 16:44
| Ответить | Цитировать | Написать  
Своя функция
    #39384744
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Своя функция,

Прошу прощения за то, что невольно дала повод для флуда в Вашей теме.
...
Рейтинг: 0 / 0
14.01.2017, 16:51
| Ответить | Цитировать | Написать  
Своя функция
    #39384754
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
__Michelle, Лапух! Я настоятельно еще раз прошу не обращать внимания друга на друга. Ваша взаимная симпатия не секрет.

__Michelle, это выражение хотя и не из джентльменского лексикона, но не противоречит никаким правилам форума. Режет слух, да. Но формально нет причин его удалять, а применившего банить
...
Рейтинг: 0 / 0
14.01.2017, 17:36
| Ответить | Цитировать | Написать  
Своя функция
    #39384758
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
Понял свою ошибку. Нужно было раньше состряпать файл и не морочить вам голову. Прошу прощения. Вот файлик. Если нажимать кнопки УВЕЛИЧИТЬ, УМЕНЬШИТЬ, то вы увидите, как меняется верхнее поле (topmargin) и соответственно двигается текст в соответствие с текущим значением. Чтобы движение было заметно, я поставил кратно 100 пока.

Но если для изменения topmargin поля Текущее использовать функцию, которая сейчас закомментирована, то ничего не двигается. Значение меняется, но текст не двигается.

Вот теперь вопрос более конкретный. Прошу подсказать. Спасибо.
...
Рейтинг: 0 / 0
14.01.2017, 17:42
| Ответить | Цитировать | Написать  
Своя функция
    #39384769
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
mds_world,

Спасибо за ответ.
Но подчеркиваю, что я обратила внимание на выражение, а не не автора этого выражения.
От кого оно исходило, мне было безразлично.
...
Рейтинг: 0 / 0
14.01.2017, 18:16
| Ответить | Цитировать | Написать  
Своя функция
    #39384773
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Своя функция,

Ну и накрутили...
1. Для начала укажите OPTION EXPLICIT, запустите компиляцию и посмотрите на сообщения.
2. Зачем обновляете значение поля формы через CurrentProject.Connection.Execute и Requery?
Достаточно этого: Текущее=Текущее+Поле807 и Me.Dirty=False.
3. Когда разберетесь с объявлением переменных (пункт 1), все заработает.
...
Рейтинг: 0 / 0
14.01.2017, 19:02
| Ответить | Цитировать | Написать  
Своя функция
    #39384868
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
__Michelle,
1. c OPTION EXPLICIT получаю Invalid outside procedure. Кручу-верчу, ни фига не получается.
2. Зачем обновляете значение поля формы через CurrentProject.Connection.Execute и Requery? Это в данном примере источник формы таблица1. В моей базе это необновляемый запрос.
...
Рейтинг: 0 / 0
15.01.2017, 00:04
| Ответить | Цитировать | Написать  
Своя функция
    #39384874
Своя функция
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Гость
Всё, заработало. Правда непонятно как. Ничего особо не менял. В общем, всем спасибо.
...
Рейтинг: 0 / 0
15.01.2017, 00:13
| Ответить | Цитировать | Написать  
Своя функция
    #39384876
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Своя функцияВсё, заработало. Правда непонятно как. Ничего особо не менял. В общем, всем спасибо.То есть, Вы действуете бессознательно?)))
Выкладывайте здесь получившийся текст модуля формы - я скажу, почему заработало.
Почему не работало - знаю.
И никакого необновляемого запроса там нет, и вообще ни одного запроса нет.
Источник формы - таблица Таблица1.
Выкладывайте, не бойтесь. Только не надо базу, достаточно текст модуля формы..
...
Рейтинг: 0 / 0
15.01.2017, 00:24
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Своя функция
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39384868&tid=1612808]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 63ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 348ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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