Как вызвать окно свойств ActiveX Control в run-time?

[jangle]

Надо вызвать окошко свойств контрола в режиме run-time. Подскажите, как это сделать

[Konst_One]

Код: Выделить всё

'
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 ShowFontProperty(ByVal hwnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID               As GUID

    CLSIDFromString StrPtr("{7EBDAAE0-8120-11CF-899F-00AA00688B10}"), CLSID
    OleCreatePropertyFrame hwnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&

End Sub
'
Public Sub ShowPictureProperty(ByVal hwnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID               As GUID

    CLSIDFromString StrPtr("{7EBDAAE2-8120-11CF-899F-00AA00688B10}"), CLSID
    OleCreatePropertyFrame hwnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&

End Sub

Public Sub ShowColorProperty(ByVal hwnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID               As GUID

    CLSIDFromString StrPtr("{7EBDAAE1-8120-11CF-899F-00AA00688B10}"), CLSID
    OleCreatePropertyFrame hwnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&

End Sub

Public Sub ShowStandardProperty(ByVal hwnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID               As GUID
   
    CLSIDFromString StrPtr("{13696E69-DD77-4151-A5E7-45DF368FCA91}"), CLSID
    OleCreatePropertyFrame hwnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&

End Sub

Public Sub ShowFormatProperty(ByVal hwnd As Long, ByVal Caption As String, ByRef MyObject As Object)
Dim CLSID               As GUID
'MSStdFmt Format Property Page Object
    CLSIDFromString StrPtr("{699DDBCC-DC7E-11D0-BCF7-00C04FC2FB86}"), CLSID
    OleCreatePropertyFrame hwnd, 0&, 0&, StrPtr(Caption), 1, ObjPtr(MyObject), 1, CLSID, GetSystemDefaultLCID, 0&, 0&

End Sub

[jangle]

Да нет, мне нужно окно свойств контрола. Control -> (Custom)

Посмотри скриншот такого окна

[alibek]

А Custom - это обычная форма. Если контрол твой, то вызываешь эту форму.

[jangle]

А Custom - это обычная форма. Если контрол твой, то вызываешь эту форму.

Нет это Microsoft Multimedia Control, у него есть свойство Custom, в браузере свойств. Жмешь на него, открывается окошко свойств контрола. Но это в design-time, а мне это же самое окно надо получить в run-time!

[Oxygen]

Мне кажется, что никак... А ты видел где-нибудь, что бы это окно вызывалось во время работы программы? А вопрос, зачем оно тебе?

[jangle]

Мне кажется, что никак

Можно, в VB IDE оно же вызывается, а это тоже обычная программа.

А вопрос, зачем оно тебе?

Дла задания свойств контрола в run-time, разве неясно?

[Oxygen]

Радикальный метод - возьми, раскомпилируй VB IDE, и посмотри, как он это делает.

Но мое личное мнение, что ничего у тебя не получится. Представь себе, что каждый начнет тянуть во время работы программы это окошко, и представь себе, что после этого будет с программой? Кроме того, мне почему-то очень сильно кажется, что свойства из этого окошка пишутся в сам проект, и компиляются вместе с ним. Хотя я могу и ошибаться.

[Lumen]

А какие свойства тебе надо задать в run-time?

[jangle]

Радикальный метод - возьми, раскомпилируй VB IDE, и посмотри, как он это делает.

А может еще и виндовс раскомпилировать?

Но мое личное мнение, что ничего у тебя не получится. Представь себе, что каждый начнет тянуть во время работы программы это окошко, и представь себе, что после этого будет с программой?

No comments.............

А какие свойства тебе надо задать в run-time?

Видимость кнопок, путь к файлу, режимы воспроизведения видео и звука.

У меня есть пример от Edanmo вроде должен рабоать в связке с OLE_LIB.TLB но к сожалению у меня он не работает

Код: Выделить всё

Sub ShowProperties( _
   ByVal Ctrl As Object, _
   Optional ByVal CtrlName As String, _
   Optional ByVal hWndParent As Long)
Dim oSPP As ISpecifyPropertyPages
Dim tPages As CAUUID

   On Error Resume Next
   
   ' Get ISpecifyPropertyPages interface
   ' of the control
   Set oSPP = Ctrl
   
   If oSPP Is Nothing Then
   
      ' If the QI fails try using the
      ' Object property of the control
      Set oSPP = Ctrl.Object
     
      If oSPP Is Nothing Then
         
         ' Reset the error handler
         On Error GoTo 0
         
         ' Raise an error
         Err.Raise 13
         
      End If
     
   End If
   
   ' Get the CLSIDs of the pages
   oSPP.GetPages tPages
   
   ' Show the pages
   OleCreatePropertyFrame hWndParent, 0, 0, _
      CtrlName, 1, Ctrl, tPages.cElems, _
      ByVal tPages.pElems, 0, 0, 0

   ' Release the pages array
   CoTaskMemFree tPages.pElems
   
End 

[tyomitch]

jangle, только что проверил этот код с MMControl -- работает.
Edanmo дурного не подскажет

[Lumen]

Всё, что ты перечислил, можно задать программно. Например видимость кнопок можно задать так:

Код: Выделить всё

MMControl1.PlayVisible = False


Невидимой будет кнопка Play

А путь к файлу так:

Код: Выделить всё

MMControl1.FileName = "Путь к файлу"


Какие ты имел в виду режимы воспроизведения звука и видео. Распиши поподробнее, я что-то не очень понял.

[jangle]

jangle, только что проверил этот код с MMControl -- работает.

Можешь показать код который работает?

Всё, что ты перечислил, можно задать программно

Мне не нужно задавать их программно. Свойства должны задаваться через окно свойств компонента

[inq]

Создать свою форму похожую форму, в которой и задавать нужные свойства и не париться.

[alibek]

Можешь показать код который работает?

Возможно, твой компонент требует более полной реализации хоста, чем MMControl.

[tyomitch]

jangle, только что проверил этот код с MMControl -- работает.

Можешь показать код который работает?

Код: Выделить всё

Private Sub Form_DblClick()
    ShowProperties MMControl1, "MMControl1", hWnd
End Sub


[Konst_One]

jangle


так я же это уже все написал сразу, че совсем туго чуток подправить