EditBox - getText

 

EditBoxSets the text to be displayed in the edit portion of the control.

 

 



Sample Ribbon XML file:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="MyTab" label="Sample EditBox">
                <group id="MyGroup" label="Sample EditBox">
                    <labelControl id="myLabel1" label="Sample:" />
                    <labelControl id="myLabel2" label="Editbox" />
                    <editBox id="MyEditBox" label="My EditBox: " 
                      getText="MyEditBoxCallbackgetText" 
                      onChange="MyEditBoxCallbackOnChange"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Function to be copied to a standard module:

Sub MyEditBoxCallbackgetText(control As IRibbonControl, _
                             ByRef strText)
    ' Callback getText
    Select Case control.ID
        Case "MyEditBox"
            strText = "Hello World"
    End Select
End Sub


You can find this sample in Sample DB 2



Back