请教，如何在Active Dll中加入Mdi子窗体。求教高手！！！

http://www.csdn.net/expert/topic/853/853126.xml?temp=.9752008

解决方案 »

  1.   

    我没有试过，可不可以用Setparent API来做到
      

  2.   

    我早试过了。声明Active Dll后，用Setparent不行，虽然看起来是主窗体子窗体，但是那个之窗体不是真正的子窗体，效果你自己可以看看。
      

  3.   

    这个问题我不懂,但我请大家推荐几本有关VB中介绍DLL，ActiveX控件，类模块的书，可以吗？
    我在书店当中从没看过这方面的书，希望大家能帮忙，谢谢！！！
      

  4.   

    http://baiqiangren.myetang.com/vb_code/Activex/smdiactivex.ziphttp://www.wallner-software.com/
      

  5.   

    http://baiqiangren.myetang.com/vb_code/Activex/smdiactivex.ziphttp://www.wallner-software.com/
      

  6.   

    程序有点难，我很多API函数看不懂，还有他的源代码还有其他许多功能。我只想要清晰的解决我问题的。
      

  7.   

    你试试
    ===================================================================
    ' Child Form 
    Option ExplicitDim m_oParent As frmMDIParentPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)Public Property Let Parent(lpParent As Long)
      Dim oParent As frmMDIParent
      CopyMemory oParent, lpParent, 4&
      Set m_oParent = oParent
      CopyMemory oParent, 0&, 4&
    End PropertyPrivate Sub mnuNew_Click()
      m_oParent.CreateNewDocument
    End SubPrivate Sub mnuClose_Click()
      Call Terminate
    End SubPrivate Sub mnuCloseAll_Click()
      m_oParent.CloseChildren
    End SubPrivate Sub mnuExit_Click()
      m_oParent.Terminate
    End SubPublic Sub Terminate()
      Set m_oParent = Nothing
      Unload Me
    End Sub-------------------------------------------------------------------' MDI Form
    Public Sub CreateNewDocument()
      Dim f As New frmMDIChild
      
      f.Parent = ObjPtr(Me)
      
      f.Show
    End SubPublic Sub CloseChildren()  Dim i As Integer
      For i = (Forms.Count - 1) To 0 Step -1
        If TypeOf Forms(i) Is frmMDIChild Then
          Forms(i).Terminate
        End If
      Next
    End SubPublic Sub Terminate()
      CloseChildren
      Unload Me
    End Sub
    ===================================================================
      

  8.   

    f.Parent = ObjPtr(Me)        有什么用？
      

  9.   

    Public Property Let Parent(lpParent As Long)    我这个过程看不懂
      Dim oParent As frmMDIParent
      CopyMemory oParent, lpParent, 4&              CopyMemory有什么用？      
      Set m_oParent = oParent
      CopyMemory oParent, 0&, 4&
    End Property
    f.Parent = ObjPtr(Me)                ObjPtr这个函数什么意思？
      

  10.   

    CopyMemory有什么用？      是内存复制呀
    ObjPtr是求到对象的指针
      

  11.   

    自定义下拉控件界面图
    http://www.easthot.net/download/dropdowndemo.gif
    色彩下拉控件界面图
    http://www.easthot.net/download/xpclrcmb.gif
    XP农历控件界面图(试用版)
    http://www.easthot.net/download/xpcaltrial.gif
    东方万年历软件界面图
    http://www.easthot.net/download/eastcal.gif以上控件与软件都在分发，软件为免费版，控件除注明外，均是演示版！
    需要者请到http://www.easthot.net/论坛注册登记！
      

  12.   

    f.Parent = ObjPtr(Me)f.Parent = Me   为什么不可以？