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
| Public g_rbxUI As IRibbonUI
Public g_blnToggleA As Boolean
Public g_blnToggleB As Boolean
Public Sub Togglebutton1_onAction(control As IRibbonControl, ByRef cancelDefault)
'
' Code for onAction callback. Ribbon control toggleButton
'
g_blnToggleA = True
g_blnToggleB = False
g_rbxUI.InvalidateControl "Togglebutton1"
g_rbxUI.InvalidateControl "Togglebutton2"
End Sub
Public Sub Togglebutton2_onAction(control As IRibbonControl, ByRef cancelDefault)
'
' Code for onAction callback. Ribbon control toggleButton
'
g_blnToggleA = False
g_blnToggleB = True
g_rbxUI.InvalidateControl "Togglebutton1"
g_rbxUI.InvalidateControl "Togglebutton2"
End Sub
Public Sub Togglebutton1_getPressed(control As IRibbonControl, ByRef returnedVal)
'
' Code for getPressed callback. Ribbon control toggleButton
'
If control.ID = "Togglebutton1" Then
returnedVal = g_blnToggleA
ElseIf control.ID = "Togglebutton2" Then
returnedVal = g_blnToggleB
End If
End Sub
Public Sub rbxUI_******(ribbon As IRibbonUI)
'
' Code for ****** callback. Ribbon control customUI
'
Set g_rbxUI = ribbon
End Sub |
