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

22.12.2011, 10:46. **Показов** 1274. **Ответов** 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 и запустить.

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

Comanche

	Показ Property Page объекта в режиме run-time 22.12.2011, 10:46. Показов 1274. Ответов 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 Та же самая беда (

Опции темы