toolbar erzeugen

kannenklaus · Beitrag von **kannenklaus** » Mo, 12.06.2006 06:27

hallo gruppe,

mit folgendem code will ich eine toolbar erstellen.

Option Explicit
Sub ToolbarErzeugen
Dim sToolbar as String, sMyToolbarCmdId as String
Dim oCfgSupplier as Object
Dim aToolbareintrag
Dim oToolBarEinstellung
Dim aToolbarItem
sToolbar = "private:resource/Toolbar/MyToolbar"
sMyToolbarCmdId = "vnd.openoffice.org:MyFunction"
oCfgSupplier = createUnoService("com.sun.star.ui.ModuleUIConfigurationManagerSupplier")
oCfgSupplier=thisComponent.getUIConfigurationManager()
oToolBarEinstellung = oCfgSupplier.createSettings()
oToolBarEinstellung.UIname="MyToolbar"
aToolbareintrag = ToolbareintragErstellen("macro:///Standard.Module1.Test()","Test")
oToolBarEinstellung.insertByIndex(0, aToolbarItem )	'oToolBarEinstellung.insertByIndex(1, aToolbareintrag)
'oToolBarEinstellung.insertByIndex(2, aToolbareintrag)

if oCfgSupplier.hasSettings(sToolbar) then
	oCfgSupplier.replaceSettings(sToolbar,oToolBarEinstellung)
else
	oCfgSupplier.insertSettings(sToolbar,oToolBarEinstellung)
end if

end Sub

Function ToolbareintragErstellen (Command as String, Label as String) as Variant
Dim aToolbareintrag(2)as New com.sun.star.beans.PropertyValue
	aToolbareintrag(0).Name ="CommandURL"
	aToolbareintrag(0).Value ="Command"
	aToolbareintrag(1).Name ="Label"
	aToolbareintrag(1).Value ="Label"
	aToolbareintrag(2).Name ="Type"
	aToolbareintrag(2).Value="0"
end Function

Sub Test
msgbox("sauberle")
end sub

in der codezeile

Code: Alles auswählen

oToolBarEinstellung.insertByIndex(0, aToolbarItem )

kommt die fehlermeldung:

basic laufzeitfehler
es ist eine exception aufgetreten
type:com.sun.star.langIllegalArgumentException
message: Type must be com::sun:

:uno::Sequence<
com::sun:

:beans::PropertyValue>

weiß jemand rat?

danke

klaus

ykcim · Beitrag von **ykcim** » Mo, 12.06.2006 13:24

Auf einen schnellen Blick würde sagen die Zeile müßte

Code: Alles auswählen

oToolBarEinstellung.insertByIndex(0, aToolbarEintrag )

lauten.
aToolbaritem wird von dir nicht gesetzt

mfg
Michael

kannenklaus · Beitrag von **kannenklaus** » Mo, 12.06.2006 14:45

hallo michael,

auch wenn ich toolbareintrag verwende, kommt die gleiche fehlermeldung.

hat jemand ne idee?

grüße

klaus

Beitrag von **komma4** » Mo, 12.06.2006 18:44

a) Eine Function gibt einen Wert zurück. Fehlt.
b) Innerhalb von Function deklarierte Variable ist ausserhalb nicht sichtbar (doppeltes DIM aToolbareintrag).
c) wenn mich nicht alles täuscht erwartet oToolBarEinstellung.insertByIndex ein Array als 2. Parameter, also: (0, aToolbareintrag())

HTH

ykcim · Beitrag von **ykcim** » Di, 13.06.2006 13:46

Hallo Klaus,

kannst Du bitte zukünftig Deinen Code erstmal selber gründlich prüfen.
Es ist müßig bei Problemen zu helfen wenn man sich erstmal durch grundsätzliche Fehler durchhangeln muß.

1. In der Funktion Toolbareintragen erzeugst Du keinen Rückgabewert.
(Hat komma4 schon geschrieben)
2. In der Funktion Toolbareintragen übergibst als ersten Wert für die Commandurl "Command" als festen String. Übergeben werden muß aber die Variable Command.
3. Genauso verfährst Du bei Label.
4. Nach dem Du die Funktion aufgerufen hast verwendest Du die falsche Variable aToolbarItem (Habe ich schon geschrieben)

Das sind alles Fehler die Du selber sehen müsstest. Du hast hier schon reichlich Code gepostet und Fragen gestellt um diese "Schusseligkeiten" selber zu lösen.

Wenn Du diese Fehler beseitigt hast, wirst Du eine Fehlermeldung bei
oCfgSupplier.....Settings(sToolbar,oToolBarEinstellung) bekommen.
(:lang::IllegalArgumentException)
Ursache ist sToolbar. Die ResoucreUrl muß
sToolbar = "private:resource/toolbar/MyToolbar"
lauten. Die internen Namen der resourcen werden klein geschrieben.

Wenn das Makro jetzt gelaufen ist steht unter Ansicht - Symbolleisten "MyToolbar" zur Verfügung.

mfg
Michael

kannenklaus · Beitrag von **kannenklaus** » Di, 13.06.2006 14:57

hallo michael,

da muß ich ein bißchen viel asche auf mein haupt nehmen

grüße

klaus

kannenklaus · Beitrag von **kannenklaus** » Di, 13.06.2006 15:27

hallo michael,

ich will doch noch auf den ein oder anderen punkt zu deiner antwort eingehen, da ich dich hier und deine beiträge schätze:

kannst Du bitte zukünftig Deinen Code erstmal selber gründlich prüfen.

der code, die schreibweisen sowie das trennen in sub und function kommt aus dem buch openoffice.org basic erschienen im cul-verlag. das makro lief dort nicht auf anhieb. meine "experimente" u.a. mit "command" gehen auch auf bisher gemacht erfahrungen mit
Dim aToolbareintrag(2)as New com.sun.star.beans.PropertyValue
zurück. hier leider ohne erfolg.

4. Nach dem Du die Funktion aufgerufen hast verwendest Du die falsche Variable aToolbarItem (Habe ich schon geschrieben)

punkt 4 muß ich voll auf meine kappe nehmen.

Du hast hier schon reichlich Code gepostet und Fragen gestellt

der openoffice code erschließt sich einem programmierer viel eher, als jemand der als anwender einsteigt und sich die programmierung erschließen muss. deswegen überwiegen für meinen teil fragen. dafür sollte ein forum da sein. erfahrene leute wie du, geben dabei zwangsläufig mehr als sie bekommen können. meinen möglichkeiten entsprechend, versuche ich seit kurzem auch auf fragen zu antworten und code zu posten.

leider wird man eher in einem forum mit offener software abgewatscht, als in einer gruppe des marktführers.

grüße

klaus

ykcim · Beitrag von **ykcim** » Mi, 14.06.2006 11:13

Hallo Klaus,

es tut mir leid das Du es etwas falsch verstehst.

der code, die schreibweisen sowie das trennen in sub und function kommt aus dem buch openoffice.org basic erschienen im cul-verlag.

Die Schreibweisen sind nicht das Problem.

Das Problem ist Code mit zu vielen Fehlern. Und einige dieser Fehler hätten Dir selber auffallen müssen. Dazu bist schon zu lange mit Basic beschäftigt.

Und mal ehrlich wenn es nur ein Fehler gewesen wäre, hätte ich nichts angemerkt. Aber vier sind ein wenig viel. Wie in allen Gruppen, auch denen des Marktführers, gilt: Erst mal selber suchen. Und wenn es dann immer noch nicht klappt fragen.

Du mußt es andersherum sehen. Wenn ich mehrmals über Code von jemanden stolpere der zu viele Fehler hat, werde ich mir den Code nicht mehr anschauen. Und dementsprechend auch nicht helfen.
Es kostet mich nämlich auch Zeit. Und man kann von denen die Fragen stellen, die ich wenn ich kann gerne beantworte, auch erwarten das sie ihre Hausaufgaben gemacht haben.

leider wird man eher in einem forum mit offener software abgewatscht, als in einer gruppe des marktführers.

Sorry, das Du es als abwatschen siehst. Ich sehe als Aufforderung Deinen Programmierprozeß zu verbessern. Je mehr grundsätzliche Fehler Du selbst erkennst, desto schneller löst Du Deine Probleme in Zukunft selber.

mfg
Michael

kannenklaus · Beitrag von **kannenklaus** » Mi, 14.06.2006 15:34

hallo michael,

desto schneller löst Du Deine Probleme in Zukunft selber.

da will ich auch hin.

auf jeden fall finde ich dein engagement in diesem fall und auch sonst im zusammenhang mit deiner starbasic faq und hier in der gruppe vorbildlich.

grüße

klaus