Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как програмно создать поле? / 3 сообщений из 3, страница 1 из 1
22.07.2003, 20:38:23
    #32214982
LANKO
LANKO
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать поле?
Как можно програмно создать поле (или любой другой объект: список, надпись...)? И задать ему необходимые характеристики: высоту, ширину, положения top, left.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2003, 20:55:48
    #32214991
-=Alexey=-
-=Alexey=-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать поле?
вот кусочек кода, который динамически строит форму:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Private Const form_name As String =  "zzz" 
'...'
Dim ctlLabel As Label, ctlText As TextBox
Dim rst As DAO.Recordset
'...'
Set rst = CurrentDb.OpenRecordset( "..." )
  While Not rst.EOF
    Set ctlText = CreateControl(form_name, acTextBox)
    With ctlText
      .Name = rst!ModelN
      .ControlSource = rst!xxx
      .OnDblClick =  "=editStatus()" 
    End With
    Set ctlLabel = CreateControl(form_name, acLabel, , ctlText.Name)
    ctlLabel.Caption =  "xxx" 
    rst.MoveNext
  Wend
'...'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2003, 21:29:59
    #32215005
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать поле?
Причем задавать все свойства можно двумя способами: для некоторых есть место среди параметров команды CreateControl, а вообще это можно делать просто обращаясь к свойствам объекта ctlText.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как програмно создать поле? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 280ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1680379]:
 0ms
get settings:
 4ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 185ms
total:  280ms
x
x
Закрыть


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