Skip to content

Commit ce9345a

Browse files
josef-poetzljosef-poetzl
committed
+ Ribbon
1 parent 3c0dca9 commit ce9345a

File tree

4 files changed

+117
-0
lines changed

4 files changed

+117
-0
lines changed

‎source/modules/modRibbonProcedures.bas

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,7 @@
1+
Attribute VB_Name = "modRibbonProcedures"
2+
Option Compare Database
3+
Option Explicit
4+
5+
Public Function RibbonProcTest1()
6+
MsgBox "You clicked!", vbCritical, ""
7+
End Function

‎source/tables/USysRibbons.txt

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
lngID RibbonName RibbonXml
2+
1 MainRibbon <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" ><commands><command idMso="Help" enabled="false"/></commands><ribbon startFromScratch="true">\r\n<tabs><tab id="T1" label="Home">\r\n<group id="G1" label="Test">\r\n <button id="TestBtn1" label="Don't click here" size="large" imageMso="CreateTable" onAction="=RibbonProcTest1()" />\r\n <button idMso="PrintDialogAccess" size="large" label="Print Dialog" />\r\n <control idMso="WindowsSwitch" size="large" label="Switch Windows" />\r\n</group>\r\n</tab></tabs></ribbon></customUI>

‎source/tbldefs/USysRibbons.sql

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
CREATE TABLE [USysRibbons] (
2+
[lngID] AUTOINCREMENT CONSTRAINT [lngID] PRIMARY KEY UNIQUE NOT NULL,
3+
[RibbonName] VARCHAR (255),
4+
[RibbonXml] LONGTEXT
5+
)

‎source/tbldefs/USysRibbons.xml

Lines changed: 103 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,103 @@
1+
<?xml version="1.0"?>
2+
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:od="urn:schemas-microsoft-com:officedata">
3+
<xsd:element name="dataroot">
4+
<xsd:complexType>
5+
<xsd:sequence>
6+
<xsd:element ref="USysRibbons" minOccurs="0" maxOccurs="unbounded"></xsd:element>
7+
</xsd:sequence>
8+
<xsd:attribute name="generated" type="xsd:dateTime"></xsd:attribute>
9+
</xsd:complexType>
10+
</xsd:element>
11+
<xsd:element name="USysRibbons">
12+
<xsd:annotation>
13+
<xsd:appinfo>
14+
<od:index index-name="lngID" index-key="lngID " primary="yes" unique="yes" clustered="no" order="asc"></od:index>
15+
<od:tableProperty name="RowHeight" type="3" value="3060"></od:tableProperty>
16+
<od:tableProperty name="Orientation" type="2" value="0"></od:tableProperty>
17+
<od:tableProperty name="OrderByOn" type="1" value="0"></od:tableProperty>
18+
<od:tableProperty name="DefaultView" type="2" value="2"></od:tableProperty>
19+
<od:tableProperty name="DisplayViewsOnSharePointSite" type="2" value="1"></od:tableProperty>
20+
<od:tableProperty name="TotalsRow" type="1" value="0"></od:tableProperty>
21+
<od:tableProperty name="FilterOnLoad" type="1" value="0"></od:tableProperty>
22+
<od:tableProperty name="OrderByOnLoad" type="1" value="1"></od:tableProperty>
23+
<od:tableProperty name="HideNewField" type="1" value="0"></od:tableProperty>
24+
<od:tableProperty name="SubdatasheetName" type="10" value="[None]"></od:tableProperty>
25+
<od:tableProperty name="BackTint" type="6" value="100"></od:tableProperty>
26+
<od:tableProperty name="BackShade" type="6" value="100"></od:tableProperty>
27+
<od:tableProperty name="ThemeFontIndex" type="4" value="-1"></od:tableProperty>
28+
<od:tableProperty name="AlternateBackThemeColorIndex" type="4" value="-1"></od:tableProperty>
29+
<od:tableProperty name="AlternateBackTint" type="6" value="100"></od:tableProperty>
30+
<od:tableProperty name="AlternateBackShade" type="6" value="100"></od:tableProperty>
31+
<od:tableProperty name="DatasheetGridlinesThemeColorIndex" type="4" value="-1"></od:tableProperty>
32+
<od:tableProperty name="DatasheetForeThemeColorIndex" type="4" value="-1"></od:tableProperty>
33+
<od:tableProperty name="ReadOnlyWhenDisconnected" type="1" value="0"></od:tableProperty>
34+
</xsd:appinfo>
35+
</xsd:annotation>
36+
<xsd:complexType>
37+
<xsd:sequence>
38+
<xsd:element name="lngID" minOccurs="1" od:jetType="autonumber" od:sqlSType="int" od:autoUnique="yes" od:nonNullable="yes" type="xsd:int">
39+
<xsd:annotation>
40+
<xsd:appinfo>
41+
<od:fieldProperty name="ColumnWidth" type="3" value="735"></od:fieldProperty>
42+
<od:fieldProperty name="ColumnOrder" type="3" value="1"></od:fieldProperty>
43+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
44+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
45+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
46+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
47+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
48+
</xsd:appinfo>
49+
</xsd:annotation>
50+
</xsd:element>
51+
<xsd:element name="RibbonName" minOccurs="0" od:jetType="text" od:sqlSType="nvarchar">
52+
<xsd:annotation>
53+
<xsd:appinfo>
54+
<od:fieldProperty name="ColumnWidth" type="3" value="2415"></od:fieldProperty>
55+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
56+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
57+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
58+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
59+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
60+
<od:fieldProperty name="AllowZeroLength" type="1" value="1"></od:fieldProperty>
61+
<od:fieldProperty name="DisplayControl" type="3" value="109"></od:fieldProperty>
62+
<od:fieldProperty name="IMEMode" type="2" value="0"></od:fieldProperty>
63+
<od:fieldProperty name="IMESentenceMode" type="2" value="3"></od:fieldProperty>
64+
<od:fieldProperty name="UnicodeCompression" type="1" value="0"></od:fieldProperty>
65+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
66+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
67+
</xsd:appinfo>
68+
</xsd:annotation>
69+
<xsd:simpleType>
70+
<xsd:restriction base="xsd:string">
71+
<xsd:maxLength value="255"></xsd:maxLength>
72+
</xsd:restriction>
73+
</xsd:simpleType>
74+
</xsd:element>
75+
<xsd:element name="RibbonXml" minOccurs="0" od:jetType="memo" od:sqlSType="ntext">
76+
<xsd:annotation>
77+
<xsd:appinfo>
78+
<od:fieldProperty name="ColumnWidth" type="3" value="12615"></od:fieldProperty>
79+
<od:fieldProperty name="ColumnOrder" type="3" value="0"></od:fieldProperty>
80+
<od:fieldProperty name="ColumnHidden" type="1" value="0"></od:fieldProperty>
81+
<od:fieldProperty name="TextAlign" type="2" value="0"></od:fieldProperty>
82+
<od:fieldProperty name="AggregateType" type="4" value="-1"></od:fieldProperty>
83+
<od:fieldProperty name="Required" type="1" value="0"></od:fieldProperty>
84+
<od:fieldProperty name="AllowZeroLength" type="1" value="1"></od:fieldProperty>
85+
<od:fieldProperty name="IMEMode" type="2" value="0"></od:fieldProperty>
86+
<od:fieldProperty name="IMESentenceMode" type="2" value="3"></od:fieldProperty>
87+
<od:fieldProperty name="UnicodeCompression" type="1" value="0"></od:fieldProperty>
88+
<od:fieldProperty name="TextFormat" type="2" value="0"></od:fieldProperty>
89+
<od:fieldProperty name="AppendOnly" type="1" value="0"></od:fieldProperty>
90+
<od:fieldProperty name="CurrencyLCID" type="4" value="0"></od:fieldProperty>
91+
<od:fieldProperty name="ResultType" type="2" value="0"></od:fieldProperty>
92+
</xsd:appinfo>
93+
</xsd:annotation>
94+
<xsd:simpleType>
95+
<xsd:restriction base="xsd:string">
96+
<xsd:maxLength value="536870910"></xsd:maxLength>
97+
</xsd:restriction>
98+
</xsd:simpleType>
99+
</xsd:element>
100+
</xsd:sequence>
101+
</xsd:complexType>
102+
</xsd:element>
103+
</xsd:schema>

0 commit comments

Comments
 (0)