|
v7: Подскажите где найти методы и свойства Этих АктивИксов |
☑ |
0
botman4
21.09.17
✎
16:30
|
//ImageCombo control MSComCtlLib.ImageComboCtl.2
// СоздатьКонтрол("MSComCtlLib.ImageComboCtl.2","ImageCombo");
//
// //ImageList control MSComCtlLib.ImageListCtrl.2
//
// СоздатьКонтрол("MSComCtlLib.ImageListCtrl.2","ImageList");
//
// //ListView control MSComCtlLib.ListViewCtrl.2
//
// СоздатьКонтрол("MSComCtlLib.ListViewCtrl.2","ListView");
//
// //ProgressBar control MSComCtlLib.ProgCtrl.2
//
// СоздатьКонтрол("MSComCtlLib.ProgCtrl.2","Prog");
//
// //Slider control MSComCtlLib.Slider.2
//
// СоздатьКонтрол("MSComCtlLib.Slider.2","Slider");
//
// //StatusBar control MSComCtlLib.SBarCtrl.2
//
// СоздатьКонтрол("MSComCtlLib.SBarCtrl.2","SBar");
//
// //Toolbar control MSComCtlLib.Toolbar.2
//
// СоздатьКонтрол("MSComCtlLib.Toolbar.2","Toolbar");
//
// //TreeView control MSComCtlLib.TreeViewCtrl.2
//
// СоздатьКонтрол("MSComCtlLib.TreeCtrl.2","Tree");
//
// //WMPlayer control
// СоздатьКонтрол("WMPlayer.OCX.7","Wmp");
|
|
1
Ёпрст
гуру
21.09.17
✎
16:31
|
знакомый код..
Посмотреть в ворде/экселе в обозревателе объектов
|
|
2
botman4
21.09.17
✎
16:32
|
Да, код твой. Сейчас гляну, спасибо.
|
|
3
Ёпрст
гуру
21.09.17
✎
16:51
|
если че, Запусти Excel/word, нажми Alt+F11, затем F2.
|
|
4
Ёпрст
гуру
21.09.17
✎
16:52
|
там разберешься
|
|
5
Ёпрст
гуру
21.09.17
✎
16:56
|
Если нужного объекта нема - тыркаешь в Tools- reference- или втыкаешь галочки или ручонками указываешь путь до нужного ocx/dll
|
|
6
botman4
21.09.17
✎
21:04
|
все нашел, спасибо.
как победить "Sub Refresh()" ???
Прог = СоздатьКонтрол("MSComCtlLib.ProgCtrl.2","Prog");
Прог.Min = 1;
Прог.Max = 100000;
Для ы=1 По 100000 Цикл
Прог.Value = ы;
Форма.обновить();/// Но это фигня мне кажется, что тут нужно
// Прог.Refresh(), но он не отрабатывает, ругается...
КонецЦикла;
|
|
7
botman4
21.09.17
✎
21:11
|
Разобрался... аказыцца прокатывает просто
Для ы=1 По 100000 Цикл
Прог.Value = ы;
КонецЦикла;
|
|
8
botman4
21.09.17
✎
21:13
|
Но все равно, что такое "Sub Refresh()" ???
|
|
9
Ёпрст
гуру
22.09.17
✎
10:15
|
(8) принудительная отрисовка контрола на форме.
|
|
10
Ёпрст
гуру
22.09.17
✎
10:16
|
этих прогресс-баров, как грязи.
|
|
11
Duke1C
22.09.17
✎
10:24
|
Ну и для полноты картины не хватает кода самой функции "СоздатьКонтрол()"
|
|
12
Ёпрст
гуру
22.09.17
✎
10:36
|
(11)
//======================================================================
Функция СоздатьКонтрол(ИмяКонтрола,ИмяАтрибутаФормы)
АктивХ = СоздатьОбъект("АктивИкс") ;
АктивХ.УстановитьАтрибут(Форма,ИмяАтрибутаФормы);
АктивХ.СоздатьЭУ(ИмяКонтрола);
Возврат АктивХ.Объект;
КонецФункции // СоздатьКонтрол
|
|
13
botman4
23.09.17
✎
22:34
|
(10) А чем пользуешься в качестве прогресс бара и закладок на форме, если не секрет?
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший