自定义控件之二（左侧OUTLOOK控件）
工作快一年了，发现自己依然很菜。离自己的理想越差越远。也许因为自己是专科生吧。自己写个控件发现就是胡编，没有一点所谓节省资源啊，方便易用性，完全是自己胡扯。若您有兴趣谢谢指导。
代码
1 Imports BizWiseControl.gButton
2 Public Class LeftMenu
3 Public Event leftmenuevent(ByVal ino As Integer)
4 Private _twoMenu As DataTable
5 Dim arry As New ArrayList
6 Public Property twoMenu() As DataTable
7 Get
8 Return _twoMenu
9 End Get
10 Set(ByVal value As DataTable)
11 _twoMenu = value
12 arry.Add(_twoMenu)
13 SetTwoMenu(1)
14 End Set
15 End Property
16 Private _oneMenu As DataTable
17 Public Property oneMenu() As DataTable
18 Get
19 Return _oneMenu
20 End Get
21 Set(ByVal value As DataTable)
22 _oneMenu = value
23 SetOneMenu()
24 End Set
25 End Property
26 Private _myControl As Control()
27 Public Property myControl() As Control()
28 Get
29 Return _myControl
30 End Get
31 Set(ByVal value As Control())
32 _myControl = value
33 End Set
34 End Property
35 Private _preClick As Integer
36 Public Property preClick() As Integer
37 Get
38 Return _preClick
39 End Get
40 Set(ByVal value As Integer)
41 _preClick = value
42 End Set
43 End Property
44 Private Sub SetOneMenu()
45 Dim inti As Integer
46 D_GtwoMenu.Dock = DockStyle.Fill
47 Try
48 If _oneMenu.Rows.Count < 1 Then Exit Sub
49 For inti = 1 To _oneMenu.Rows.Count - 1
50 Dim gb As New gButton
51 gb.modeName = _oneMenu.Rows(inti - 1).Item(2)
52 gb.Name = "Menu" & inti
53 gb.TabIndex = inti
54 AddHandler gb.myevent, AddressOf DoMenu
55 Me.Controls.Add(gb)
56 If gb.Name = "Menu1" Then
57 gb.Dock = DockStyle.Top
58 Else
59 gb.Dock = DockStyle.Bottom
60 gb.SendToBack()
61 End If
62 Next
63 Dim subsctrl(Me.Controls.Count) As Control
64 Me.Controls.CopyTo(subsctrl, 0)
65 myControl = subsctrl
66 Catch ex As Exception
67
68
69 End Try
70 End Sub
71 Private Sub SetTwoMenu(ByVal ino As Integer)
72 Dim inti As Integer
73 Try
74 D_GtwoMenu.RowCount = _twoMenu.Rows.Count
75 For inti = 0 To _twoMenu.Rows.Count - 1
76 D_GtwoMenu.Rows(inti).Cells(0).Value = arry(ino).Rows(inti).Item(2)
77 Next
78 Catch ex As Exception
79
80 End Try
81
82 End Sub
83 Private Sub DoMenu(ByVal sender As System.Object, ByVal e As System.EventArgs)
84 RaiseEvent leftmenuevent(CInt(Mid(sender, 5)))
85 Dim i As Integer
86
87 If Mid(sender, 1, 4) <> "Menu" Then Exit Sub
88
89 If _preClick < CInt(Mid(sender, 5)) Then
90 For i = CInt(Mid(sender, 5)) To 1 Step -1
91 If TypeName(_myControl(i)) <> "gButton" Then
92 D_GtwoMenu.BringToFront()
93 D_GtwoMenu.Dock = DockStyle.Fill
94 Else
95 _myControl(i).Dock = DockStyle.Top
96 _myControl(i).SendToBack()
97 End If
98 Next
99 Else
100 For i = CInt(Mid(sender, 5)) + 1 To Me.Controls.Count
101 If TypeName(_myControl(i)) <> "gButton" Then
102 D_GtwoMenu.BringToFront()
103 D_GtwoMenu.Dock = DockStyle.Fill
104 Else
105 _myControl(i).Dock = DockStyle.Bottom
106 _myControl(i).SendToBack()
107 End If
108 Next
109 End If
110 AddHandler Me.leftmenuevent, AddressOf SetTwoMenu
111 _preClick = CInt(Mid(sender, 5))
112
113 End Sub
114
115 Private Sub D_GtwoMenu_CellMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles D_GtwoMenu.CellMouseMove
116 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Blue
117 End Sub
118
119 Private Sub D_GtwoMenu_CellMouseLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles D_GtwoMenu.CellMouseLeave
120 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
121 End Sub
122
123 Private Sub D_GtwoMenu_CellMouseEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles D_GtwoMenu.CellMouseEnter
124 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
125 End Sub
126
127 Public Sub New()
128
129 ' 此调用是 Windows 窗体设计器所必需的。
130 InitializeComponent()
131 Dim cursor As System.Windows.Forms.Cursor = New System.Windows.Forms.Cursor(Me.GetType(), "harrow.cur")
132 D_GtwoMenu.Cursor = cursor
133 ' 在 InitializeComponent() 调用之后添加任何初始化。
134
135 End Sub
136 End Class
137
2 Public Class LeftMenu
3 Public Event leftmenuevent(ByVal ino As Integer)
4 Private _twoMenu As DataTable
5 Dim arry As New ArrayList
6 Public Property twoMenu() As DataTable
7 Get
8 Return _twoMenu
9 End Get
10 Set(ByVal value As DataTable)
11 _twoMenu = value
12 arry.Add(_twoMenu)
13 SetTwoMenu(1)
14 End Set
15 End Property
16 Private _oneMenu As DataTable
17 Public Property oneMenu() As DataTable
18 Get
19 Return _oneMenu
20 End Get
21 Set(ByVal value As DataTable)
22 _oneMenu = value
23 SetOneMenu()
24 End Set
25 End Property
26 Private _myControl As Control()
27 Public Property myControl() As Control()
28 Get
29 Return _myControl
30 End Get
31 Set(ByVal value As Control())
32 _myControl = value
33 End Set
34 End Property
35 Private _preClick As Integer
36 Public Property preClick() As Integer
37 Get
38 Return _preClick
39 End Get
40 Set(ByVal value As Integer)
41 _preClick = value
42 End Set
43 End Property
44 Private Sub SetOneMenu()
45 Dim inti As Integer
46 D_GtwoMenu.Dock = DockStyle.Fill
47 Try
48 If _oneMenu.Rows.Count < 1 Then Exit Sub
49 For inti = 1 To _oneMenu.Rows.Count - 1
50 Dim gb As New gButton
51 gb.modeName = _oneMenu.Rows(inti - 1).Item(2)
52 gb.Name = "Menu" & inti
53 gb.TabIndex = inti
54 AddHandler gb.myevent, AddressOf DoMenu
55 Me.Controls.Add(gb)
56 If gb.Name = "Menu1" Then
57 gb.Dock = DockStyle.Top
58 Else
59 gb.Dock = DockStyle.Bottom
60 gb.SendToBack()
61 End If
62 Next
63 Dim subsctrl(Me.Controls.Count) As Control
64 Me.Controls.CopyTo(subsctrl, 0)
65 myControl = subsctrl
66 Catch ex As Exception
67
68
69 End Try
70 End Sub
71 Private Sub SetTwoMenu(ByVal ino As Integer)
72 Dim inti As Integer
73 Try
74 D_GtwoMenu.RowCount = _twoMenu.Rows.Count
75 For inti = 0 To _twoMenu.Rows.Count - 1
76 D_GtwoMenu.Rows(inti).Cells(0).Value = arry(ino).Rows(inti).Item(2)
77 Next
78 Catch ex As Exception
79
80 End Try
81
82 End Sub
83 Private Sub DoMenu(ByVal sender As System.Object, ByVal e As System.EventArgs)
84 RaiseEvent leftmenuevent(CInt(Mid(sender, 5)))
85 Dim i As Integer
86
87 If Mid(sender, 1, 4) <> "Menu" Then Exit Sub
88
89 If _preClick < CInt(Mid(sender, 5)) Then
90 For i = CInt(Mid(sender, 5)) To 1 Step -1
91 If TypeName(_myControl(i)) <> "gButton" Then
92 D_GtwoMenu.BringToFront()
93 D_GtwoMenu.Dock = DockStyle.Fill
94 Else
95 _myControl(i).Dock = DockStyle.Top
96 _myControl(i).SendToBack()
97 End If
98 Next
99 Else
100 For i = CInt(Mid(sender, 5)) + 1 To Me.Controls.Count
101 If TypeName(_myControl(i)) <> "gButton" Then
102 D_GtwoMenu.BringToFront()
103 D_GtwoMenu.Dock = DockStyle.Fill
104 Else
105 _myControl(i).Dock = DockStyle.Bottom
106 _myControl(i).SendToBack()
107 End If
108 Next
109 End If
110 AddHandler Me.leftmenuevent, AddressOf SetTwoMenu
111 _preClick = CInt(Mid(sender, 5))
112
113 End Sub
114
115 Private Sub D_GtwoMenu_CellMouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles D_GtwoMenu.CellMouseMove
116 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Blue
117 End Sub
118
119 Private Sub D_GtwoMenu_CellMouseLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles D_GtwoMenu.CellMouseLeave
120 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.White
121 End Sub
122
123 Private Sub D_GtwoMenu_CellMouseEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles D_GtwoMenu.CellMouseEnter
124 D_GtwoMenu.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red
125 End Sub
126
127 Public Sub New()
128
129 ' 此调用是 Windows 窗体设计器所必需的。
130 InitializeComponent()
131 Dim cursor As System.Windows.Forms.Cursor = New System.Windows.Forms.Cursor(Me.GetType(), "harrow.cur")
132 D_GtwoMenu.Cursor = cursor
133 ' 在 InitializeComponent() 调用之后添加任何初始化。
134
135 End Sub
136 End Class
137
效果图：（只实现了效果，页面并没有进行修饰）
