Показ Property Page объекта в режиме run-time

22.12.2011, 10:46. **Показов** 1285. **Ответов** 2

Студворк — интернет-сервис помощи студентам

В Сети есть пример использования АПИ-функции [bold]OleCreatePropertyFrame[/bold] для отображения [italic]property page[/italic] заданного объекта:

http://download.microsoft.com/... opPick.exe

Работает, однако, только в VB IDE. А в run-time - страничку-то показывает, но все элементы управления, расположенные на страничке, пусты!

[underline]Воспроизведение ситуации:[/underline]
1. Распакуйте архив, ссылку на который я дал выше.
2. Откомпилите отдельно PROPPICK.VBP - это ActiveX DLL. Выставьте в свойствах этого проекта binary compatibility на полученную DLL-ку. Сохраните проект.
3. Запуститесь с группы PICKDEMO.VBG.
4. В свойствах start-up проекта EXAMPLE.VBP поменяйте тип на "Standard EXE".
5. Скомпилите EXAMPLE.VBP. Из полученного EXE-шника проперти-пейдж будет получаться пустой. А из VB IDE - всё путём.

Есть у кого мысли?!

24.12.2011, 18:46

[bold]PS:[/bold] по совету [bold]Nash Bridges[/bold] попробовал код вот из этого топика:
http://relib.com/forums/thread844364.aspx
Та же самая беда

(

@Konst_one · 01.01.2012, 13:43

с мелкософтовской статьи ничего не могу сказать, так как доступа туда у меня сейчас нет. А у меня в моем проекте все нормально работает вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Type GUID
    Data1                   As Long
    Data2                   As Integer
    Data3                   As Integer
    Data4(7)                As Byte
End Type
 
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpszProgID As Long, pCLSID As GUID) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function OleCreatePropertyFrame Lib "oleaut32.dll" (ByVal hWndOwner As Long, ByVal x As Long, ByVal y As Long, ByVal lpszCaption As Long, ByVal cObjects As Long, ByRef ppUnk As Long, ByVal cPages As Long, ByRef pPageClsID As GUID, ByVal lcid As Long, ByVal dwReserved As Long, ByVal pvReserved As Long) As Long
''
 
Public Sub ShowMyProperty(ByVal hWnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID As GUID
Const myGeneralPage = "{CC72240A-CFB5-4124-A007-296F23BC7822}"
 
    CLSIDFromString StrPtr(myGeneralPage), CLSID
    OleCreatePropertyFrame hWnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&
 
End Sub

Попробуй заменить на свой GUID и запустить.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

Comanche

	Показ Property Page объекта в режиме run-time 22.12.2011, 10:46. Показов 1285. Ответов 2 Метки нет (Все метки) В Сети есть пример использования АПИ-функции [bold]OleCreatePropertyFrame[/bold] для отображения [italic]property page[/italic] заданного объекта: http://download.microsoft.com/... opPick.exe Работает, однако, только в VB IDE. А в run-time - страничку-то показывает, но все элементы управления, расположенные на страничке, пусты! [underline]Воспроизведение ситуации:[/underline] 1. Распакуйте архив, ссылку на который я дал выше. 2. Откомпилите отдельно PROPPICK.VBP - это ActiveX DLL. Выставьте в свойствах этого проекта binary compatibility на полученную DLL-ку. Сохраните проект. 3. Запуститесь с группы PICKDEMO.VBG. 4. В свойствах start-up проекта EXAMPLE.VBP поменяйте тип на "Standard EXE". 5. Скомпилите EXAMPLE.VBP. Из полученного EXE-шника проперти-пейдж будет получаться пустой. А из VB IDE - всё путём. Есть у кого мысли?!

Godzilla
	24.12.2011, 18:46
	[bold]PS:[/bold] по совету [bold]Nash Bridges[/bold] попробовал код вот из этого топика: http://relib.com/forums/thread844364.aspx Та же самая беда (