VbEclipse Version 1.0 Final (docking MDI solution) Updated: 01/09/2007
The VbEclipse project is a Visual Basic 6.0 implementation of the Eclipse perspectives. It provides a high flexible and complete configurable docking MDI solution with a nice user interface.
FEATURES: + Multiple Perspectives + Tabbed Views + Drag & Drop Support + Maximize and Restore Views / Editors + Windows XP Schemes (Classic, Metallic, HomeStead, Normal) + Custom Color Scheme Support by IScheme Interface + Floating Views + Auto hide tab navigation buttons + Disable tab navigation buttons +
* * * * * P L E A S E V O T E * * * * *
API DeclarationsPrivate Sub Form_Load()
With Me.ucPerspective1
' Set the handle of main window
.MainHwnd = Me.hWnd
' Register the views
.AddView "Favorites", frmViewFavorites
.AddView "History", frmViewHistory
.AddView "Console", frmViewConsole
' Perspective without an editor area
With .AddPerspective("OnlyViews")
' Add new folders with views
With .AddFolder("Project_Folder", vbRelLeft, 1, .ID_EDITOR_AREA)
.AddView "Project"
.AddView "Objects"
.ActiveViewId = "Objects" ' Set objects view as active view
End With
With .AddFolder("Properties_Folder", vbRelRight, 0.7, "Project_Folder")
.AddView "Properties"
.AddView "Help"
.ActiveViewId = "Help"
End With
With .AddFolder("Console_Folder", vbRelBottom, 0.7, "Properties_Folder")
.AddView "Console"
.AddView "Tasks"
.AddView "Code"
.ActiveViewId = "Tasks"
End With
' Set the perspectives active view
.ActiveViewId = "Project"
' Hide the editor area
.EditorAreaVisible = False
End With
' Create a browser perspective
With .AddPerspective("Browser")
' Add favorites left to the editor area
With .AddFolder("Left_Folder", REL_LEFT, 0.3, .ID_EDITOR_AREA)
.AddView "Favorites"
End With
' Add history bottom to favorites
With .AddFolder("Left_Bottom_Folder", REL_BOTTOM, 0.5, "Left_Folder")
.AddView "History"
End With
' Add console bottom to editor area
With .AddFolder("Bottom_Folder", REL_BOTTOM, 0.7, .ID_EDITOR_AREA)
.AddView "Console"
End With
' Show the editor area
.EditorAreaVisible = True
End With
' Display the browser perspective
.ShowPerspective "Browser"
End With
End Sub
(83(83 Vote))