Skip to content

Instantly share code, notes, and snippets.

@rediffusion
Last active July 29, 2019 10:35
Show Gist options
  • Select an option

  • Save rediffusion/e7191f6cb92e0bc168f0c7756b433609 to your computer and use it in GitHub Desktop.

Select an option

Save rediffusion/e7191f6cb92e0bc168f0c7756b433609 to your computer and use it in GitHub Desktop.
Sub MyEditBoxCallbackOnChange(control As IRibbonControl, strText As String)
Select Case control.ID
Case "MyEditBox"
MsgBox "Значение “Editbox” : " & _
strText, vbInformation, "Это заголовок!"
End Select
End Sub
<editBox
id="MyEditBox"
label="My EditBox: "
getText="MyEditBoxCallbackgetText"
onChange="MyEditBoxCallbackOnChange"/>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment