Ribbon edit Box mit Text beim öffnen
19.12.2013 14:03:06
marco
ich bastle mir momentan einen eigenen Ribbon.
Ein bestandteil ist eine edit Box.
Soweit funktioniert auch alles.
Meine frage ist:
Beim öffen soll immer in der edit Box der Text "Freie Eingabe" erscheint. Den man natürlich auch überschreiben kann.
Anbei mein auszug die edit Box aufzurufen.
group>
group id="grp03" label="Suche_Filtern_Fahrzeuge" >
editBox id="ebx01" label="Fahrzeugsuche" imageMso="CodeFindMenu"
getText="GetTextEditBox1"
onChange="BoxWahlRaus"
supertip="Fahrzeug Nummer eingeben und Entertaste drücken!"
sizeString="wwwwwwwwwww"/>
group>
Anbei mein code im Modul
Dieser Code funktioniert, der Text "Freie Eingabe" erscheint erst wenn ich einen Wert eingebe _
und enter drücke.
Sub GetTextEditBox1(control As IRibbonControl, ByRef strText)
' Wert for EditBox
' Callback in XML File "GetTextEditBox1"
' Trägt den String in die Editbox im Ribbon ein
Select Case control.ID
Case Else
strText = strCtlWert
End Select
strCtlWert = "Freie Eingabe" '