EditBox - onChange

 

EditBoxDer Callback liefert den Inhalt der EditBox.

 

 



Beispiel XML Ribbon Datei:

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

Funktion in einem Standardmodul:

Sub MyEditBoxCallbackOnChange(control As IRibbonControl, _
                              strText As String)
    ' Callback Editbox: Rückgabewert der Editbox
    Select Case control.ID
        Case "MyEditBox"
                MsgBox "In die EditBox wurde folgender Wert " & _
                       "eingegeben: " & _
                       strText, vbInformation, "Beispiel EditBox"
    End Select
End Sub





Sie finden dieses Beispiel auch in der Beispieldatenbank 2



Zurück