11 lines
289 B
QBasic
11 lines
289 B
QBasic
|
Attribute VB_Name = "z_UIRibbon"
|
||
|
|
Option Explicit
|
||
|
|
Option Private Module
|
||
|
|
|
||
|
|
Public Sub OnRibbonBtn(iControl As IRibbonControl)
|
||
|
|
Select Case iControl.ID
|
||
|
|
Case "GlobalConfig": Call RunGlobalConfig
|
||
|
|
Case "GenerateWrapper": Call RunGenerateWrapper
|
||
|
|
End Select
|
||
|
|
End Sub
|