63 lines
2.8 KiB
QBasic
63 lines
2.8 KiB
QBasic
Option Explicit 'Потребовать явного объявления всех переменных в файле
|
|
|
|
'TableFormatter (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub TableFormatter(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'PicFormatter (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub PicFormatter(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'AddListA4 (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddListA3(control As IRibbonControl)
|
|
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
|
|
Call ML_AddListA4
|
|
|
|
End Sub
|
|
|
|
'AddListA3 (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddListA4(control As IRibbonControl)
|
|
'MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
|
|
Call ML_AddListA3
|
|
|
|
|
|
End Sub
|
|
|
|
'StampForm5 (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddStampForm5(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampForm6 (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddStampForm6(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampFrame (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddFrame(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampLeftUp (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddStampLeftUp(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampLeftDown (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddStampLeftDown(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampLeftMiddle (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddStampLefMid(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub
|
|
|
|
'StampPageNumber (элемент: button, атрибут: onAction), 2010+
|
|
Private Sub AddPageNumber(control As IRibbonControl)
|
|
MsgBox "Сработала процедура, заданная в onAction элемента " & control.ID
|
|
End Sub |