ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
6 сообщений из 6, страница 1 из 1
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35590342
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Обсуждался вопрос. Мне понравилась возможность динамически создавать кнопку
Set btnOK = Me.Controls.Add("VB.CommandButton", "btnOK")
btnOK.Move 30, 30, 1300, 345
btnOK.Visible = True
btnOK.Caption = "Click Me"

Пожалуйста добавте колекцию "Me.Controls.Add(":
поле, поле со списком, список, имедж тоже можна

"Зачем мне это ?"
Хотелось бы когда-нибудь создать универсальный редактор с загрузкой плагинов, который бы помогал при написании програм методом подказок и подстановок. Если уже есть такой то просто бомба! Мне нравится редактор 2008 студии, но комп оч. тормозит, да и не очень то охота покидать vb6...
с уважением Андрей
...
Рейтинг: 0 / 0
13.10.2008, 02:17
| Ответить | Цитировать | Написать  
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35590357
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
И ваш будет тормозить :-)

А так - названия для объектов стандартны:
"VB" - приложение "CommandButton" - класс
VB.TextBox, VB.ComboBox, VB.ListBox, VB.Image, ...

А еще можно вставить через OLE-провайдера:
<object-document.position>.AddOLEControl (<ClassType)

oXLS_WB.Sheets(1).AddOLEControl("Forms.OptionButton.1")
oXLS_WB.Sheets(2).AddOLEControl("OWC10.PivotTable.10")
oWD_DOC.InlineShapes.AddOLEControl("OWC11.RecordNavigationControl.11")
...
Рейтинг: 0 / 0
13.10.2008, 03:32
| Ответить | Цитировать | Написать  
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35592488
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Большое спасибо
А в Word можна попробовать ?
...
Рейтинг: 0 / 0
14.10.2008, 05:10
| Ответить | Цитировать | Написать  
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35594524
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Андрей159А в Word можна попробовать ?
AndreTMoXLS_WB.Sheets(1).AddOLEControl("Forms.OptionButton.1")
oXLS_WB.Sheets(2).AddOLEControl("OWC10.PivotTable.10")
oWD_DOC.InlineShapes.AddOLEControl("OWC11.RecordNavigationControl.11")

Excel: ActiveSheet..AddOLEControl("Forms.ListBox.1")
Word: ActiveDocument.Selection..InlineShapes.AddOLEControl("Forms.ComboBox.1")
...
Рейтинг: 0 / 0
14.10.2008, 21:03
| Ответить | Цитировать | Написать  
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35595887
KOT MATPOCKuH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KOT MATPOCKuH
Участник
(Тоже стало интересно)
И как после:

Set btnOK = Me.Controls.Add("VB.CommandButton", "btnOK")
btnOK.Move 30, 30, 1300, 345
btnOK.Visible = True
btnOK.Caption = "Click Me"

отловить событие нажатия на эту кнопку? А иначе - зачем же она :)
...
Рейтинг: 0 / 0
15.10.2008, 14:43
| Ответить | Цитировать | Написать  
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
    #35595926
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
KOT MATPOCKuH,
Q190670. How To Dynamically Add Controls to a Form with Visual Basic 6.0

P.S. Настоящий Матроскин - умное жЫвотное, и наверняка умеет пользоваться поиском
...
Рейтинг: 0 / 0
15.10.2008, 14:53
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35590342&tid=2161732]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 76ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 237ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


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