-
Notifications
You must be signed in to change notification settings - Fork 0
/
Ribbon1.Designer.vb
104 lines (91 loc) · 3.14 KB
/
Ribbon1.Designer.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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
Partial Class Ribbon1
Inherits Microsoft.Office.Tools.Ribbon.RibbonBase
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
If (container IsNot Nothing) Then
container.Add(Me)
End If
End Sub
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New()
MyBase.New(Globals.Factory.GetRibbonFactory())
'This call is required by the Component Designer.
InitializeComponent()
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Tab1 = Me.Factory.CreateRibbonTab
Me.Group1 = Me.Factory.CreateRibbonGroup
Me.Button1 = Me.Factory.CreateRibbonButton
Me.EditBox1 = Me.Factory.CreateRibbonEditBox
Me.Tab1.SuspendLayout()
Me.Group1.SuspendLayout()
Me.SuspendLayout()
'
'Tab1
'
Me.Tab1.ControlId.ControlIdType = Microsoft.Office.Tools.Ribbon.RibbonControlIdType.Office
Me.Tab1.Groups.Add(Me.Group1)
Me.Tab1.Label = "TabAddIns"
Me.Tab1.Name = "Tab1"
'
'Group1
'
Me.Group1.Items.Add(Me.Button1)
Me.Group1.Items.Add(Me.EditBox1)
Me.Group1.Label = "ColorizeCells"
Me.Group1.Name = "Group1"
'
'Button1
'
Me.Button1.Label = "Go"
Me.Button1.Name = "Button1"
'
'EditBox1
'
Me.EditBox1.Label = "Num"
Me.EditBox1.Name = "EditBox1"
Me.EditBox1.Text = "100"
'
'Ribbon1
'
Me.Name = "Ribbon1"
Me.RibbonType = "Microsoft.Excel.Workbook"
Me.Tabs.Add(Me.Tab1)
Me.Tab1.ResumeLayout(False)
Me.Tab1.PerformLayout()
Me.Group1.ResumeLayout(False)
Me.Group1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Public WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab
Public WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup
Public WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
Public WithEvents EditBox1 As Microsoft.Office.Tools.Ribbon.RibbonEditBox
End Class
Partial Class ThisRibbonCollection
<System.Diagnostics.DebuggerNonUserCode()> _
Friend ReadOnly Property Ribbon1() As Ribbon1
Get
Return Me.GetRibbon(Of Ribbon1)()
End Get
End Property
End Class