[求助]：对话框,我该拿你怎么办...?

xiaokai

请问
如果把用vba做成的对话框编译成dll
还能不能像没编译前那样,在autocad的环境下显示呢?

怎么都没人解答
版主呢
另外我想这个窗口一直都要在autocad程序窗口的最前面
怎么做
谢谢*-*8

雪山飞狐(lzh)

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private m_oApp As Object

Public Property Set Application(ByVal vNewValue As Object)
    Set m_oApp = vNewValue
End Property

Private Sub Form_Load()
    SetParent Me.hwnd, GetParent(GetParent(m_oApp.ActiveDocument.hwnd))
End Sub

类模块：

Private m_oApp As Object

Public Property Let Application(ByVal vNewValue)
    Set m_oApp = vNewValue
End Property

Public Sub ShowForm()
    Set frmTest.Application = m_oApp
    frmTest.Show
End Sub

ntchjie

SetParent Me.hwnd, GetParent(GetParent(m_oApp.ActiveDocument.hwnd))
错误91,对象变量或with块变量未设置
老大帮忙帮到底吧?

雪山飞狐(lzh)

m_oApp没赋值，把Application赋给它