Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut... / 6 сообщений из 6, страница 1 из 1
13.10.2008, 02:17
    #35590342
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
Обсуждался вопрос. Мне понравилась возможность динамически создавать кнопку
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, 03:32
    #35590357
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
И ваш будет тормозить :-)

А так - названия для объектов стандартны:
"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
| Ответить | Цитировать | Написать  
14.10.2008, 05:10
    #35592488
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
Большое спасибо
А в Word можна попробовать ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2008, 21:03
    #35594524
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
Андрей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
| Ответить | Цитировать | Написать  
15.10.2008, 14:43
    #35595887
KOT MATPOCKuH
KOT MATPOCKuH
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
(Тоже стало интересно)
И как после:

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:53
    #35595926
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut...
KOT MATPOCKuH,
Q190670. How To Dynamically Add Controls to a Form with Visual Basic 6.0

P.S. Настоящий Матроскин - умное жЫвотное, и наверняка умеет пользоваться поиском
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подкиньте пожалуйста еще примеры таких как Set btnOK = Me.Controls.Add("VB.CommandBut... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 341ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2161732]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 206ms
total:  341ms
x
x
Закрыть


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