-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form1.vb
54 lines (50 loc) · 2.03 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
' Developer Express Code Central Example:
' How to completely hide the dock panel's caption?
'
' By setting the DockManager.DockingOptions.ShowCaptionOnMouseHover property it's
' possible to set whether the dock panel's caption is shown only when the mouse
' pointer hovers over the panel's top or all the time. This example demonstrates
' how to prevent the dock panel's caption from being shown for an individual dock
' panel all the time.
'
' You can find sample updates and versions for different programming languages here:
' http://www.devexpress.com/example=E1940
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports DevExpress.XtraBars.Docking
Imports DevExpress.XtraBars.Docking.Helpers
Namespace WindowsApplication81
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
'CustomDockPanel panel;
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
AddHandler customDockManager1.RegisterDockPanel, AddressOf customDockManager1_RegisterDockPanel
'CustomDockManager manager = new CustomDockManager(this);
'panel = manager.AddPanel(DockingStyle.Left) as CustomDockPanel;
'panel.Text = "dockPanel1";
'panel = manager.AddPanel(DockingStyle.Left) as CustomDockPanel;
'panel.Text = "dockPanel2";
'panel.ShowCaption = false;
End Sub
Private parentPanel As CustomDockPanel = Nothing
Private Sub customDockManager1_RegisterDockPanel(ByVal sender As Object, ByVal e As DockPanelEventArgs)
'throw new NotImplementedException();
'if (e.Panel==pane)
If e.Panel.Text.Contains("container") Then
parentPanel = TryCast(e.Panel, CustomDockPanel)
End If
End Sub
Private Sub checkEdit1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles checkEdit1.CheckedChanged
TryCast(panelContainer1, CustomDockPanel).ShowCaption = checkEdit1.Checked
End Sub
End Class
End Namespace