it works now, thank you very much!

 

Regards,

Frank

 

I am using Dockingpanes and in each dockingpane I have picturebox. I cannot draw anything on the picturebox. In fact I cannot get contact to the picturebox at all. How do I do that?

 

This is the code I use to create the dockingpane, could someone insert the code to contact the picturebox?

 

*****************************

 

Private Sub DockingPaneManager_GetClientBordersWidth(Left As Long, Top As Long, Right As Long, Bottom As Long)
   
    CommandBars.GetClientRect Left, Top, Right, Bottom

End Sub

Private Sub DockingPaneManager_Resize()
    On Error Resume Next
   
    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long
   
    DockingPaneManager.GetClientRect Left, Top, Right, Bottom
    DockingPaneManager.RedrawPanes
    Here I would like to draw the line -------.Line (0, 0)-(1000, 1000), RGB(0, 0, 0)

End Sub

 

Private Sub DockeingPaneInit()
   
    Dim dpViewer As frmViewer
    Dim dpKorpusFront As frmKorpusFront
    Dim dpKorpusOben As frmKorpusOben
   
    Set dpViewer = New frmViewer
    Set dpKorpusFront = New frmKorpusFront
    Set dpKorpusOben = New frmKorpusOben
           
    Dim A As XtremeDockingPane.Pane
    Dim b As XtremeDockingPane.Pane
    Dim c As XtremeDockingPane.Pane

    
    Set A = DockingPaneManager.CreatePane(1, 1000, 520, DockRightOf)
    A.Title = "3D"
   
    Set b = DockingPaneManager.CreatePane(2, 5000, 120, DockLeftOf)
    b.Title = "Frontansicht"
   
    Set c = DockingPaneManager.CreatePane(3, 320, 200, DockTopOf, b)
    c.Title = "Draufsicht"
   
    A.Handle = dpViewer.hwnd
    b.Handle = dpKorpusFront.hwnd
    c.Handle = dpKorpusOben.hwnd
        
    DockingPaneManager.options.HideClient = Not DockingPaneManager.options.HideClient
   
End Sub

 

***************************************

 

Thanks,

Frank