12 lines
312 B
QBasic
12 lines
312 B
QBasic
Attribute VB_Name = "z_UIRibbon"
|
|
' Îáðàáîòêà íàæàòèé íà êíîïêè â ðèááîíå
|
|
Option Explicit
|
|
|
|
Sub OnRibbonBtn(control As IRibbonControl)
|
|
Select Case control.ID
|
|
Case "ImportWord": Call RunImportWord
|
|
Case "FollowLink": Call RunFollowLink
|
|
Case "ClearAll": Call RunClearAll
|
|
End Select
|
|
End Sub
|