Refresh

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi
I have just three picturebox on my form.
These will go into three panes that are linked into tabs.

When the code is run below the pictureboxes dont get put into their correct panes until the corsponding tab is clicked.

Any help would be most welcome.

Thanks
Tom

Dim PaneTab1 As Pane
Dim PaneTab2 As Pane
Dim PaneTab3 As Pane

Private Sub Form_Load()
   Set PaneTab1 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf)
   PaneTab1.Title = "Tab1"
   Set PaneTab2 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf)
   PaneTab2.Title = "Tab2"
   PaneTab2.AttachTo PaneTab1
   Set PaneTab3 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf)
   PaneTab3.Title = "Tab3"
   PaneTab3.AttachTo PaneTab2
   PaneTab1.Select
End Sub

Private Sub DockingPaneManager_AttachPane(ByVal Item As XtremeDockingPane.IPane)
Select Case Item.Title
    Case "Tab1"
       Item.Handle = Picture1.hWnd
    Case "Tab2"
        Item.Handle = Picture2.hWnd
    Case "Tab3"
        Item.Handle = Picture3.hWnd
End Select
End Sub

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
tomamoss Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 19 December 2006 Status: Offline Points: 12	Post Options Post Reply Quote tomamoss Report Post Thanks(0) Quote Reply Topic: Refresh Posted: 19 December 2006 at 3:33am
	Hi I have just three picturebox on my form. These will go into three panes that are linked into tabs. When the code is run below the pictureboxes dont get put into their correct panes until the corsponding tab is clicked. Any help would be most welcome. Thanks Tom Dim PaneTab1 As Pane Dim PaneTab2 As Pane Dim PaneTab3 As Pane Private Sub Form_Load() Set PaneTab1 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf) PaneTab1.Title = "Tab1" Set PaneTab2 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf) PaneTab2.Title = "Tab2" PaneTab2.AttachTo PaneTab1 Set PaneTab3 = DockingPaneManager.CreatePane(1, 1350, 1200, DockTopOf) PaneTab3.Title = "Tab3" PaneTab3.AttachTo PaneTab2 PaneTab1.Select End Sub Private Sub DockingPaneManager_AttachPane(ByVal Item As XtremeDockingPane.IPane) Select Case Item.Title Case "Tab1" Item.Handle = Picture1.hWnd Case "Tab2" Item.Handle = Picture2.hWnd Case "Tab3" Item.Handle = Picture3.hWnd End Select End Sub

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 19 December 2006 at 8:46am
	Hi, yes it is designed bahaviour. You can add PaneTab3.Handle = Picture3.hWnd PaneTab2.Handle = Picture2.hWnd ... in Form_Load
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS